Editing Paragraph Line Spacing using macro; need help - microsoft.public.word.vba.general

I have the following code which should, but does not, change paragraphs that have exactly 24 or 12 pt spacing. Can you advise me as to what is wrong with the code? I can't find anything that addresses the issue in an if statement. I hope someone can help. Sub ParaSpacingFix3() '2. If the paras is set to exactly 12 points ' then make the spacing single spaced. ' If the paras is set to exactly 24 points ' then make the spacing double spaced. Dim par As Paragraph On Error GoTo NextPara For Each par In ActiveDocument.Paragraphs If par.LineSpacingRule = wdLineExactly Then If par.LineSpacing = 24 Then par.LineSpacingRule = wdLineSpaceDouble ElseIf par.LineSpacing = 12 Then par.LineSpacingRule = wdLineSpaceSingle End If End If NextPara: Next End Sub

Use If par.LineSpacingRule = wdLineSpaceExactly Then or If par.LineSpacingRule = 4 Then -- <>>< ><<> ><<> <>>< ><<> <>>< <>><<> Graham Mayor - Word MVP My web site www.gmayor.com Word MVP web site http://word.mvps.org <>>< ><<> ><<> <>>< ><<> <>>< <>><<> "CJ" <CJ@discussions.microsoft.com> wrote in message news:7272BD13-2EFA-4AB1-9DF5-2D856590F6B1@microsoft.com... >I have the following code which should, but does not, change paragraphs >that > have exactly 24 or 12 pt spacing. > > Can you advise me as to what is wrong with the code? I can't find > anything > that addresses the issue in an if statement. I hope someone can help. > > Sub ParaSpacingFix3() > '2. If the paras is set to exactly 12 points > ' then make the spacing single spaced. > ' If the paras is set to exactly 24 points > ' then make the spacing double spaced. > Dim par As Paragraph > > On Error GoTo NextPara > > For Each par In ActiveDocument.Paragraphs > If par.LineSpacingRule = wdLineExactly Then > If par.LineSpacing = 24 Then > par.LineSpacingRule = wdLineSpaceDouble > ElseIf par.LineSpacing = 12 Then > par.LineSpacingRule = wdLineSpaceSingle > End If > End If > > NextPara: > Next > > End Sub

Thank you Graham for pointing out my typo. Works now. I'd love to be able to refer to the linespacing rules values, how do I find out what the other ones are. "Graham Mayor" wrote: > Use > If par.LineSpacingRule = wdLineSpaceExactly Then > or > If par.LineSpacingRule = 4 Then > > -- > <>>< ><<> ><<> <>>< ><<> <>>< <>><<> > Graham Mayor - Word MVP > > My web site www.gmayor.com > Word MVP web site http://word.mvps.org > <>>< ><<> ><<> <>>< ><<> <>>< <>><<> > > > "CJ" <CJ@discussions.microsoft.com> wrote in message > news:7272BD13-2EFA-4AB1-9DF5-2D856590F6B1@microsoft.com... > >I have the following code which should, but does not, change paragraphs > >that > > have exactly 24 or 12 pt spacing. > > > > Can you advise me as to what is wrong with the code? I can't find > > anything > > that addresses the issue in an if statement. I hope someone can help. > > > > Sub ParaSpacingFix3() > > '2. If the paras is set to exactly 12 points > > ' then make the spacing single spaced. > > ' If the paras is set to exactly 24 points > > ' then make the spacing double spaced. > > Dim par As Paragraph > > > > On Error GoTo NextPara > > > > For Each par In ActiveDocument.Paragraphs > > If par.LineSpacingRule = wdLineExactly Then > > If par.LineSpacing = 24 Then > > par.LineSpacingRule = wdLineSpaceDouble > > ElseIf par.LineSpacing = 12 Then > > par.LineSpacingRule = wdLineSpaceSingle > > End If > > End If > > > > NextPara: > > Next > > > > End Sub > > > . >

