Prev: Changing Constants in several macros in one go
Next: AutoOpen() doesn't run!
From: DeeDeeCee on 17 Jan 2010 16:04
I'm trying to make a macro on my Word 2007 "Quick Access Toolbar" that will
add 6 points after each line that I've selected. When I record a macro to do
this, it adds the 6 points fine, but then sets the indent at "0", which was
what the paragraph had when I recorded the macro. What I'd like it to do is
ignore the indent of whatever paragraph I'm using the macro on, leave it as
it is, and just add 6 points. Any suggestions how to do that?

Here is how the Macro reads in VB--perhaps if I alter some of the parameters
that would do it. Thanks for any help.

Sub SpaceAdd()
'
' SpaceAdd Macro
'
'
With Selection.ParagraphFormat
.LeftIndent = InchesToPoints(0)
.RightIndent = InchesToPoints(0)
.SpaceBefore = 0
.SpaceBeforeAuto = False
.SpaceAfter = 6
.SpaceAfterAuto = False
.LineSpacingRule = wdLineSpaceSingle
.Alignment = wdAlignParagraphLeft
.WidowControl = True
.KeepWithNext = False
.KeepTogether = False
.PageBreakBefore = False
.NoLineNumber = False
.Hyphenation = True
.FirstLineIndent = InchesToPoints(0)
.OutlineLevel = wdOutlineLevelBodyText
.CharacterUnitLeftIndent = 0
.CharacterUnitRightIndent = 0
.CharacterUnitFirstLineIndent = 0
.LineUnitBefore = 0
.LineUnitAfter = 0
.MirrorIndents = False
.TextboxTightWrap = wdTightNone
.ReadingOrder = wdReadingOrderLtr
End With
End Sub
From: Doug Robbins - Word MVP on 17 Jan 2010 16:38
Delete the line of code that is doing the thing that you do not want done.
That is

.LeftIndent = InchesToPoints(0)


--
Hope this helps,

Doug Robbins - Word MVP

Please reply only to the newsgroups unless you wish to obtain my services on
a paid professional basis.

"DeeDeeCee" <DeeDeeCee(a)discussions.microsoft.com> wrote in message
news:F3480578-8040-4E97-B600-6B3DB52F2DBB(a)microsoft.com...
> I'm trying to make a macro on my Word 2007 "Quick Access Toolbar" that
> will
> add 6 points after each line that I've selected. When I record a macro to
> do
> this, it adds the 6 points fine, but then sets the indent at "0", which
> was
> what the paragraph had when I recorded the macro. What I'd like it to do
> is
> ignore the indent of whatever paragraph I'm using the macro on, leave it
> as
> it is, and just add 6 points. Any suggestions how to do that?
>
> Here is how the Macro reads in VB--perhaps if I alter some of the
> parameters
> that would do it. Thanks for any help.
>
> Sub SpaceAdd()
> '
> ' SpaceAdd Macro
> '
> '
> With Selection.ParagraphFormat
> .LeftIndent = InchesToPoints(0)
> .RightIndent = InchesToPoints(0)
> .SpaceBefore = 0
> .SpaceBeforeAuto = False
> .SpaceAfter = 6
> .SpaceAfterAuto = False
> .LineSpacingRule = wdLineSpaceSingle
> .Alignment = wdAlignParagraphLeft
> .WidowControl = True
> .KeepWithNext = False
> .KeepTogether = False
> .PageBreakBefore = False
> .NoLineNumber = False
> .Hyphenation = True
> .FirstLineIndent = InchesToPoints(0)
> .OutlineLevel = wdOutlineLevelBodyText
> .CharacterUnitLeftIndent = 0
> .CharacterUnitRightIndent = 0
> .CharacterUnitFirstLineIndent = 0
> .LineUnitBefore = 0
> .LineUnitAfter = 0
> .MirrorIndents = False
> .TextboxTightWrap = wdTightNone
> .ReadingOrder = wdReadingOrderLtr
> End With
> End Sub

 | 
Pages: 1
Prev: Changing Constants in several macros in one go
Next: AutoOpen() doesn't run!