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

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

Sub ColorThirdLetter()
Dim i As Integer
Dim j As Integer

For i = 1 To ActiveDocument.Words.Count
For j = 1 To Len(ActiveDocument.Words(i))
If j = 3 Then
Selection.Start = ActiveDocument.Words(i).Start + j - 1
Selection.End = ActiveDocument.Words(i).Start + j
Selection.Font.ColorIndex = wdRed
End If
Next j
Next i
End Sub

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

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