內容控件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)