Jak napsat makra pro vyčištění dokumentu v aplikaci Word 2016

Před tímto konečným uložením nebo kdykoli pracujete na velkém dokumentu ve Wordu 2016, zvažte provedení vyčištění dokumentu. Je to proces, který zahrnuje vyhledávání nepoctivých postav a jiného problematického textu.

Rutina čištění dokumentu zahrnuje hledání koncových mezer na konci odstavců, dvojitých mezer, dvojitých tabulátorů a dvojitých kláves Enter (prázdné odstavce). To vše jsou položky, kterým je třeba se vyhnout, ale stejně skončí v dlouhých dokumentech.

Proces eliminace těchto nežádoucích prvků zahrnuje použití dialogového okna Najít a nahradit. Chcete-li zadat speciální znaky, jako je mezera, tabulátor a Enter, musíte použít tlačítko Special.

Makro vytvořené k provedení čištění dokumentu zaznamenalo úhozy používané k vyhledávání a nahrazování různých znaků. Potom byl editor jazyka Visual Basic použit k odstranění části nadbytečného kódu. Zde je výsledek:

Sub document_cleanup()

'

' document_cleanup Macro

' Odstraňte koncové mezery a dvojité mezery, tabulátory a klávesy Enter

'

Selection.HomeKey Unit:=wdStory

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

' Odstraňte koncové mezery z odstavce

pomocí Selection.Find

.Text = "^w^v"

.Replacement.Text = "^v"

.Forward = Pravda

Konec s

Selection.Find.Execute Nahradit:=wdReplaceAll

' Odebrat dvojité mezery

S Selection.Find

>.Text = " " .Replacement.Text =

" "

Končí na

Selection.Find.Execute Nahradit:=wdReplaceAll

Odstraňte dvojité záložky

S Selection.Find

.Text = "^t^t"

.Replacement.Text = "^t"

End With

Selection.Find.Execute Nahradit:=wdReplaceAll

Odebrat dvojité klávesy Enter (prázdné odstavce)

S Selection.Find

.Text = "^v^v"

.Replacement.Text = "^v"

Konec s

Selection.Find.Execute Nahradit:=wdReplaceAll

End Sub

První operace hledání a nahrazení odstraní koncové mezery. Hledaný text je ^w^v, který hledá všechny mezery (^w) před klávesou Enter (^v). Tyto mezery – mezera, tabulátor atd. – jsou nahrazeny klávesou Enter, která odstraňuje koncové mezery.

Druhé hledání a nahrazování odstraní dvojité mezery. stiskněte mezerník dvakrát pro hledaný text a jednou stiskněte mezerník pro nahrazený text.

Třetí funkce hledání a nahrazování odstraní dvojité karty. ^t představuje znaky tabulátoru v dialogovém okně Najít a nahradit.

Poslední hledání-a-nahradit odstraní prázdné odstavce. Znaky ^v představují klávesu Enter, takže nahrazení ^v^v za ^v odstraní všechny prázdné odstavce.

Toto makro funguje dobře, ale mohlo by být lepší. Nezvládá například trojité mezery nebo trojité tabulátory. K tomu byste museli makro spustit podruhé. Pokud poskytnete programátorský talent, kód makra může tyto problémy vyřešit.


Jak zablokovat aplikaci Microsoft Word v otevírání souborů v režimu pouze pro čtení v systému Windows

Jak zablokovat aplikaci Microsoft Word v otevírání souborů v režimu pouze pro čtení v systému Windows

Jak zablokovat aplikaci Microsoft Word v otevírání souborů v režimu pouze pro čtení v systému Windows Aplikace Microsoft Word otevírá soubory v režimu pouze pro čtení, takže je nelze upravovat? Nebojte se, metody jsou uvedeny níže

Jak opravit nesprávný tisk dokumentů Microsoft Word

Jak opravit nesprávný tisk dokumentů Microsoft Word

