Replace Redundant Paragraph Marks

Dear Experts:
Below macro deletes any redudant paragraph marks in a document. It is running just fine but it strangely does not delete two consecutive blank paragraphs that are located directly before a table.

Example:

text, text, text, paragraph mark
blank paragraph mark
blank paragraph mark
Table

Any idea why this is so?

Help is apprecitated. Thank you very much in advance. Regards, Andreas

Sub ReplaceRedundantParagraphMarks()

Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "^0013{2;}"
        .Replacement.Text = "^p"
        .Forward = True
        .Wrap = wdFindStop
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
   
    Selection.Find.Execute Replace:=wdReplaceAll
   
End Sub
Andreas HermleTeam leaderAsked:
Who is Participating?
 
geneusCommented:
Usure why this does not work but the code below will remove ALL empty paragraph marks.
Sub RemoveBlankPara()
    'Delete any Blank Paragraphs in the document
    
    Dim opara As Word.Paragraph
    
    For Each opara In ActiveDocument.Paragraphs
        If opara.Range.Text = Chr(13) Then
        opara.Range.Delete
        End If
    Next
    
End Sub

Open in new window

0
 
Andreas HermleTeam leaderAuthor Commented:
Dear geneus:

thank you very much. It works as desired.
Regards, Andreas
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.