[PMR]

Если по словам делать проход, то не понимаю, в чем ошибка *((((
Если я как-то модифицирую значение "Слово", то цикл For Each не переходит на следующее слово ((

Sub Макрос1()

Debug.Print ActiveDocument.ComputeStatistics(0)
Dim tmpstr As String

Dim Слово As Word.Range
For Each Слово In ActiveDocument.Words

If Слово.Font.Size = 14 Then
Слово.Text = "<b>" & Слово & "</b>"

End If
Next Слово

End Sub

Получается цикл и такой результат"<b><</b>b>1111111111111</b>"
Потом
"<b><</b>b><</b>b><</b>b><</b>b><</b>b>1111111111111</b>"