Prieš galutinį įrašymą arba bet kuriuo metu, kai dirbate su dideliu dokumentu programoje „Word 2016“, apsvarstykite galimybę išvalyti dokumentą. Tai procesas, kurio metu reikia ieškoti nesąžiningų veikėjų ir kito probleminio teksto.
Dokumento valymo rutina apima tarpų pastraipų pabaigoje, dvigubų tarpų, dvigubų skirtukų ir dvigubų Enter klavišų (tuščios pastraipos) paiešką. Visų šių dalykų reikia vengti, tačiau jie vis tiek patenka į ilgus dokumentus.
Šių nepageidaujamų elementų pašalinimo procesas apima dialogo lango Rasti ir pakeisti naudojimą. Norėdami įvesti specialiuosius simbolius, pvz., tarpą, Tab ir Enter, turite naudoti specialųjį mygtuką.
Dokumento valymo darbams sukurta makrokomanda užfiksavo klavišų paspaudimus, naudojamus ieškant ir keičiant įvairius simbolius. Tada „Visual Basic“ redaktorius buvo naudojamas kai kuriems pertekliniams kodams pašalinti. Štai rezultatas:
Sub document_cleanup()
'
' document_cleanup makrokomandos
' Pašalinkite galinius tarpus ir dvigubus tarpus, tabuliavimo
ženklus ir klavišus Enter
'
Selection.HomeKey Unit:=wdStory
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
Pašalinkite pastraipos tarpus
su Selection.Find
.Text = "^w^v"
.Replacement.Text = "^v"
.Forward = True
Baigti su
Selection.Find.Execute Replace:=wdReplaceAll
' Pašalinkite dvigubus tarpus
Su Selection.Find
>.Text = " "
.Replacement.Text = " "
Baigti
Selection.Find.Execute Replace:=wdReplaceAll
Pašalinkite dvigubus skirtukus
Su Selection.Find
.Text = "^t^t"
.Replacement.Text = " ^t"
Užbaikite
Selection.Find.Execute Replace:=wdReplaceAll
Pašalinti dvigubo įvedimo klavišus (tuščias pastraipas)
Su Selection.Find
.Text = "^v^v"
.Replacement.Text = "^v"
Baigti su
Selection.Find.Execute Replace:=wdReplaceAll
End Sub
Pirmoji paieškos ir keitimo operacija pašalina galinius tarpus. Paieškos tekstas yra ^w^v, kuris ieško bet kokių tarpų (^w) simbolių prieš klavišą Enter (^v). Šie tarpo simboliai – tarpas, tabuliacija ir pan. – pakeičiami klavišu Enter, kuris pašalina galinius tarpus.
Antroji paieška ir keitimas pašalina dvigubus tarpus. du kartus paspauskite tarpo klavišą, kad ieškotumėte teksto, ir vieną kartą paspauskite tarpo klavišą, kad pakeistumėte tekstą.
Trečioji paieška ir keitimas pašalina dvigubus skirtukus. ^t žymi skirtukų simbolius dialogo lange Rasti ir pakeisti.
Galutinė paieška ir keitimas pašalina tuščias pastraipas. ^v simboliai reiškia klavišą Enter, todėl pakeitus ^v^v į ^v pašalinamos visos tuščios pastraipos.
Ši makrokomanda veikia gerai, bet gali būti geriau. Pavyzdžiui, jis neapdoroja trigubų tarpų ar trijų skirtukų. Norėdami tai padaryti, makrokomandą turėtumėte paleisti antrą kartą. Jei suteiksite programavimo įgūdžių, makrokomandos kodas gali išspręsti šias problemas.