Kaip parašyti dokumentų valymo makrokomandas „Word 2016“.

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.