Changing all different font sizes by a value

Bird_FAT · #2 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

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Type spacing and point sizes in Word	funky	Word	3	01-14-2009 09:18 PM
Font colors	JerryB	Excel	1	11-30-2008 10:23 AM
need help with font color	samsongee	Word	0	09-07-2006 10:18 PM
IRR with Changing Signs	aml480	Excel	0	03-16-2006 11:27 PM
Font Problem with Richtextbox in MS Access Report	surendrababu	Office	2	11-29-2005 02:11 AM