Работа с Word. Закрасить 3-ю букву в каждом слове. Закрасить 3-ю букву в каждом слове WORD
Как это сделать через замену (crtl + H) и возможно ли
Ну или хотя бы через макрос, только там я не понимаю, как обратиться к слову, к символу и тп
Дело в том, что я не нахожу в замене логических ЕСЛИ, И, ИЛИ и пр
Мое представление как макроса
перемещение к любой букв
shift + ->
shift + ->
если (не буква) [ctrl + ->] brea
shift + ->
если (не буква) [ctrl + ->] brea
закрасить в красны
ctrl + ->

Предыдущий
вопрос Следующий
вопрос

К сожалению, в стандартных функциях замены в Microsoft Word нельзя использовать логические операторы или условия. Однако, можно написать макрос, который будет закрашивать 3-ю букву в каждом слове.

Вот пример макроса для этой задачи:

Sub ColorThirdLetter(
Dim i As Intege
Dim j As Integer

For i = 1 To ActiveDocument.Words.Coun
For j = 1 To Len(ActiveDocument.Words(i)
If j = 3 The
Selection.Start = ActiveDocument.Words(i).Start + j -
Selection.End = ActiveDocument.Words(i).Start +
Selection.Font.ColorIndex = wdRe
End I
Next
Next
End Sub

Чтобы использовать этот макрос, скопируйте код и вставьте его в редактор Visual Basic в Word (нажмите Alt + F11). Затем запустите макрос, нажав F5.

Этот макрос будет закрашивать 3-ю букву в каждом слове красным цветом. Вы можете настроить цвет, изменив параметр wdRed на другой цвет из списка цветов Word.