compare each paragraph with the preceding paragraph

cyraxote · #1 10-08-2015, 07:44 AM

Thanks!

That's so much simpler than what I was trying to do. I wish I had a better grasp of the range object.

So here's what I have:

Code:

Sub Demo()
Application.ScreenUpdating = False
Dim i As Long
With ActiveDocument
  For i = 2 To .Paragraphs.Count
    With .Paragraphs(i)
      If (.Range.Style = "TEXT") And (.Previous.Range.Style = "TEXT") Then
        .Range.Style = "TEXT IND"
      End If
      If (.Range.Style = "TEXT") And (.Previous.Range.Style = "TEXT IND") Then
        .Range.Style = "TEXT IND"
      End If
    End With
  Next
End With
Selection.WholeStory
    With Selection.ParagraphFormat
        .SpaceBefore = 0
        .SpaceBeforeAuto = False
        .SpaceAfter = 6
        .SpaceAfterAuto = False
        .LineSpacingRule = wdLineSpaceSingle
    End With
Application.ScreenUpdating = True
End Sub

I can add to this to perform a bunch of checks I've been thinking of. I think Select Case may work better than If... Then for that.

Just one question: why start with the 2nd paragraph?

Thanks again.

macropod · #2 10-08-2015, 04:18 PM

Quote:

Originally Posted by cyraxote

Just one question: why start with the 2nd paragraph?

Because the 1st paragraph has no previous paragraph to compare with (so there's no point) and trying to do so would cause an error.

I note that your code has:

Code:

Selection.WholeStory
    With Selection.ParagraphFormat
        .SpaceBefore = 0
        .SpaceBeforeAuto = False
        .SpaceAfter = 6
        .SpaceAfterAuto = False
        .LineSpacingRule = wdLineSpaceSingle
    End With

Do note that's not exactly an optimal way to manage document formatting; what you should do is modify the relevant Styles.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Replacing paragraph formatting before column break also changes the next paragraph after the break	jjmartin1340	Word	3	09-21-2015 10:50 PM
Split a paragraph	bnyamin	Word VBA	13	10-05-2014 08:18 PM
Narrow Paragraph to Wide Paragraph HELP	icloudy	Word	1	12-09-2012 03:49 PM
spacing within paragraph	psmoore	Word	1	06-22-2010 02:15 AM
Paragraph	cloa513	Word	1	12-29-2009 02:20 AM