在Word中删除页面

Question

我需要VBA代码删除除Word文档

之外的所有部分（页面）

为此我使用下面的代码。

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

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

我想保留第一页的内容。

请告诉我哪里出错了。

Answer 1

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

oSec.Range.Delete

进入这一个：

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

BTW，你不应该认为page = section，它们是不同类型的文档单元。