Kako napisati makre za čiščenje dokumenta v Wordu 2016

Pred tem končnim shranjevanjem ali kadar koli delate na velikem dokumentu v Wordu 2016, razmislite o čiščenju dokumenta. To je proces, ki vključuje iskanje pokvarjenih likov in drugega problematičnega besedila.

Rutina za čiščenje dokumenta vključuje iskanje končnih presledkov na koncu odstavkov, dvojnih presledkov, dvojnih zavihkov in dvojnih tipk Enter (prazni odstavki). Vsem tem elementom se je treba izogibati, a vseeno končajo v dolgih dokumentih.

Postopek odpravljanja teh neželenih elementov vključuje uporabo pogovornega okna Najdi in zamenjaj. Za vnos posebnih znakov, kot so presledek, tabulatorka in Enter, morate uporabiti gumb Posebno.

Makro, ustvarjen za izvajanje opravila čiščenja dokumenta, je zabeležil pritiske tipk za iskanje in zamenjavo različnih znakov. Nato smo z urejevalnikom Visual Basic odstranili nekaj odvečne kode. Tukaj je rezultat:

Sub document_cleanup()

'

' document_cleanup Macro

' Odstrani končne presledke in dvojne presledke, tabulatorje in tipke Enter

'

Selection.HomeKey Unit:=wdStory

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

' Odstranite končne presledke iz odstavka

s funkcijo Selection.Find

.Text = "^w^v"

.Replacement.Text = "^v"

.Forward = True

Končaj z

Selection.Find.Execute Replace:=wdReplaceAll

' Odstrani dvojne presledke

Z Selection.Find

>.Text = " "

.Replacement.Text = " "

Konec z

Selection.Find.Execute Replace:=wdReplaceAll

' Odstranite dvojne zavihke

Z izbiro.

Najdi .Text = "^t^t"

.Replacement.Text = " ^t"

Končaj z

Selection.Find.Execute Replace:=wdReplaceAll

' Odstranite dvojne tipke Enter (prazne odstavke)

Z izbiro.

Najdi .Text = "^v^v"

.Replacement.Text = "^v"

Končaj z

Selection.Find.Execute Replace:=wdReplaceAll

End Sub

Prva operacija išči in zamenjaj odstrani zadnje presledke. Iskano besedilo je ^w^v, ki išče poljubne presledke (^w) pred tipko Enter (^v). Te presledke – presledek, tabulatorko itd. – nadomestimo s tipko Enter, ki odstrani končne presledke.

Drugo iskanje in zamenjava odstrani dvojne presledke. dvakrat pritisnite preslednico za iskalno besedilo in enkrat pritisnite preslednico za nadomestno besedilo.

Tretje iskanje in zamenjava odstrani dvojne zavihke. ^t predstavlja znake zavihka v pogovornem oknu Najdi in zamenjaj.

Končno iskanje in zamenjava odstrani prazne odstavke. Znaki ^v predstavljajo tipko Enter, zato če zamenjate ^v^v z ^v, odstranite vse prazne odstavke.

Ta makro deluje v redu, vendar bi lahko bilo bolje. Na primer, ne obravnava trojnih presledkov ali trojnih zavihkov. Za to bi morali makro zagnati drugič. Če zagotovite talent za programiranje, lahko koda makra odpravi te težave.