<div>
This can be done without a macro by specifying the font formatting, but here is a macro version:<br />

<pre><code id="code-20-39765936-1">Sub BlueCaps()
    With ActiveDocument.Range.Find
        .Font.AllCaps = True
        .Replacement.Font.Color = wdColorBlue
        .Execute Replace:=wdReplaceAll
    End With
End Sub</code></pre>
</div>


This can be done without a macro by specifying the font formatting, but here is a macro version:


Sub BlueCaps()
    With ActiveDocument.Range.Find
        .Font.AllCaps = True
        .Replacement.Font.Color = wdColorBlue
        .Execute Replace:=wdReplaceAll
    End With
End Sub

<div>
<div class="content wysiwyg-content">
I don't work in Word VBA so I am having trouble.<br />
<br />
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. &nbsp;I have tried a couple for each loops but nothing I can find will stick.<br />
<br />
This is simple and not working.<br />
<br />
Public Sub AllCapsToBlue()<br />
<br />
&nbsp; Dim doc As Document<br />
<br />
&nbsp; &nbsp;Set doc = ActiveDocument<br />
&nbsp; &nbsp; <br />
&nbsp;For Each eword In doc.Range.Words<br />
&nbsp; &nbsp; <br />
&nbsp; &nbsp; &nbsp; If eword.Font.AllCaps = True Then<br />
&nbsp; &nbsp; &nbsp; <br />
&nbsp; &nbsp; &nbsp; &nbsp;eword.Font.ColorIndex = wdDarkBlue<br />
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <br />
&nbsp; &nbsp;End If<br />
&nbsp; &nbsp;<br />
&nbsp;Next eword<br />
End Sub
</div>
</div>


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
            
   End If
   
 Next eword
End Sub

word change text color to blue in words with all caps

Microsoft Word is a commercial document editing program that is part of the Microsoft Office suite. It features numerous text-editing tools for creating richly formatted documents, along with tools for the use of macros in Word documents. Word's native file formats are denoted either by a .doc or .docx file extension. Plugins permitting the Windows versions of Word to read and write formats it does not natively support, such as the OpenDocument format (ODF) are available. Word can import and display images in common bitmap formats such as JPG and GIF. It can also be used to create and display simple line-art.

Microsoft Word

Microsoft Office is an integrated suite of applications that includes Outlook, Word, Excel, Access, PowerPoint, Visio and InfoPath, along with a number of tools to assist in making the individual components work together. Coding within and between the projects is done in Visual Basic for Applications, known as VBA.