06.10.2016, 13:47
|
#3
|
Администратор
Детали профиля (+/-)
Ответов: 42,126
Регистрация: 12.05.2008
Адрес: Тирасполь
Спасибо:4,663/4,982
Не понравилось:136/372
Репутация:
|
Если по словам делать проход, то не понимаю, в чем ошибка *((((
Если я как-то модифицирую значение "Слово", то цикл 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>"
________________
Судьба - совокупность совершенных глупостей человека. Любите и принимайте людей такими, какие они есть.
Если Вас оскорбили - нажимаем "Пожаловаться на это сообщение" слева от поста под аватаром хама.
|
|
|