The values are wdLineSpaceSingle 0 wdLineSpace1pt5 1 wdLineSpaceDouble 2 wdLineSpaceMultiple 2 wdLineSpaceAtLeast 3 wdLineSpaceExactly 4 However using the names makes the macro easier to follow -- <>>< ><<> ><<> <>>< ><<> <>>< <>><<> Graham Mayor - Word MVP My web site www.gmayor.com Word MVP web site http://word.mvps.org <>>< ><<> ><<> <>>< ><<> <>>< <>><<> "Dorak" <Dorak@discussions.microsoft.com> wrote in message news:9A9D60CB-E40A-4F8E-960C-880FB5A24008@microsoft.com... > Thank you Graham for pointing out my typo. Works now. I'd love to be able > to > refer to the linespacing rules values, how do I find out what the other > ones > are. > > "Graham Mayor" wrote: > >> Use >> If par.LineSpacingRule = wdLineSpaceExactly Then >> or >> If par.LineSpacingRule = 4 Then >> >> -- >> <>>< ><<> ><<> <>>< ><<> <>>< <>><<> >> Graham Mayor - Word MVP >> >> My web site www.gmayor.com >> Word MVP web site http://word.mvps.org >> <>>< ><<> ><<> <>>< ><<> <>>< <>><<> >> >> >> "CJ" <CJ@discussions.microsoft.com> wrote in message >> news:7272BD13-2EFA-4AB1-9DF5-2D856590F6B1@microsoft.com... >> >I have the following code which should, but does not, change paragraphs >> >that >> > have exactly 24 or 12 pt spacing. >> > >> > Can you advise me as to what is wrong with the code? I can't find >> > anything >> > that addresses the issue in an if statement. I hope someone can help. >> > >> > Sub ParaSpacingFix3() >> > '2. If the paras is set to exactly 12 points >> > ' then make the spacing single spaced. >> > ' If the paras is set to exactly 24 points >> > ' then make the spacing double spaced. >> > Dim par As Paragraph >> > >> > On Error GoTo NextPara >> > >> > For Each par In ActiveDocument.Paragraphs >> > If par.LineSpacingRule = wdLineExactly Then >> > If par.LineSpacing = 24 Then >> > par.LineSpacingRule = wdLineSpaceDouble >> > ElseIf par.LineSpacing = 12 Then >> > par.LineSpacingRule = wdLineSpaceSingle >> > End If >> > End If >> > >> > NextPara: >> > Next >> > >> > End Sub >> >> >> . >>

Thank you so much Graham, if I see the values like this in the future I will have something to refer to. "Graham Mayor" wrote: > The values are > > wdLineSpaceSingle 0 > > wdLineSpace1pt5 1 > > wdLineSpaceDouble 2 > > wdLineSpaceMultiple 2 > > wdLineSpaceAtLeast 3 > > wdLineSpaceExactly 4 > > > > However using the names makes the macro easier to follow > > > -- > <>>< ><<> ><<> <>>< ><<> <>>< <>><<> > Graham Mayor - Word MVP > > My web site www.gmayor.com > Word MVP web site http://word.mvps.org > <>>< ><<> ><<> <>>< ><<> <>>< <>><<> > > > > > "Dorak" <Dorak@discussions.microsoft.com> wrote in message > news:9A9D60CB-E40A-4F8E-960C-880FB5A24008@microsoft.com... > > Thank you Graham for pointing out my typo. Works now. I'd love to be able > > to > > refer to the linespacing rules values, how do I find out what the other > > ones > > are. > > > > "Graham Mayor" wrote: > > > >> Use > >> If par.LineSpacingRule = wdLineSpaceExactly Then > >> or > >> If par.LineSpacingRule = 4 Then > >> > >> -- > >> <>>< ><<> ><<> <>>< ><<> <>>< <>><<> > >> Graham Mayor - Word MVP > >> > >> My web site www.gmayor.com > >> Word MVP web site http://word.mvps.org > >> <>>< ><<> ><<> <>>< ><<> <>>< <>><<> > >> > >> > >> "CJ" <CJ@discussions.microsoft.com> wrote in message > >> news:7272BD13-2EFA-4AB1-9DF5-2D856590F6B1@microsoft.com... > >> >I have the following code which should, but does not, change paragraphs > >> >that > >> > have exactly 24 or 12 pt spacing. > >> > > >> > Can you advise me as to what is wrong with the code? I can't find > >> > anything > >> > that addresses the issue in an if statement. I hope someone can help. > >> > > >> > Sub ParaSpacingFix3() > >> > '2. If the paras is set to exactly 12 points > >> > ' then make the spacing single spaced. > >> > ' If the paras is set to exactly 24 points > >> > ' then make the spacing double spaced. > >> > Dim par As Paragraph > >> > > >> > On Error GoTo NextPara > >> > > >> > For Each par In ActiveDocument.Paragraphs > >> > If par.LineSpacingRule = wdLineExactly Then > >> > If par.LineSpacing = 24 Then > >> > par.LineSpacingRule = wdLineSpaceDouble > >> > ElseIf par.LineSpacing = 12 Then > >> > par.LineSpacingRule = wdLineSpaceSingle > >> > End If > >> > End If > >> > > >> > NextPara: > >> > Next > >> > > >> > End Sub > >> > >> > >> . > >> > > > . >

