Word Replace All not functioning

Question

Hello from Steve

Replace All not functioning

What is required please for the below script to function

Sub Test()

Selection.Find.Replacement.ClearFormatting

With Selection.Find

    .Text = "$"

    .Replacement.Text = "$"

    .Forward = True

    .Wrap = wdFindContinue

    .Format = True

    .MatchCase = False

    .MatchWholeWord = False

    .MatchWildcards = False

    .MatchSoundsLike = False

    .MatchAllWordForms = False

End With

Selection.Find.Execute

With Selection.Find.Font

    .Size = 14.5

    .Bold = True

    .Color = 12611584

End With

Selection.MoveDown Unit:=wdLine, Count:=1

Selection.Find.Execute Replace:=wdReplaceAll

End Sub

Answer 1

Looks like this is not working because you are changing the Find.Font after running an initial .Execute, and you are never defining the Replacement formatting. ReplaceAll applies whatever is configured in .Replacement, not what you set on Find.Font. You also do not need to run a first .Execute or move the selection. Configure everything first, including .Replacement.Font, then run one ReplaceAll.

Try this structure instead:

Sub Test()

Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting

With Selection.Find
    .Text = "$"
    .Replacement.Text = "$"
    .Forward = True
    .Wrap = wdFindContinue
    .Format = True
    .MatchCase = False
    .MatchWholeWord = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False

    .Replacement.Font.Size = 14.5
    .Replacement.Font.Bold = True
    .Replacement.Font.Color = 12611584

    .Execute Replace:=wdReplaceAll
End With

End Sub

---

If the above response helps answer your question, remember to "Accept Answer" so that others in the community facing similar issues can easily find the solution. Your contribution is highly appreciated.

hth

Marcin

Answer 2

Hello MarcinI have done what you asked meaning accept answer

When I tap the accept answer it changes it to Unaccept answer.

Steve