Hi,

I am trying to record a Macro that I can send out to all the users within my
company. I need the macro to, once it's run, set the users default font to
Arial and Size 11.

I have tried recording this Macro myself, setting the default Font and Size
in the typical way (Format - Font - Default...). However, I tried testing
this on my own PC but it doesn't appear to do anything.

This is the VB Script after I recorded the Macro:

Sub Macro1()
'
' Macro1 Macro
' Macro recorded 8/8/2005 by Adam
'
With ActiveDocument.Styles(wdStyleNormal).Font
.Name = "Arial"
.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
.Spacing = 0
.Scaling = 100
.Position = 0
.Kerning = 0
.Animation = wdAnimationNone
End With
End Sub

Any Idea's?

many Thanks in advance

Your macro is trying to redefine the normal style only in the
ActiveDocument. Even if you can get people to run it, it won't make changes
to their normal template. You haven't said what sort of organisation you're
in, but trying to distribute code like this is *ought* to be prevented
anyway --- if you can do it, so can a virus. If you're trying to achieve
graphic consistency for the organisation, create a template that contains
the styles you want people to use, and distribute that.





"Cokes" wrote in message
...
Hi,

I am trying to record a Macro that I can send out to all the users within
my
company. I need the macro to, once it's run, set the users default font to
Arial and Size 11.

I have tried recording this Macro myself, setting the default Font and
Size
in the typical way (Format - Font - Default...). However, I tried testing
this on my own PC but it doesn't appear to do anything.

This is the VB Script after I recorded the Macro:

Sub Macro1()
'
' Macro1 Macro
' Macro recorded 8/8/2005 by Adam
'
With ActiveDocument.Styles(wdStyleNormal).Font
.Name = "Arial"
.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
.Spacing = 0
.Scaling = 100
.Position = 0
.Kerning = 0
.Animation = wdAnimationNone
End With
End Sub

Any Idea's?

many Thanks in advance