how can i change the letters to gotic letters

G

Greg Maxey

Sub ScratchMacro()
If MsgBox("Do you mean change the document font with VBA?", vbYesNo,
"Question") = vbYes Then
ActiveDocument.Range.Font.Name = "Franklin Gothic Book"
Else
MsgBox "Try providing enough detail in the question to obtain a meaningful
answer" _
& " or posting in an appropriate group."
End If
End Sub
 
G

Gordon Bentley-Mix

Nice... <g>
--
Cheers!

Gordon Bentley-Mix
Word MVP

Please post all follow-ups to the newsgroup.

Read the original version of this post in the Office Discussion Groups - no
membership required!
 
Top