Имеееться текст New Roman Cyr,14pt. Нужно сотворить макрос, который будет делать следуйщее: Слова, написаные полужирным шрифтом, дополняет крассным цветом делает двойное подчёркивание. Никогда не стыкалась с Visual Basic, потому для меня это не понятно. О, великие мудрецы программирования, склоняюсь перед вашей величественостью;)
Да пожалуйста:)
Sub macros()
'Берем текст нашего документа текущего
Set Content = ActiveDocument.Content
'Слова в нем
Set Words = Content.Words
'Теперь бегаем по всем словам
For i = 1 To Words.Count
Set currentWord = Words.Item(i)
'Проверяем не жирный ли шрифт, тут можно проверять чего угодно, там вариантов масса
If currentWord.Font.Bold = True Then
'устанавливаем цвет для данного слова
currentWord.Font.Color = wdColorRed
'и подчеркиваем дважды
currentWord.Font.Underline = wdUnderlineDouble
End If
Next
End Sub
Вот как-то так. У меня сработало, будут ошибки, обращайтесь. Возможно есть даже функции, которые выдают массив слов в тексте по определенному критерию и работают естественно быстрее, поэтому, могу сказать, что код не оптимальный.