Vba 删除书签处的文本及其下面的段落

我目前有一个代码，可以使用下面显示的代码部分从word文档中删除书签：

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

---

基于上面的片段，我很好奇是否有办法重新创建这一部分，以便删除书签处的文本及其下面的段落（Word文档位于表单标题中，后面是下一行开始的段落）

我找到了解决问题的方法，以下代码段将生成所需的结果：

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

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