A macro to increase line spacing

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
 
D

Doug Robbins - Word MVP

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.
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

TOC Help 0
TOC Problem 0
set hanging indent for second TOC 1
Table of Content 1
TOC problem 0
TOC Question 3
Macro Error 3
Converting Visual Basic inside Word Document to VBScript 2

Top