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.