Font Switching Macro?

[Guest]

I am trying to write a macro that will allow me to switch between whatever
font I am using and the "Symbol" font with a keystroke. I know what the
macro has to do, but I am unsure of the variables to use and what functions
to call up. I know the macro needs to do this:

If Selection.Font.Name does not = "Symbol"
Then
Save the current font name to "OldFont"
Selection.Font.Name = "Symbol"
Else
Selection.Font.Name = OldFont
End If

I know that that's the bare bones of the script, but I can't seem to make it
work. Can anyone give me any advice? Thanks!

 

[Greg Maxey]

It is late and I didn't test throughly, but this seems to work. I am a
beginner with VBA and a better solution is likely to come along.

Sub ToggleFromAnyFontToSymbolandBack()

'Macro created July 25, 2004 by Gregory K. Maxey

Dim OldFont As String
'Ensures the DocVariable is definded
OldFont = "Arial"
If Selection.Font.Name <> "Symbol" Then
'Save current font name to a docvariable
OldFont = Selection.Font.Name
ActiveDocument.Variables("OldFont").Value = OldFont
End If
With Selection.Font
If .Name <> "Symbol" Then
.Name = "Symbol"
Else: Selection.Font.Name = ActiveDocument.Variables("OldFont").Value
End If
End With
End Sub