G
Guest
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
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