Not doing color and bold

Question

Not doing color and bold

SteveD 625

Hello from Steve

The below script is not doing color and bold.

What is required please.

Sub Test()

Selection.Find.ClearFormatting

With Selection.Find

    .Text = "          0.0"

    .Replacement.Text = "   Test  0.0"

    .Forward = True

    .Wrap = wdFindContinue

    .Format = False

    .MatchCase = False

    .MatchWholeWord = False

    .MatchWildcards = False

    .MatchSoundsLike = False

    .MatchAllWordForms = False

End With

Selection.Font.Color = wdColorRed

Selection.Font.Bold = True

Selection.Find.Execute Replace:=wdReplaceAll

End Sub

Charles Kenyon 171.1K Reputation points Volunteer Moderator

2026-03-01T06:11:26.27+00:00

Keep in mind that Bold is a toggle characteristic. If text is already bold, you are setting it to be not bold.

You would be ahead using a character style that is Bold and red.
SteveD 625 Reputation points

2026-03-01T18:52:42.36+00:00

Hello Charles

I understand.

All the Best.

Steve

1 answer

Your answer

Charles Kenyon 171.1K Reputation points Volunteer Moderator

2026-03-01T06:11:26.27+00:00

Keep in mind that Bold is a toggle characteristic. If text is already bold, you are setting it to be not bold.

You would be ahead using a character style that is Bold and red.
SteveD 625 Reputation points

2026-03-01T18:52:42.36+00:00

Hello Charles

I understand.

All the Best.

Steve

Answer 1

Move the formatting into the Find/Replacement operation and turn on .Format. For example:

Sub Test()

    With Selection.Find
        .ClearFormatting
        .Replacement.ClearFormatting

        .Text = "          0.0"
        .Replacement.Text = "   Test  0.0"

        ' Tell Word this is a formatted Find/Replace
        .Format = True

        ' Set formatting to apply to the replacement text
        With .Replacement.Font
            .Color = wdColorRed
            .Bold = True
        End With

        .Forward = True
        .Wrap = wdFindContinue
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False

        .Execute Replace:=wdReplaceAll
    End With

End Sub

Key points:

Selection.Font.Color and Selection.Font.Bold only affect the current selection, not the text being replaced by Find.Execute.
Use .Replacement.Font and set .Format = True so that the Find/Replace operation applies the color and bold formatting to the replacement text.

References: