D
DeeDeeCee
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
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