compare each paragraph with the preceding paragraph

cyraxote · #1 10-07-2015, 09:29 AM

I'm writing a macro to check the style of each paragraph against the previous. (I know that there's a way to do this using the paragraphs object, which apparently has a mysterious "previous paragraph" parameter, but I can't figure it out.) Here's what I have:

Code:

Sub fix2textparas()

Dim Para1, Para2 As String

Selection.HomeKey Unit:=wdStory
Selection.Find.Style = ActiveDocument.Styles("TEXT")
With Selection.Find
    .Forward = True
    .Wrap = wdFindStop
    .Format = True
    .MatchWildcards = True
    .Execute
End With

Do While Selection.Find.Found = True
    Para1 = Selection.Paragraphs(1).Style
    Selection.Next(Unit:=wdParagraph, Count:=1).Select
    Para2 = Selection.Paragraphs(1).Style
    If Para1 = "TEXT" And Para2 = "TEXT" Then
        With Selection.Paragraphs(1)
            .Range.Select
            .Style = "TEXT IND"
            .Range.HighlightColorIndex = wdYellow
        End With
        With Selection.ParagraphFormat
            .SpaceBefore = 0
            .SpaceBeforeAuto = False
            .SpaceAfter = 6
            .SpaceAfterAuto = False
            .LineSpacingRule = wdLineSpaceSingle
        End With
    End If
    Selection.Collapse Direction:=wdCollapseStart
Loop
End Sub

The problem is that I get an error when I get to the last paragraph and "Selection.Next(Unit:=wdParagraph, Count:=1).Select" tries to move forward. I didn't even want to use this method, but the following methods would not work for reasons I can't even begin to grasp:

Code:

With Selection   
    .Expand Unit:=wdParagraph
End With

Code:

Selection.MoveRight Unit:=wdParagraph, Count:=1, Extend:=wdExtend

The last gives Error 4120 Bad parameter.

I know that I could probably just trap the error, but it seems like there should be a way to do this without having to do so.

The rules for the styles in my document are:

There should never be two consecutive paragraphs with style "TEXT"; if there are, the second should be changed to "TEXT IND."
"TEXT IND" always follows "TEXT"

This means that any 3 paragraphs should never be:

TEXT
TEXT
TEXT IND

or

TEXT IND
TEXT
TEXT IND

The macro only deals with the first of these at the moment, and there are criteria for "TEXT" that are not needed here.

Any help would be great.

Thanks!

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