Makro Word nie zaznacza sformatowanych kolorem wyrażeń

Question

Nie znam VBA i nie umiem znaleźć przyczyny mojego problemu

Sub Makro1()
'
' Makro1 Makro
'
'
    Selection.Find.ClearFormatting
    Selection.Find.Font.Color = 34816
    With Selection.Find
        .Text = ""
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
End Sub

. Makro w Wordzie 2016, zapisane rejestratorem makr, po uruchomieniu nie zaznacza sformatowanych kolorem słów,  nic się nie dzieje. Może rejestrator coś pomija?

Comments

Using MS Word VBA how to Find and Replace highlighted text with the value of the highlight color

---

Hey, thanks, but my problem is something else. I will say it differently:

Using MS Word VBA how to Find and Select text  formatted with the color e.g. RGB(0,100,0)?

Answer 1

How Can I Search For (and Reformat) Highlighted Text in a Word Document?

Hey, Scripting Guy! How can I find text in a Word document that has been highlighted in a particular color (say, turquoise), and ...

Finding Text Using a Specific Highlighting Color

The only way around this is to use a macro to do the finding. VBA allows you to detect the color used to highlight text, which is why this approach will work. The following macro uses Find and Replace to do the finding, but then it checks to see what the HighlightColorIndex property is for what was found. If it is equal to wdYellow (an enumeration for the color yellow), then the text is selected and the macro is exited.

 

Sub FindNextYellow()
    With Selection.Find
        .ClearFormatting
        .Replacement.ClearFormatting
        .Text = ""
        .MatchWildcards = False
        .Forward = True
        .Wrap = wdFindContinue
        .Highlight = True
        Do
            .Execute
        Loop Until Selection.Range.HighlightColorIndex = wdYellow Or Not .Found
        Selection.Range.Select
    End With
End Sub

You can search for different colors simply by changing the wdYellow enumeration to the enumeration for whatever color you want.

Range.HighlightColorIndex property (Word)

Word: Find highlighted text

 

Comments

Hey, thanks, but my problem is something else. I will say it differently:

Using MS Word VBA how to Find and Select text  formatted with the color e.g. RGB(0,100,0)?

---

Determining the RGB Value of a Color
Custom RGB color value for highlighted text

---

Thank you, the code works fine. But I want to select all expressions written with font, e.g. green (0,136,0). This is different from highlighting. How do I change the macro to solve my case?