共用方式為

如何將按鈕新增至 Word 檔，並在執行時間指派其 Click 事件

  • 發行項
  • 適用於:
    Microsoft Word

摘要

本文示範如何使用 Microsoft Visual Basic for Applications 宏，以程式設計方式將控制項新增至 Microsoft Word 檔，並新增該控制項的 Click 事件處理常式。

其他相關資訊

下列步驟說明如何建立 Word 宏，將控制項新增至檔，並在執行時間指派該控制項的 Click 事件。 這些步驟適用于 Word。 不過，您可以套用相同的概念，以程式設計方式操作 Microsoft Excel 活頁簿中的控制項。

注意事項

若要能夠在執行時間操作 Microsoft Office 檔的 Visual Basic 專案，需要參照 Microsoft Visual Basic for Applications 擴充性程式庫。

建立範例的步驟

  1. 在 Word 中啟動新檔。

  2. 按 Alt+F11 以移至 Visual Basic 編輯器。

  3. 按一下 [工具] 功能表中的 [參照]。

  4. 選取 Microsoft Visual Basic for Applications 擴充性的參考。

  5. 插入新的模組，然後新增下列程式碼範例。

    Sub Test()

'Add a command button to a new document
Dim doc As Word.Document
Dim shp As Word.InlineShape
Set doc = Documents.Add

Set shp = doc.Content.InlineShapes.AddOLEControl(ClassType:="Forms.CommandButton.1")
shp.OLEFormat.Object.Caption = "Click Here"

'Add a procedure for the click event of the inlineshape
'**Note: The click event resides in the This Document module
Dim sCode As String
sCode = "Private Sub " & shp.OLEFormat.Object.Name & "_Click()" & vbCrLf & _
        "   MsgBox ""You Clicked the CommandButton""" & vbCrLf & _
        "End Sub"
doc.VBProject.VBComponents("ThisDocument").CodeModule.AddFromString sCode

End Sub

  6. 執行宏 「Test」。

  7. 宏 「Test」 執行完成後，您會在新檔上看到新的 CommandButton 控制項。 當您按一下 CommandButton 控制項時，會引發控制項的 Click 事件。

Word 2002 和 Word 2003 的其他附注

根據預設，Word VBA 專案的存取權會停用。 停用時，上述程式碼可能會產生執行階段錯誤 '6068'，「無法信任以程式設計方式存取 Visual Basic 專案」。如需此錯誤及其修正方式的詳細資訊，請按一下下列文章編號以檢視 Microsoft 知識庫中的文章：

282830 拒絕以程式設計方式存取 Office VBA 專案