Kā uzrakstīt dokumentu tīrīšanas makro programmā Word 2016

Pirms pēdējās saglabāšanas vai jebkurā laikā, kad strādājat ar lielu dokumentu programmā Word 2016, apsveriet iespēju veikt dokumentu tīrīšanu. Tas ir process, kas ietver negodīgu varoņu un cita problemātiska teksta meklēšanu.

Dokumentu tīrīšanas rutīna ietver beigu atstarpju meklēšanu rindkopu beigās, dubultatstarpes, dubultās tabulēšanas taustiņus un dubultās ievadīšanas taustiņus (tukšas rindkopas). Tie visi ir priekšmeti, no kuriem jāizvairās, taču tie jebkurā gadījumā nonāk garos dokumentos.

Šo nevēlamo elementu likvidēšanas process ietver dialoglodziņa Atrast un aizstāt izmantošanu. Lai ievadītu īpašās rakstzīmes, piemēram, atstarpe, tabulēšana un ievadīšana, ir jāizmanto poga Spec.

Makro, kas tika izveidots, lai veiktu dokumentu tīrīšanas darbus, ierakstīja taustiņu nospiešanu, kas tika izmantota dažādu rakstzīmju meklēšanai un aizstāšanai. Pēc tam Visual Basic redaktors tika izmantots, lai noņemtu daļu no liekā koda. Lūk, rezultāts:

Sub document_cleanup()

'

' document_cleanup Makro

' Noņemiet beigu atstarpes un dubultās atstarpes, tabulēšanas taustiņus un ievadīšanas taustiņus

'

Selection.HomeKey Unit:=wdStory

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

Noņemiet rindkopas beigu atstarpes, izmantojot funkciju

Selection.Find

.Text = "^w^v"

.Replacement.Text = "^v"

.Forward = True

Beigt ar

Selection.Find.Execute Replace:=wdReplaceAll

' Noņemiet dubultās atstarpes

Ar Selection.Find

>.Text = " "

.Replacement.Text = " "

Beigās ar

Selection.Find.Execute Replace:=wdReplaceAll

Noņemiet dubultās cilnes

Ar Selection.Find

.Text = "^t^t"

.Replacement.Text = " ^t"

Beigās ar

Selection.Find.Execute Replace:=wdReplaceAll

Noņemt dubultās ievades taustiņus (tukšas rindkopas)

Ar Selection.Find

.Text = "^v^v"

.Replacement.Text = "^v"

Beigt ar

Selection.Find.Execute Replace:=wdReplaceAll

Beigas Apakš

Pirmajā meklēšanas un aizstāšanas operācijā tiek noņemtas beigu atstarpes. Meklēšanas teksts ir ^w^v, kas meklē atstarpes (^w) rakstzīmes pirms taustiņa Enter (^v). Šīs atstarpes rakstzīmes — atstarpe, tabulēšana un tā tālāk — tiek aizstātas ar taustiņu Enter, kas noņem beigu atstarpes.

Otrā meklēšanas un aizstāšanas funkcija noņem dubultās atstarpes. divreiz nospiediet atstarpes taustiņu, lai meklētu tekstu, un vienu reizi nospiediet atstarpes taustiņu, lai ievadītu teksta aizstājēju.

Trešā meklēšanas un aizstāšanas funkcija noņem dubultās cilnes. ^t apzīmē tabulēšanas rakstzīmes dialoglodziņā Atrast un aizstāt.

Pēdējā meklēšana un aizstāšana noņem tukšās rindkopas. Rakstzīmes ^v apzīmē taustiņu Enter, tāpēc, aizstājot ^v^v ar ^v, tiek noņemtas visas tukšās rindkopas.

Šis makro darbojas labi, taču tas varētu būt labāks. Piemēram, tas neapstrādā trīskāršu atstarpes vai trīskāršu tabulēšanas taustiņu. Šim nolūkam makro būs jāpalaiž otrreiz. Ja nodrošināsit programmēšanas talantu, makro kods var atrisināt šīs problēmas.