Start Free Trial

asked on 4/5/2018

Word VBA: Finding text with a particular color.

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?

Last Comment

4/6/2018

ASKER CERTIFIED SOLUTION

4/5/2018

Blurred text

THIS SOLUTION IS ONLY AVAILABLE TO MEMBERS.

View this solution by signing up for a free trial.

Members can start a 7-Day free trial and enjoy unlimited access to the platform.

See Pricing Options

Start Free Trial

4/5/2018

Here is an example to get font color

Worksheets("Code Sheet").Cells(i, 1).Font.Color

Open in new window

Here is one other example to find out one specific string

    Set c1 = Worksheets("Code Sheet3").Cells.Find(Para_Country)

    If Not c1 Is Nothing Then
        Worksheets("Budget-Report-HO").Cells(3, 5).Value = Worksheets("Code Sheet3").Cells(c1.Row, 2).Value
    Else
        Exit Sub
    End If

Open in new window

4/5/2018

@HuaMinChen Word VBA not Excel VBA

4/6/2018

ASKER

Just perfect, thanks.

4/6/2018

Word or Excel I'm confused...

4/6/2018

ASKER

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

4/6/2018

Maybe the flag "report"

4/6/2018

ASKER

Yes, I already did that.

Microsoft Word

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.

30K

Questions

--

Followers

--

Top Experts

Get a personalized solution from industry experts

Ask the experts

"Invaluable tool for our organization"
Josh Regalski
"This is the best money I have ever spent."
@rwheeler23
"Your help has saved me hundreds of hours of internet surfing."
@fblack61
"Just a dang good service!"
@golferski
"Worth every penny."
Steve Hougom
"It’s been a life saver."
Maria Halt
"Best support site I’ve seen!"
Bob Schneider
"I would be lost without them."
@fblack61
"Saved my job multiple times."
Walt Forbes
"I love this site."
Maria Duwe
"Friendly respectful help."
Andrew Kowtalo
"Such top-notch experts."
@magento
"The best money I have ever spent."
@rwheeler23
"Beyond any comprehensible value"
George Morris
"Invaluable tool for our organization"
Josh Regalski
"This is the best money I have ever spent."
@rwheeler23

Read over 600 more reviews

TRUSTED BY