Microsoft Office Forums - View Single Post - Changing all different font sizes by a value

Bird_FAT · 05-20-2009, 11:45 PM

Copy the following VBA code and change the values needed - if you are doing multiple replaces in one go, then copy the code 'from' and 'to' points and paste after the 'to' point and change again. You can repeat the code as many times as needed in one piece of code. (see green notations in the CODE)

Code:

Sub Alter_Text_Size()
'
' Created by Bird_FAT 21/05/2009
'
    Selection.Find.ClearFormatting    '<------Repeat from here
        
    With Selection.Find
        .Text = "*"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .Font.Size = 11                    '<------ Change the Font size
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
        .MatchWildcards = True
    End With
    While Selection.Find.Execute
    Selection.Font.Size = 14            '<------ Change the Font size
    Wend                                     '<------Repeat to here
                                           '<------Paste copied section here
End Sub