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

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@discussions.microsoft.com> wrote in message 
news:F3480578-8040-4E97-B600-6B3DB52F2DBB@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