Пре тог коначног чувања или било када када радите на великом документу у програму Ворд 2016, размислите о чишћењу документа. То је процес који укључује тражење лажних ликова и другог проблематичног текста.
Рутина чишћења документа укључује тражење празних размака на крају пасуса, двоструких размака, двоструких табова и двоструких тастера Ентер (празних пасуса). Све су то ставке које треба избегавати, али ионако завршавају у дугим документима.
Процес елиминисања ових нежељених елемената укључује коришћење оквира за дијалог Финд анд Реплаце. Потребно је да користите дугме Специјално да бисте унели посебне знакове, као што су размак, табулатор и Ентер.
Макро креиран за обављање посла чишћења документа забележио је притиске тастера који се користе за претрагу и замену различитих знакова. Затим је коришћен Висуал Басиц Едитор да се уклони део сувишног кода. Ево резултата:
Суб доцумент_цлеануп()
'
' доцумент_цлеануп Мацро
' Уклони размаке на
крају и двоструке размаке, табулаторе и тастере Ентер
'
Селецтион.ХомеКеи Унит:=вдСтори
Селецтион.Финд.ЦлеарФорматтинг
Селецтион.Финд.Реплацемент.ЦлеарФорматтинг
' Уклоните размаке на крају из пасуса
помоћу Селецтион.Финд
.Тект = "^в^в"
.Реплацемент.Тект = "^в"
.Форвард = Тачно
Завршити
Селецтион.Финд.Екецуте Реплаце:=вдРеплацеАлл
' Уклони двоструке размаке
Са Селецтион.Финд
>.Тект = " "
.Реплацемент.Тект = " "
Заврши са
Селецтион.Финд.Екецуте Реплаце:=вдРеплацеАлл
' Уклоните дупле картице
Са
избором. Пронађи .Тект = "^т^т"
.Реплацемент.Тект = " ^т"
Завршите са
Селецтион.Финд.Екецуте Реплаце:=вдРеплацеАлл
' Уклоните двоструке тастере Ентер (празне пасусе)
Са
избором. Пронађи .Тект = "^в^в"
.Реплацемент.Тект = "^в"
Завршити
Селецтион.Финд.Екецуте Реплаце:=вдРеплацеАлл
Енд Суб
Прва операција претраге и замене уклања размаке на крају. Текст за претрагу је ^в^в, који тражи било који размак (^в) пре тастера Ентер (^в). Ови размаци — размак, табулатор и тако даље — замењују се тастером Ентер, који уклања размаке на крају.
Друга претрага и замена уклања двоструке размаке. двапут притисните размакницу за текст за претрагу и једном притисните размакницу за замјенски текст.
Трећа претрага и замена уклања двоструке картице. ^т представља знакове табулатора у дијалогу Финд анд Реплаце.
Коначна претрага и замена уклања празне пасусе. Знакови ^в представљају тастер Ентер, тако да замена ^в^в са ^в уклања све празне пасусе.
Овај макро ради добро, али може бити и боље. На пример, не обрађује троструке размаке или троструке табове. За то бисте морали да покренете макро други пут. Ако обезбедите таленат за програмирање, код макроа може да реши те проблеме.