Similiar Articles:

Editing Paragraph Line Spacing using macro; need help - microsoft ...
Excel - Double Line Spacing Using Excel 2000 - I have a paragraph ..... Line Spacing Using Excel 2000 - I have a paragraph of writing how do i get the text...

WORD: Change default font, paragraph and line spacing - microsoft ...
Editing Paragraph Line Spacing using macro; need help - microsoft ... WORD: Change default font, paragraph and line spacing - microsoft ... Editing Paragraph Line Spacing ...

Changing space before and after paragraphs does nothing ...
Editing Paragraph Line Spacing using macro; need help - microsoft ... Changing space before and after paragraphs does nothing ... I set the line spacing for ...

Need Help with Deleting Empty Paragraphs in Word 2003 - microsoft ...
Editing Paragraph Line Spacing using macro; need help - microsoft ... Need Help with Deleting Empty Paragraphs in Word 2003 - microsoft ... Editing Paragraph Line Spacing ...

Before and After Spacing. - microsoft.public.word.vba.general ...
Editing Paragraph Line Spacing using macro; need help - microsoft ... Editing Paragraph Line Spacing using macro; need help - microsoft ... Changing space before and after ...

Editing a line in Word 2003 - microsoft.public.word.docmanagement ...
Editing Paragraph Line Spacing using macro; need help - microsoft ... Editing Paragraph Line Spacing using macro; need help - microsoft ... Changing space before and after ...

adjust line spacing permanently - microsoft.public.outlook.general ...
Editing Paragraph Line Spacing using macro; need help - microsoft ... adjust line spacing permanently - microsoft.public.outlook.general ..... templates use macros ...

How do I undo the paragraph marks after each line? - microsoft ...
Editing Paragraph Line Spacing using macro; need help - microsoft ... >> > Dim par As Paragraph ... marks in a textbox - microsoft.public ... Editing Paragraph Line ...

how do I identify/decode document encryption - microsoft.public ...
Delete rows between bookmarks Next by Date: Editing Paragraph Line Spacing using macro; need help; Previous by thread: how do I identify/decode document encryption; Next ...

how to detect that the end of a range is also end of a paragraph ...
Editing Paragraph Line Spacing using macro; need help - microsoft ... >> > Dim par As Paragraph >> > >> > On Error GoTo NextPara >> > >> > For Each par In ... 12 Then ...

Editing Paragraph Line Spacing using macro; need help Word
I have the following code which should, but does not, change paragraphs that have exactly 24 or 12 pt spacing. Can you advise me as to what is wrong with

Excel - Double Line Spacing Using Excel 2000 - I have a paragraph ...
... Line Spacing Using Excel 2000 - I have a paragraph of writing how do i get the text... - Free Excel Help ... line spacing in a shape on 2007 is? The macro ... I need the line ...

Printable Editing Worksheets- Grammar, Spelling, Punctuation ...
Editing & Proofreading: Beach Free. This paragraph has mistakes in verb tenses, subject-verb agreement ... Bookmarks with nine proofreading marks that students need to ...

7/18/2012 6:40:17 PM