Макрос. Добавление текста к жирным словам - VBA

Формулировка задачи:

Пытаюсь сделать макрос, но не понимаю в чем ошибка. Если слово написано жирным (Bold = True), то добавить к нему теги... На выходе:

<<b<<b>b>>b>1111111111111

Сам макрос.

Sub Макрос1()
 
Dim Слово As String
 
For i = 1 To ActiveDocument.Range.Words.Count
 
If ActiveDocument.Words.Item(i).Font.Bold = True Then
ActiveDocument.Words.Item(i) = "<b>" & ActiveDocument.Words.Item(i) & "</b>"
Selection.EndOf
End If
 
Next

End Sub

Как сделать ActiveDocument.Words.Item(i) объектом типа Range или Select ?

Решение задачи: «Макрос. Добавление текста к жирным словам»

textual
                            Листинг программы 
                        
                            Dim objChar As Word.Range
For Each objChar In ActiveDocument.Content.Characters
    
Next