Как да напишете макроси за почистване на документи в Word 2016

Преди това окончателно запазване или всеки път, когато работите върху голям документ в Word 2016, помислете за почистване на документа. Това е процес, който включва търсене на измамни герои и друг проблематичен текст.

Процедурата за почистване на документ включва търсене на крайни интервали в края на абзаци, двойни интервали, двойни табулатори и двойни клавиши Enter (празни абзаци). Това са всички елементи, които трябва да се избягват, но те така или иначе се озовават в дълги документи.

Процесът на елиминиране на тези нежелани елементи включва използването на диалоговия прозорец Find and Replace. Трябва да използвате бутона Special, за да въведете специални знаци, като интервал, табулатор и Enter.

Макросът, създаден за извършване на задачата за почистване на документа, записва натисканията на клавиши, използвани за търсене и замяна на различните знаци. Тогава Visual Basic Editor беше използван за премахване на част от излишния код. Ето резултата:

Sub document_cleanup()

'

' document_cleanup Макрос

' Премахване на крайни интервали и двойни интервали, табулации и клавиши Enter

'

Selection.HomeKey Unit:=wdStory

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

' Премахнете крайните интервали от абзац

с Selection.Find

.Текст = "^w^v"

.Замяна.Текст = "^v"

.Напред = Вярно

Край с

Selection.Find.Execute Replace:=wdReplaceAll

' Премахване на двойни интервали

С Selection.Find

>.Text = " "

.Replacement.Text = " "

Край с

Selection.Find.Execute Replace:=wdReplaceAll

' Премахнете двойните раздели

С Selection.Find

.Text = "^t^t"

.Replacement.Text = " ^t"

Край с

Selection.Find.Execute Replace:=wdReplaceAll

' Премахнете двойните клавиши Enter (празни абзаци)

С Selection.Find

.Text = "^v^v"

.Replacement.Text = "^v"

Край с

Selection.Find.Execute Replace:=wdReplaceAll

End Sub

Първата операция за търсене и замяна премахва крайните интервали. Текстът за търсене е ^w^v, който търси всякакви бели символи (^w) преди клавиша Enter (^v). Тези празни знаци — интервал, табулация и т.н. — се заменят с клавиша Enter, който премахва крайните интервали.

Второто търсене и замяна премахва двойните интервали. натиснете интервала два пъти за текста за търсене и натиснете интервала един път за заместващия текст.

Третото търсене и замяна премахва двойните раздели. ^t представлява табулаторни знаци в диалоговия прозорец Намиране и замяна.

Окончателното търсене и замяна премахва празните абзаци. Знаците ^v представляват клавиша Enter, така че заместването на ^v^v с ^v премахва всички празни абзаци.

Този макрос работи добре, но може да е по-добре. Например, той не обработва тройни интервали или тройни табулатори. За това ще трябва да стартирате макроса втори път. Ако предоставите таланта за програмиране, кодът на макроса може да реши тези проблеми.