Deleting Text At Bookmark Along With The Paragraph Below It

Question

I currently have a code that will delete a bookmark from a word document using the portion of my code displayed below:

For i = LBound(BookMarksToDelete) To UBound(BookMarksToDelete)
    wdDoc.Bookmarks(BookMarksToDelete(i)).Delete
Next i

Based on the snippet above, I was curious to if there was a way for me to recreate this portion in order to delete the text at the bookmark, along with the paragraph underneath it (Word document is in the form Header followed by Paragraph starting on next line)

score 0 · Answer 1 · answered Jun 19 '17 at 13:55

 Dim whattokill As Range

For i = LBound(BookMarksToDelete) To UBound(BookMarksToDelete)
    With wdDoc.Bookmarks(BookMarksToDelete(i))
        Set whattokill = .Range
        whattokill.Expand wdParagraph
        'repeat above line if you want more than one para
        whattokill.Delete
     End With
 Next i

score 0 · Accepted Answer · answered Jun 23 '17 at 18:36

I found a solution to my issue, the following code snippet will produce the desired result:

For i = LBound(BookMarksToDelete) To UBound(BookMarksToDelete)
    Set pRng = wdDoc.Bookmarks(BookMarksToDelete(i)).Range
    pRng.MoveEnd wdParagraph, 2
    pRng.Delete
Next i

Deleting Text At Bookmark Along With The Paragraph Below It

2 Answers2