Home |
Search |
Today's Posts |
#1
|
|||
|
|||
Word XP - Recording a Macro
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 |
#2
|
|||
|
|||
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 |
Reply |
Thread Tools | |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
apply a template to existing documents | Page Layout | |||
Does Word have Keyboard Merges like Word Perfect does? | Mailmerge | |||
Word2000 letterhead merge | Mailmerge | |||
is word perfect compatible with office word? | Microsoft Word Help | |||
Wordperfect Office 2000 conversion to Word 2003 | New Users |