Thread: [Solved] Balloon Text font and size macro
View Single Post
 
Old 11-15-2017, 09:01 PM
macropod's Avatar
macropod macropod is offline Windows 7 64bit Office 2010 32bit
Administrator
  
Join Date: Dec 2010
Location: Canberra, Australia
Posts: 22,345
macropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond repute
Default
Try:
Code:
Sub Document_Open()
With ActiveDocument
  With .Styles("Comment Text").Font
    .Name = "Arial"
    .Size = 12
  End With
  With .Styles("Balloon Text").Font
    .Name = "Arial"
    .Size = 12
  End With
End With
End Sub
Add the macro to your Normal template's 'ThisDocument' code module. Implemented that way, the macro will run every time you open any document. When you're not wanting to mark students' work, you might consider changing the macro's name to something else (e.g. FmtBlnAndCmnt) so it doesn't run every time you open any document. Renamed, it will only run if you select it manually.
__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]
Reply With Quote