用Word插入分页符

Question

我有一个可以创建大型 Word 文档的 VBScript。我需要让它在末尾插入一个分页符，这样我就可以插入另一个 select 文本，但是我无法让分页符工作。

我试过了

objWord.Documents(tempFile).Activate
Set objSelection = objWord.Selection
objSelection.InsertBreak(7)

objWord.Documents(tempFile).Activate
Set objSelection = objWord.Selection
objSelection.InsertBreak(wdPageBreak)

objWord.Documents(tempFile).Activate
Set objSelection = objWord.Selection
objSelection.InsertBreak Type:=7

objWord.Documents(tempFile).Activate
Set objSelection = objWord.Selection
objSelection.InsertBreak Type:wdPageBreak

它只是跳过它并插入所有文本而不创建分页符。

Answer 1

我假设您使用的是 VBScript，因为您使用 objWord 而不是 Application 对象来引用 Word。我还假设您声明了 On Error Resume Next，因为您在尝试使用 VBScript 中的某些方法时应该会收到错误消息。 param:=value 语法不是 VBScript 的一部分。此外，像 wdPageBreak 这样的常量需要在您的脚本中显式声明。

由于 wdPageBreak 是 InsertBreak() 的默认中断类型，您可以完全省略它。但是，您可能想确保自己真的到了文档的末尾。为此，您可以使用 Selection.EndKey()，传递 wdStory 的值。例如：

Const wdStory = 6

objWord.Selection.EndKey wdStory
objWord.Selection.InsertBreak       ' No param needed here

用Word插入分页符

Insert page break with Word

vbscript

ms-word