在 Word 中删除页面

【问题标题】：Delete page in Word在 Word 中删除页面
【发布时间】：2015-09-23 02:55:07
【问题描述】：

我需要 VBA 代码来删除 Word 文档中除第一个部分之外的所有部分（页面）

为此，我使用以下代码。

For Each oSec In ActiveDocument.Sections
    If oSec.Index <> 1 Then
        oSec.Range.Delete
    End If   
Next oSec

这有效，但不会删除第二部分，只会删除其内容。如果我删除代码中的 if 条件，它会删除第一页的内容。

我想保留第一页的内容。

请告诉我哪里出错了。

【问题讨论】：

【解决方案1】：

删除时需要包含分节符。尝试更改此行：

oSec.Range.Delete

进入这个：

ActiveDocument.Range(oSec.Range.Start - 1, oSec.Range.End).Delete

顺便说一句，你不应该认为 page=section，它们是不同类型的文档单元。

【讨论】：

您好 KazJow，感谢您的重播。你的代码对我有用。我曾在 Excel-VBA 中工作过，但在 Word 中是新的。所以基本不懂。如何理解页面和部分之间的区别。我没有在 Word 宏中找到任何类似页面的对象...
是的，确实存在页面，但它们是文档的视觉部分。如果要查看页数，可以这样查看：ActiveDocument.Windows(1).Panes(1).Pages.Count。