Default Font & Size

[richbrowncardiff]

Hi all,

 

Do you know of a way to set the default font & size in Excel and word 2010 ?

 

All users have roaming profiles so need a way of putting in in all profiles I think?

 

I have the adm templates for group policy but cant see anywhere to set this ?

 

as always help much appreciated

Many thanks

[featured_spectre]

I have a macro which I load at start up. I'm out of office for the week but when I'm back I can post it up for you.

[richbrowncardiff]

Thanks Nephilim that would be great

[featured_spectre]

The macro defaults it to arial 10.5 single spacing (I believe). Add it to the template in the office folder (normal.dotx) and it should be golden.

[featured_spectre]

here is the subroutine for it.

 

Sub ChangeFont()
   With ActiveDocument.Styles("Normal").Font
       .Name = "Arial"
       .Size = 10.5
       .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
   With ActiveDocument.Styles("Normal")
       .AutomaticallyUpdate = False
       .BaseStyle = ""
       .NextParagraphStyle = "Normal"
   End With
End Sub

[featured_spectre]

@richbrowncardiff did this work for you?

[richbrowncardiff]

Like a charm ! thanks very much

[zbjsy]

here is the subroutine for it.

 

Sub ChangeFont()
   With ActiveDocument.Styles("Normal").Font
       .Name = "Arial"
       .Size = 10.5
       .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
   With ActiveDocument.Styles("Normal")
       .AutomaticallyUpdate = False
       .BaseStyle = ""
       .NextParagraphStyle = "Normal"
   End With
End Sub

 

how do you apply this? thank you

[featured_spectre]

load up your normal.dot file, press ALT+F11, paste the code into the VB, save it, restart word. Enjoy.

[zbjsy]

how do you then put this across the network ?

[featured_spectre]

not sure on network wide without replacing all of the normal.dot files.