Posted inGeneral

Macro to find and replace Font with size in MS Word 2007

July 4, 2012No Comments

This will search for Times New Roman font with 12 size and it will replace with font size 10.

 

 

 

Sub FindReplaceStyle()

    With ActiveDocument.Content.Find

        .ClearFormatting

 

        With .Font

         .Name = “Times New Roman”

          Size = 12

        End With

 

        .Format = True

 

        With .Replacement

            .ClearFormatting

            With .Font

             .Size = 10

            End With

        End With

 

        .Execute Forward:=True, Replace:=wdReplaceAll, _

            FindText:=””, ReplaceWith:=””

    End With

End Sub

 

.