Преди това окончателно запазване или всеки път, когато работите върху голям документ в 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 премахва всички празни абзаци.
Този макрос работи добре, но може да е по-добре. Например, той не обработва тройни интервали или тройни табулатори. За това ще трябва да стартирате макроса втори път. Ако предоставите таланта за програмиране, кодът на макроса може да реши тези проблеми.