Kako napisati makronaredbe za čišćenje dokumenta u programu Word 2016

Prije tog konačnog spremanja ili kad god radite na velikom dokumentu u programu Word 2016, razmislite o čišćenju dokumenta. To je proces koji uključuje traženje lažnih likova i drugog problematičnog teksta.

Rutina čišćenja dokumenta uključuje traženje razmaka na kraju odlomaka, dvostrukih razmaka, dvostrukih kartica i dvostrukih tipki Enter (prazni odlomci). Sve su to stavke koje treba izbjegavati, ali svejedno završavaju u dugim dokumentima.

Proces uklanjanja ovih neželjenih elemenata uključuje korištenje dijaloškog okvira Find and Replace. Za unos posebnih znakova, kao što su razmak, tabulator i Enter, trebate koristiti gumb Posebno.

Makronaredba stvorena za obavljanje posla čišćenja dokumenta zabilježila je pritiske tipki korištene za traženje i zamjenu različitih znakova. Zatim je Visual Basic Editor korišten za uklanjanje dijela suvišnog koda. Evo rezultata:

Sub document_cleanup()

'

' document_cleanup Macro

' Ukloni razmake na kraju i dvostruke razmake, tabulatore i tipke Enter

'

Selection.HomeKey Unit:=wdStory

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

' Uklonite razmake na kraju odlomka pomoću

Selection.Find

.Text = "^w^v"

.Zamjena.Text = "^v"

.Forward = True

Završi s

Selection.Find.Execute Replace:=wdReplaceAll

' Ukloni dvostruke razmake

Sa Selection.Find

>.Text = " "

.Replacement.Text = " "

Završi sa

Selection.Find.Execute Replace:=wdReplaceAll

' Uklonite dvostruke jezičke

Uz

odabir.Pronađi .Text = "^t^t"

.Zamjena.Text = " ^t"

Završi s

Selection.Find.Execute Replace:=wdReplaceAll

' Uklonite dvostruke tipke Enter (prazne odlomke)

Uz

odabir.Pronađi .Text = "^v^v"

.Zamjena.Text = "^v"

Završi s

Selection.Find.Execute Replace:=wdReplaceAll

End Sub

Prva operacija pretraživanja i zamjene uklanja razmake na kraju. Tekst za pretraživanje je ^w^v, koji traži sve znakove razmaka (^w) prije tipke Enter (^v). Ovi razmaci — razmak, tabulator i tako dalje — zamjenjuju se tipkom Enter, koja uklanja razmake na kraju.

Drugim pretraživanjem i zamjenom uklanjaju se dvostruki razmaci. dvaput pritisnite razmaknicu za traženi tekst i jednom za zamjenski tekst.

Treća pretraga i zamjena uklanja dvostruke kartice. ^t predstavlja znakove kartice u dijaloškom okviru Pronađi i zamijeni.

Konačna pretraga i zamjena uklanja prazne odlomke. Znakovi ^v predstavljaju tipku Enter, tako da zamjena ^v^v s ^v uklanja sve prazne odlomke.

Ova makronaredba radi dobro, ali mogla bi biti i bolja. Na primjer, ne obrađuje trostruke razmake ili trostruke kartice. Za to biste morali drugi put pokrenuti makronaredbu. Ako pružite talent za programiranje, kod makronaredbe može riješiti te probleme.