I am using Publisher 2007 with Vista. As part of a macro, I wish to change
the font associated with the Normal style for a document. The following code
(copied from reference manual) runs but does not do anything.
With ActiveDocument.TextStyles("Normal").Font
.Name = "Tahoma"
.Italic = True
.Size = 15
End With
Does anybody understand why?
Ed Bennett - 02 Jan 2008 02:18 GMT
> With ActiveDocument.TextStyles("Normal").Font
For some reason, you have to do it like this:
Dim aFont As Font
Set aFont = ActiveDocument.TextStyles("Normal").Font
With aFont
.Name = "Tahoma"
.Italic = True
.Size = 15
End With
ActiveDocument.TextStyles("Normal").Font = aFont

Signature
Ed Bennett - MVP Microsoft Publisher
http://ed.mvps.org