Как написать макрос, который бы в выделенной области менял цвет всех заглавных букв текста на красный, а строчных на черный.
Вот небольшой макрос, который решает этот вопрос:
Sub colorCase3()
'Применение к первым заглавным буквам красного цвета, а к строчным - черного цвета
Dim fChar As Range
Dim selText As Range
Set selText = Selection.Range
If Selection.Type = wdSelectionIP Then
MsgBox "Не выделен текст"
Else
For Each fChar In selText.Words
fChar.Font.Color = wdColorBlack
If fChar.Characters.First Like "[A-ЯA-Z]" Then
fChar.Characters.First.Font.Color = wdColorRed
End If
Next fChar
End If
End Sub
Выделите текст и примените этот макрос.
Вопрос: а если нужно применить цвет ко всем найденным в выделенном тексте заглавным буквам (даже внутри слова), какой код макроса должен быть в этом случае?
Ссылки по теме