vba - 在Word中删除页面

Question

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

为此，我使用下面的代码。

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

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

我想保留第一页的内容。

请告诉我哪里出错了。

Answer 1

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

oSec.Range.Delete

进入这个:

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

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