Выделение пробелов в Word - VBA
Формулировка задачи:
Добрый день!
Подскажите как написать макрос который будет просто выделять в документе Word каждый третий или четвертый пробел документа.
К примеру открываю текст, запускаю макрос и он выделяет мне каждый третий пробел в документе, как к примеру через поиск.
Спасибо
Тоесть что то типа:
Создаем переменную а, присваиваем значение 1
Затем цикл передвижения курсора до конца текста, если сивол на положении курсора - пробел, добавляем +1 к а.
Делаем проверку если а = 2 то выделяем пробел желтым цветом и снова сбрасываем а к 1, и так до конца документа, в итоге получаем текст где каждый второй пробел выделен желтым.
Каким образом это интерпретировать в виде макроса для ворд ?
Заранее спасибо
Решение задачи: «Выделение пробелов в Word»
textual
Листинг программы
Sub MagicTextMarker() Const n = 3 'кратность действия замен (натуральное число): 1-й, 4-й, 7-й… Const s = " " 'заменяемый текст (здесь: пробел) 'Const z = " " 'заменяющий текст (здесь: пробел) Dim k As Long 'счётчик (датчик) кратности найденного s Selection.HomeKey wdStory 'перевод курсора в начало документа Word (2000+) With Selection .Find.Text = s 'искомый текст ' .Find.Replacement.Text = z Do While .Find.Execute(Replace:=wdReplaceNone) 'пока находим s k = k + 1 If k Mod n = 1 Then .Range.HighlightColorIndex = wdDarkRed 'пометили найденный текст (s) маркером (здесь: тёмно-красным) Loop End With End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д