Question

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

我试过

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插入分页符

1 个答案: