I really cannot thank you enough for your help gmaxey. That one is virtually perfect!
I fooled around with another method of accomplishing my goal:
Code:
Selection.MoveRight Unit:=wdSentence, Count:=1, extend:=wdExtend
Do While Strings.Right(Selection.Range.Text, 4) = "Mr. " Or Strings.Right(Selection.Range.Text, 5) = "Mrs. " Or Strings.Right(Selection.Range.Text, 1) = vbCr
Selection.MoveRight Unit:=wdSentence, Count:=1, extend:=wdExtend
Loop
End Sub
It is not nearly as elegant as yours, and adding new abbreviations to be excluded is much more cumbersome than in yours, so if you have any suggestions I would gladly use them. It functions exactly the same as yours except that with yours, if there is one or more blank lines below the last sentence of a Paragraph, it will not select any further than that last sentence, whereas mine will continue to select the blank lines below one at a time. Not a huge difference at all — I can’t think of a time where I wanted to select blank lines below a paragraph.
Again, thank you gmaxey and macropod!