Kuidas Word 2016-s dokumendipuhastusmakrosid kirjutada

Enne lõplikku salvestamist või iga kord, kui töötate Word 2016s suure dokumendiga, kaaluge dokumendi puhastamist. See on protsess, mis hõlmab petturite tegelaste ja muu probleemse teksti otsimist.

Dokumendi puhastamise rutiin hõlmab lõikude lõpus olevate tühikute, topelttühikute, topelttabloode ja topeltsisestusklahvide otsimist (tühjad lõigud). Neid kõiki tuleb vältida, kuid need jõuavad niikuinii pikkadesse dokumentidesse.

Nende soovimatute elementide eemaldamise protsess hõlmab dialoogiboksi Otsi ja asenda kasutamist. Erimärkide (nt tühik, tabelduskaart ja sisestus) sisestamiseks peate kasutama nuppu Eriline.

Dokumendi puhastamiseks loodud makro salvestas erinevate märkide otsimiseks ja asendamiseks kasutatud klahvivajutused. Seejärel kasutati osa üleliigse koodi eemaldamiseks Visual Basicu redaktorit. Siin on tulemus:

Sub document_cleanup()

'

' document_cleanup Makro

' Eemalda lõputühikud ja topelttühikud , tabeldusklahvid ja sisestusklahvid

'

Selection.HomeKey Unit:=wdStory

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

Lõigu lõpus olevate tühikute eemaldamine funktsiooniga

Selection.Find

.Text = "^w^v"

.Replacement.Text = "^v"

.Edasi = Tõene

Lõpeta

Selection.Find.Execute Replace:=wdReplaceAll

' Eemalda topelttühikud

Funktsiooniga Selection.Find

>.Text = " " .Replacement.Text =

" "

Lõpeta

Selection.Find.Execute Asenda:=wdReplaceAll

Eemalda topeltsakid

Valikuga. Otsi

.Tekst = "^t^t"

.Replacement.Text = " ^t"

Lõpetage

valikuga Selection.Find.Execute Asenda:=wdReplaceAll

Eemalda topeltsisestusklahvid (tühjad lõigud)

Valikuga. Otsi

.Tekst = "^v^v"

.Replacement.Text = "^v"

Lõpeta

Selection.Find.Execute Asenda:=wdReplaceAll

End Sub

Esimene otsimis- ja asendamisoperatsioon eemaldab lõpus olevad tühikud. Otsingutekst on ^w^v, mis otsib sisestusklahvi (^v) ees tühikuid (^w). Need tühimärgid – tühik, tabeldusmärk ja nii edasi – asendatakse sisestusklahviga, mis eemaldab lõpus olevad tühikud.

Teine otsimine ja asendamine eemaldab topelttühikud. vajutage otsinguteksti jaoks kaks korda tühikuklahvi ja asendusteksti jaoks üks kord tühikuklahvi.

Kolmas otsimine ja asendamine eemaldab topeltkaardid. ^t tähistab tabeldusmärke dialoogiboksis Otsi ja asenda.

Lõplik otsimine ja asendamine eemaldab tühjad lõigud. Märgid ^v tähistavad sisestusklahvi, seega ^v^v asendamine ^v-ga eemaldab kõik tühjad lõigud.

See makro töötab hästi, kuid see võiks olla parem. Näiteks ei kasuta see kolmekordseid tühikuid ega kolmekordseid tabeldusmärke. Selleks peate makro teist korda käivitama. Kui pakute programmeerimisoskusi, saab makro kood neid probleeme lahendada.