Jak opravit chyby při tisku nesprávných dokumentů Microsoft Word Chyby při tisku dokumentů Word se změněným písmem, chaotickými odstavci, chybějícím textem nebo ztraceným obsahem jsou poměrně časté. Nicméně ne

Vymažte kresby perem a zvýrazňovačem na snímcích PowerPoint

Vymažte kresby perem a zvýrazňovačem na snímcích PowerPoint

Pokud jste použili pero nebo zvýrazňovač ke kreslení na snímky aplikace PowerPoint během prezentace, můžete kresby uložit pro další prezentaci nebo je vymazat, takže až ji příště ukážete, začnete s čistými snímky aplikace PowerPoint. Chcete-li vymazat kresby perem a zvýrazňovačem, postupujte podle těchto pokynů: Mazání čar jedna na […]

Obsah knihovny stylů v SharePointu 2010

Obsah knihovny stylů v SharePointu 2010

Knihovna stylů obsahuje soubory CSS, soubory XSL (Extensible Stylesheet Language) a obrázky používané předdefinovanými vzorovými stránkami, rozvržení stránek a ovládací prvky v SharePointu 2010. Chcete-li najít soubory CSS v knihovně stylů webu pro publikování: Vyberte Akce webu→ Zobrazit Veškerý obsah webu. Zobrazí se obsah webu. Knihovna stylů se nachází v […]

Formátování čísel v tisících a milionech v sestavách Excel

Formátování čísel v tisících a milionech v sestavách Excel

Nezahlcujte své publikum gargantuovskými čísly. V aplikaci Microsoft Excel můžete zlepšit čitelnost řídicích panelů a sestav formátováním čísel tak, aby se zobrazovaly v tisících nebo milionech.

Jak sdílet a sledovat weby SharePoint

Jak sdílet a sledovat weby SharePoint

Naučte se používat nástroje sociálních sítí SharePoints, které umožňují jednotlivcům a skupinám komunikovat, spolupracovat, sdílet a propojovat se.

Jak převést data do juliánských formátů v aplikaci Excel

Jak převést data do juliánských formátů v aplikaci Excel

Juliánská data se často používají ve výrobním prostředí jako časové razítko a rychlý odkaz pro číslo šarže. Tento typ kódování data umožňuje maloobchodníkům, spotřebitelům a servisním zástupcům identifikovat, kdy byl produkt vyroben, a tím i stáří produktu. Juliánská data se také používají v programování, armádě a astronomii. Odlišný […]

Jak vytvořit webovou aplikaci Access

Jak vytvořit webovou aplikaci Access

Webovou aplikaci můžete vytvořit v Accessu 2016. Co je tedy vlastně webová aplikace? Web znamená, že je online, a aplikace je jen zkratka pro „aplikaci“. Vlastní webová aplikace je online databázová aplikace přístupná z cloudu pomocí prohlížeče. Webovou aplikaci vytváříte a udržujete ve verzi pro počítače […]

Panel rychlého spuštění v SharePointu 2010

Panel rychlého spuštění v SharePointu 2010

Většina stránek v SharePointu 2010 zobrazuje seznam navigačních odkazů na panelu Snadné spuštění na levé straně stránky. Panel Snadné spuštění zobrazuje odkazy na doporučený obsah webu, jako jsou seznamy, knihovny, weby a stránky publikování. Panel Snadné spuštění obsahuje dva velmi důležité odkazy: Odkaz na veškerý obsah webu: […]

Co znamenají chybové zprávy Řešitel v Excelu?

Co znamenají chybové zprávy Řešitel v Excelu?

U jednoduchých problémů Řešitel v Excelu obvykle rychle najde optimální hodnoty proměnné Řešitel pro účelovou funkci. Ale v některých případech má Řešitel problém najít hodnoty proměnné Řešitel, které optimalizují účelovou funkci. V těchto případech Řešitel obvykle zobrazí zprávu nebo chybovou zprávu, která popisuje nebo popisuje problém, který […]