We had a colleague in the Chemistry Department, Laura End, who went off to teach in Malaysia. She generously left behind a large number of Chemistry resources but they were all in Clown font – Comic Sans. If you change the font of a document to Grown-Up font, Arial, it won’t change the contents of text boxes so you have to go through changing the contents of text boxes individually.
The following macro will change the contents of all the textboxes in a document to Grown-Up font:
Sub ChangeTextInTextbox() Dim objShape As Shape Dim objDoc As Document Set objDoc = ActiveDocument With objDoc For Each objShape In .Shapes If objShape.Type = msoTextBox Then objShape.TextFrame.TextRange.Font.Name = “Arial” objShape.TextFrame.TextRange.Font.Size = “11” objShape.TextFrame.TextRange.Font.Color = wdColorBlack objShape.TextFrame.TextRange.ParagraphFormat.Alignment = wdAlignParagraphJustify End If Next End With End Sub