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.