Default font

[Lasci]

Hi all,
Is it possible to code (in VB) the changing of the default font? I can`t
seem to find much on this...

Thanks!

 

[Jezebel]

There isn't a default font as such. There is a default style, and the
defualt style has a font. Change that.

 

[Lasci]

Hi,

I know how to change it manually, but the coding of setting the default part
is the bit I cannot do....

 

[Jezebel]

activedocument.styles("Normal").font.Name = "Friz Quadrata"

 

[Lasci]

Thanks for this, however this is the same code as I have already tried. It
sets the font in the document, but does not change the default font at all....

 

[Jean-Guy Marcil]

Lasci was telling us:
Lasci nous racontait que :

Thanks for this, however this is the same code as I have already
tried. It sets the font in the document, but does not change the
default font at all....

Try this:

Dim docNew As Document

Set docNormal = NormalTemplate.OpenAsDocument

With docNormal
.Styles("Normal").Font.Name = "Arial"
.Close SaveChanges:=wdSaveChanges
End With


--
Salut!
_______________________________________
Jean-Guy Marcil - Word MVP
(e-mail address removed)
Word MVP site: http://www.word.mvps.org