How I can change the default font size in normal.dot via VBA

L

Leila

Hi There I need to change the default font from Times New Roman 12 pt to
Times New Roman 11 pt in Normal.dot. I know how do to that manually but I
need to change the font by VBA in a master template and then update all the
users Normal.dots by pushing out the master template. would you please let me
know what I'm doing wrong in below code any help would be appreciated.
Many Thanks,
Leila

Sub AutoExec()
'
'
'
Font
End Sub

--------------------

Sub Font()

With ActiveDocument.AttachedTemplate.Styles("Normal").Font
.Name = "Times New Roman"
.Size = 11
.Bold = False
.Italic = False
.Underline = wdUnderlineNone
.UnderlineColor = wdColorAutomatic
.StrikeThrough = False
.DoubleStrikeThrough = False
.Outline = False
.Emboss = False
.Shadow = False
.Hidden = False
.SmallCaps = False
.AllCaps = False
.Color = wdColorAutomatic
.Engrave = False
.Superscript = False
.Subscript = False
.Scaling = 100
.Kerning = 0
.Animation = wdAnimationNone
End With
'Selection.Style = ActiveDocument.Styles("Normal")
End Sub
 
G

Graham Mayor

No! Leave users' normal.dot files to the users. Provide document templates
with the required formatting for company documents.

--
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
Graham Mayor - Word MVP


<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
 
L

Leila

Hi Graham, we have all those settings in our organization but we are using a
third party software that opens a new document based on normal.dot and no
matter what I do I still get font 12 as the default font.
it was 11 before and for some reasons the default font has changed to 12 and
we HAVE TO change it back to 11. Please let me know if you know any solution
that I can change the default font on all normal.dots without changing any
other of the users customizations.
 

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

Top