compare each paragraph with the preceding paragraph

cyraxote · #5 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.

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