Выделение пробелов в 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

10   голосов , оценка 3.9 из 5
Похожие ответы