How to I set the default Font values using code.

[Cresta]

Hello all
I currently have the following code which set the font properties for the
current document.

With applicationObject.ActiveDocument.Styles("Normal").Font
.Name = "Tahoma"
.Size = 20
.Bold = 0
.Italic = 0
.Underline = 0
End With

But when I close the active document and open a new one the settings have
reverted to the original Word values.

How to I set the default Font values using code.

Thanks

 

[Stefan Blom]

The code you have been using sets the defaults of the Normal style for the
current document. To copy the style to the attached template, you would
have to also make use of the OrganizerCopy method. For example:

Application.OrganizerCopy Source:=ActiveDocument.FullName, _
Destination:=ActiveDocument.AttachedTemplate.FullName, _
Name:="Normal", Object:=wdOrganizerObjectStyles

(Note that I have made use of the global Application and ActiveDocument
properties in Word VBA. They won't work if you are automating Word from a
different application, as you probably already know.)

 

[Cresta]

Thanks Stefan, worked a treat

The code you have been using sets the defaults of the Normal style for the
current document. To copy the style to the attached template, you would
have to also make use of the OrganizerCopy method. For example:

Application.OrganizerCopy Source:=ActiveDocument.FullName, _
Destination:=ActiveDocument.AttachedTemplate.FullName, _
Name:="Normal", Object:=wdOrganizerObjectStyles

(Note that I have made use of the global Application and ActiveDocument
properties in Word VBA. They won't work if you are automating Word from a
different application, as you probably already know.)

 

[Stefan Blom]

I'm glad I could help.