Dokumentumtisztító makrók írása a Word 2016-ban

A végső mentés előtt, vagy bármikor, amikor egy nagy dokumentumon dolgozik a Word 2016-ban, fontolja meg a dokumentumtisztítás elvégzését. Ez egy olyan folyamat, amely magában foglalja a szélhámos karakterek és más problémás szövegek keresését.

A dokumentumtisztítási rutin magában foglalja a bekezdések végén lévő szóközök, dupla szóközök, dupla tabulátorok és dupla Enter billentyűk (üres bekezdések) keresését. Ezeket mind kerülni kell, de így is hosszú dokumentumokba kerülnek.

A nem kívánt elemek eltávolításának folyamata magában foglalja a Keresés és csere párbeszédpanelt. Speciális karakterek, például szóköz, tabulátor és Enter beviteléhez a Speciális gombot kell használnia.

A dokumentumtisztítási munkához létrehozott makró rögzítette a különböző karakterek kereséséhez és cseréjéhez használt billentyűleütéseket. Ezután a Visual Basic Editor segítségével eltávolították a redundáns kódok egy részét. Íme az eredmény:

Sub document_cleanup()

'

' document_cleanup makró

' A záró szóközök és a dupla szóközök, tabulátorok és Enter billentyűk eltávolítása

'

Selection.HomeKey Unit:=wdStory

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

'

A bekezdés végén lévő szóközök eltávolítása a Selection.Find segítségével

.Text = "^w^v"

.Replacement.Text = "^v"

.Forward = igaz

Vége ezzel

Selection.Find.Execute Replace:=wdReplaceAll

' Dupla szóközök eltávolítása

A Selection.Find segítségével

>.Text = " " .Replacement.Text =

" "

Vége ezzel

Selection.Find.Execute Replace:=wdReplaceAll

Távolítsa el a dupla füleket

A Selection.Find

.Text segítségével = "^t^t"

.Replacement.Text = " ^t"

Vége

Selection.Find.Execute Replace:=wdReplaceAll

A dupla Enter billentyűk eltávolítása (üres bekezdések)

A Selection.Find

.Text segítségével = "^v^v"

.Replacement.Text = "^v"

Vége ezzel

Selection.Find.Execute Replace:=wdReplaceAll

End Sub

Az első keresés és csere művelet eltávolítja a záró szóközöket. A keresési szöveg ^w^v, amely az Enter billentyű (^v) előtti szóközt (^w) keresi. Ezeket a szóköz karaktereket – szóközt, tabulátort és így tovább – az Enter billentyű helyettesíti, amely eltávolítja a záró szóközöket.

A második keresés és csere eltávolítja a dupla szóközöket. nyomja meg kétszer a szóköz billentyűt a keresett szöveghez, és nyomja meg egyszer a szóköz billentyűt a helyettesítő szöveghez.

A harmadik keresés és csere eltávolítja a dupla tabulátorokat. A ^t a tabulátor karaktereket jelöli a Keresés és csere párbeszédpanelen.

Az utolsó keresés és csere eltávolítja az üres bekezdéseket. A ^v karakterek az Enter billentyűt jelentik, így a ^v^v ^v karakterre cserélése eltávolítja az üres bekezdéseket.

Ez a makró jól működik, de lehetne jobb is. Például nem kezeli a hármas szóközöket vagy a hármas tabulátorokat. Ehhez másodszor is le kell futtatnia a makrót. Ha megadja a programozási tehetséget, a makró kódja megoldhatja ezeket a problémákat.