Change font

Is there a way to change the font of every text box in all the pages of a document?

thanks

[Alex]

Originally Posted by Manuel

Is there a way to change the font of every text box in all the pages of a document?

thanks

Here is how you would do that:

Sub ChangeAllFonts()
    Dim p As Page
    Dim s As Shape
    
    For Each p In ActiveDocument.Pages
        For Each s In p.SelectableShapes.FindShapes(, cdrTextShape)
            s.Text.Story.Font = "Times New Roman"
        Next s
    Next p
End Sub

WOW! Thanks, Alex.
The VBA help wasn't very helpful on this.
This is what it says

"The Story property returns all of the text from all of the text frames.
The Story property returns a read-only value".

Alex,

Thanks for your code! I have a question for you : do you know how to add the option for a dropdown menu, allowing to select the font face needed (instead of having a fix "Times New Roman" like in this example)? I just need the font face type.

[ddonnahoe]

Are you looking to populate the drop-down list with currently installed fonts? If so you would add a ComboBox to your form (let's call this "cbxFonts"), then in the userform initialization section of your code you would add this...

Private Sub UserForm_Initialize()
    Dim n As Long
    
    For n = 1 To FontList.Count
        cbxFonts.AddItem FontList(n)
    Next n
End Sub

Originally Posted by Alex

Here is how you would do that:

Sub ChangeAllFonts()
    Dim p As Page
    Dim s As Shape
    
    For Each p In ActiveDocument.Pages
        For Each s In p.SelectableShapes.FindShapes(, cdrTextShape)
            s.Text.Story.Font = "Times New Roman"
        Next s
    Next p
End Sub

If the text in powerclip it doesnt work.