Vba 如何对超过某个书签或页码的段落应用For Each循环？

我正在尝试删除Word文档中的空白页。由于此过程会导致文档格式错误，因此我选择仅在文档末尾应用此删除操作（确切地说，是在某个书签之后）。删除代码本身（有点过于激进）：

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

其中iPage在转到我的书签“附录”时获取所选内容的页码

---

我的问题是，如何仅对超过这一点的段落应用此删除？

这就是您要做的吗

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

Dim para作为段落
用这份文件
对于范围内的每个段落（.Bookmarks（“附录”）.End、.Range.End）。段落
如果Len（段落范围文本）您所说的“应用此页码”是什么意思？对不起，输入错误。ammendedWorks只需稍加修改。我将此文档交换为objWord.ActiveDocument。谢谢你的帮助，我学到了一些关于VB语法的新东西！
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