特定のブックマークまたはページ番号を超えて段落にFor Eachループを適用する方法はありますか？

Question

Word文書で空白のページを削除しようとしています。そのため、このプロセスは、文書の書式設定を台無しにするという点で提起する問題の私は唯一の（正確には、特定のブックマークを過ぎて）文書の最後に、この削除を適用することを選択しました。 （少しも積極的な）削除コード自体：

For Each para In ActiveDocument.Paragraphs 
    If Len(para.Range.Text) <= 1 Then 
     para.Range.Delete 
    End If 
Next para 

瞬間、私が試してみました：それは私のしおり「の付録になったときIpageをは選択のページ番号を取得します

Dim iPage As Long 
cursor.Goto What:=wdGoToBookmark, Name:=("Appendix") 
iPage = cursor.Information(wdActiveEndPageNumber) 

。 "

私の質問は、どのように私はこの点だけ過去の段落にこの削除を適用しないのですか？

Answer 1

は、あなたが何をしようとして、このですか？

Dim para As Paragraph 
With ThisDocument 
    For Each para In .Range(.Bookmarks("Appendix").End, .Range.End).Paragraphs 
     If Len(para.Range.Text) <= 1 Then para.Range.Delete 
    Next 
End With