Setting font back to default in macro??

M

ML

I have a macro that based on certain conditions changes the font to hidden
and changes the color.
Dim fHidden As New Font

'Setup hidden font for marker
fHidden.Hidden = True
fHidden.Bold = True
fHidden.Color = wdColorOrange

a.Insert(Where:=Selection.Range, RichText:=True).Font = fHidden

The issue is that after this is done the font seems to remain set to these
settings when another macro inserts text and doesn't specify a font setting.

a.Insert Where:=Selection.Range, RichText:=True

How can I easily get the font cleared back to the default settings?
 
H

Helmut Weber

Hi,

are you looking for:

<object>.Font.Reset


--
Greetings from Bavaria, Germany

Helmut Weber, MVP WordVBA

Win XP, Office 2003
"red.sys" & Chr$(64) & "t-online.de"
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

issue with styles and formatting 0
Best practice for setting default font settings in Word 2007 2
inserting section break - changing to landscape and then back 4
Outlook 2007 font changing from default setting 0
Data Label Reverts Back to Default Font Size / Color 0
font size changes in macro 3
Unable to change default font setting 8
After Macro runs, no cell activated - what am I missing? 2

Top