I don't work in Word VBA so I am having trouble.
I have a large document whereby I am trying to iterate through the document and find all words that are in all caps format and change the font color to blue. I have tried a couple for each loops but nothing I can find will stick.
This is simple and not working.
Public Sub AllCapsToBlue()
Dim doc As Document
Set doc = ActiveDocument
For Each eword In doc.Range.Words
If eword.Font.AllCaps = True Then
eword.Font.ColorIndex = wdDarkBlue