Word içeriğinizin belli bölümlerindeki fontları ve büyüklüklerini değiştirmek istiyorsunuz bunun için aşağıdaki macro kodunu kullanabilirsiniz.

Sub FontsDegis()
    With ActiveDocument.Content.Find
        .ClearFormatting
        .Replacement.ClearFormatting
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
        .Text = ""
        .Replacement.Text = ""
        .Font.Size = 20
        .Replacement.Font.Size = 14
        .Execute Replace:=wdReplaceAll
        .ClearFormatting
        .Replacement.ClearFormatting
        .Font.Name = "degisecekfontAdi"
        .Replacement.Font.Name = "yenifont"
        .Execute Replace:=wdReplaceAll
    End With
End Sub