Макрос. Добавление текста к жирным словам - 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

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

12 голосов , оценка 3.917 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы