内容控件MS Word

Question

我刚接触VBA和Word 2010。

我有一个使用内容控件（即富文本控件）的带有某些文本字段的Word文档。

我希望其中一个名为“标题”的标题为“ testbox”，以作为打印文档次数的计数器。

我有一些有效的Excel代码。 可以在MS Word中使用它吗？ 如何与内容控件而不是Excel中的单元格进行通信？

Private Sub Workbook_BeforePrint(Cancel As Boolean) 
  Cancel = True 
  Application.EnableEvents = False 
  ActiveSheet.PrintOut 
  Range("A1").Value = Range("A1").Value + 1
  Application.EnableEvents = True 
End Sub

Answer 1

您显示的代码的基本方法应该可以在Word中运行，您只需要查找对象，方法和属性的适当名称即可。 例如，Document_BeforePrint和ActiveDocument.Print。

Word没有EnableEvents属性，因此您需要创建自己的方法来关闭在应用程序级别定义的事件。 这些方法的外观以及它们的要求是有关如何在Office中使用应用程序级事件的讨论的一部分-VBA语言参考（ https://msdn.microsoft.com/zh-cn/library/office/ff821218的一部分） .aspx ）。

可以使用Document.SelectContentControlsByTitle方法按其标题选择ContentControl。 这将返回具有相同标题的内容控件数组。 如果只有一个，则如下所示：

Dim cc As Word.ContentControl
Dim ccs as Word.ContentControls
Set ccs = ActiveDocument.SelectContentControlsByTitle("testbox")
Set cc = ccs(1)
cc.Range.Text = Cstr(CInt(cc.Range.Text) + 1)