Microsoft Office Forums - View Single Post

Charles Kenyon · 08-01-2018, 09:51 AM

You do not need the Select All.

You really should be using styles for your formatting. You would find it a lot simpler.

The recorder does not handle everything, by any means.

This should get you started:

Code:

Sub Macro1()
'
' Macro1 Macro
'
'
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ""
        .Font.Name = "Garamond"
        .Replacement.Text = ""
        .Replacement.Font.Name = "Arial Narrow"
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub