Ako napísať makrá na vyčistenie dokumentov v programe Word 2016

Pred posledným uložením alebo kedykoľvek, keď pracujete na veľkom dokumente v programe Word 2016, zvážte vyčistenie dokumentu. Ide o proces, ktorý zahŕňa vyhľadávanie nečestných postáv a iného problematického textu.

Čistenie dokumentu zahŕňa hľadanie koncových medzier na konci odsekov, dvojitých medzier, dvojitých tabulátorov a dvojitých kláves Enter (prázdne odseky). To všetko sú položky, ktorým sa treba vyhnúť, no aj tak skončia v dlhých dokumentoch.

Proces eliminácie týchto nežiaducich prvkov zahŕňa použitie dialógového okna Nájsť a nahradiť. Na zadávanie špeciálnych znakov, ako sú medzera, tabulátor a Enter, musíte použiť tlačidlo Špeciálne.

Makro vytvorené na vykonanie čistenia dokumentu zaznamenalo stlačenia klávesov používaných na vyhľadávanie a nahradzovanie rôznych znakov. Potom sa na odstránenie časti nadbytočného kódu použil editor jazyka Visual Basic. Tu je výsledok:

Sub document_cleanup()

'

' document_cleanup Macro

' Odstránenie koncových medzier a dvojitých medzier, tabulátorov a kláves Enter

'

Selection.HomeKey Unit:=wdStory

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

' Odstráňte koncové medzery z odseku

pomocou Selection.Find

.Text = "^w^v"

.Replacement.Text = "^v"

.Forward = Pravda

Koniec s

Selection.Find.Execute Replace:=wdReplaceAll

' Odstrániť dvojité medzery

S Selection.Find

>.Text = " "

.Replacement.Text = " "

Koniec s

Selection.Find.Execute Nahradiť:=wdReplaceAll

' Odstráňte dvojité záložky

S Selection.Find

.Text = "^t^t"

.Replacement.Text = " ^t"

End With

Selection.Find.Execute Replace:=wdReplaceAll

' Odstráňte dvojité klávesy Enter (prázdne odseky)

S Selection.Find

.Text = "^v^v"

.Replacement.Text = "^v"

Koniec s

Selection.Find.Execute Nahradiť:=wdReplaceAll

End Sub

Prvá operácia vyhľadávania a nahradenia odstráni koncové medzery. Hľadaný text je ^w^v, ktorý hľadá všetky medzery (^w) pred klávesom Enter (^v). Tieto biele znaky – medzera, tabulátor atď. – sú nahradené klávesom Enter, ktorá odstraňuje medzery na konci.

Druhé vyhľadávanie a nahradenie odstráni dvojité medzery. dvakrát stlačte medzerník pre hľadaný text a jedenkrát pre nahradenie textu.

Tretie vyhľadávanie a nahradenie odstráni dvojité karty. ^t predstavuje znaky tabulátora v dialógovom okne Nájsť a nahradiť.

Konečné vyhľadávanie a nahradenie odstráni prázdne odseky. Znaky ^v predstavujú kláves Enter, takže nahradenie ^v^v za ^v odstráni všetky prázdne odseky.

Toto makro funguje dobre, ale mohlo by byť lepšie. Nezvláda napríklad trojité medzery alebo trojité tabulátory. Na to by ste museli makro spustiť druhýkrát. Ak poskytnete programátorský talent, kód makra môže tieto problémy vyriešiť.