刪除文本在書籤隨着一段之後它

Question

我現在有下方顯示會使用我的代碼部分的word文檔刪除書籤代碼：

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

基於代碼段以上，我很好奇，如果有一種方法可以讓我重新創建這個部分，以便刪除書籤上的文本以及它下面的段落（Word文檔的格式爲Header，後面跟着段落，開始於下一行）

Answer 1

我找到了解決我的問題，下面的代碼片段將產生期望的結果：

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

Answer 2

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 

Answer 3

查看我的示例如下：

代碼：

wdDoc.Bookmarks(BookMarksToDelete(i)).Range.Paragraphs(1).Range.Delete 

問候

丹尼爾