<div>
Here is an example to get font color<br />
<br />

<pre><code id="code-20-42523315-1">Worksheets(&quot;Code Sheet&quot;).Cells(i, 1).Font.Color</code></pre>
Here is one other example to find out one specific string<br />
<br />

<pre><code id="code-20-42523315-2">    Set c1 = Worksheets(&quot;Code Sheet3&quot;).Cells.Find(Para_Country)

    If Not c1 Is Nothing Then
        Worksheets(&quot;Budget-Report-HO&quot;).Cells(3, 5).Value = Worksheets(&quot;Code Sheet3&quot;).Cells(c1.Row, 2).Value
    Else
        Exit Sub
    End If</code></pre>
</div>


<div>
@HuaMinChen Word VBA not Excel VBA
</div>


<div>
Word or Excel I'm confused...
</div>


<div>
Sorry, wrong answer accepted. I cannot find the request attention button.
</div>


<div>
Maybe the flag &quot;report&quot;
</div>


<div>
<div class="content wysiwyg-content">
Can someone give me code to get the font color at the current cursor position and then look for the next text with the same color?
</div>
</div>


Can someone give me code to get the font color at the current cursor position and then look for the next text with the same color?

Here is an example to get font color

(CODE)
Here is one other example to find out one specific string

(CODE)

Sorry, wrong answer accepted. I cannot find the request attention button.

Word VBA: Finding text with a particular color.

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.