如何在每次打印文档时增加一个表单字段？

Question

我知道有人有单页 MS Word 收据文档。 一个标题包括 RECEIPT #。此时，他会查找最后打印的收据上的号码，并手动将收据号码调整为该号码加一，然后再打印一份文档副本。

我认为可以通过使用保存数字的表单字段来改进这一点，然后每次打印文档时该数字都会增加一。我没有发现 MS Word 开箱即用地支持任何内容，但我认为可以使用 VBA 来完成。几年前，我必须使用这种语言进行编程，但我从未对 Word 和打印事件中的表单字段执行过任何操作。

谁能用一些可以做到这一点的示例代码为我指明正确的方向？调整数量后自动保存文档也将受到欢迎。

Answer 1

Word 允许控制 DocumentBeforePrint 事件，我认为这会给您所需的结果。将文本表单字段添加到文档本身后，将此代码添加到 ThisDocument VBA 声明部分：

Option Explicit
Private WithEvents app As Application

然后编辑 Document_Open() 子项以读取：

Private Sub Document_Open()
Set app = Application
ActiveDocument.Variables("ReceiptNumber").Value = ActiveDocument.FormFields(1).Result
End Sub

最后，使用以下代码创建 DocumentBeforePrint 子项：

Private Sub app_DocumentBeforePrint(ByVal Doc As Document, Cancel As Boolean)

Dialogs(wdDialogFilePrint).Show

With ActiveDocument
    .Variables("ReceiptNumber").Value = .Variables("ReceiptNumber").Value + 1
    .FormFields(1).Result = .Variables("ReceiptNumber").Value
    .Save
End With

Cancel = True

End Sub

此代码将启动 Print对话框，打印后增加计数器并保存文档。 Cancel = True 行取消标准的“打印”对话框，以便代码不会尝试两次打印文档。 （还可以通过删除 Dialogs(wdDialogFilePrint).Show 和 Cancel = True 来在打印后增加计数器。）

我认为值得一提的是，一旦代码就位，通过双击文档的表单字段（将包含收据编号的字段）并选择“数字”作为字段类型，然后输入需要打印的第一个收据编号作为“默认编号”来设置此过程。

输入

表单字段的默认值后，手动保存文档，然后将其关闭。现在，每次打开该表单时，表单字段的内容都会被分配给该变量，并且 DocumentBeforePrint 事件会在每次打印文档时递增该字段。如果用户需要重置该字段（由于打印机卡纸或其他一些不可预见的事件），他应该双击该字段，更改默认值，单击对话框中的“确定”，保存文档并关闭它（以清除输出先前为计数器变量分配的值）。和以前一样，打开文档将使其准备好打印和增量。希望这有帮助。