如何將按鈕新增至Word 文件，並指派其Click 事件，在執行階段

下列步驟說明如何建立Word 巨集，將控制項新增至文件，並指定在執行階段該控制項的Click 事件。

步驟適用於Word。

不過，您可以套用以程式設計方式 ... 跳到主要內容 已不再支援此瀏覽器。

請升級至MicrosoftEdge，以利用最新功能、安全性更新和技術支援。

下載MicrosoftEdge 其他資訊 目錄 結束焦點模式 閱讀英文 儲存 目錄 閱讀英文 儲存 Twitter LinkedIn Facebook 電子郵件 目錄 如何將按鈕新增至Word文件，並指派其Click事件，在執行階段 發行項 11/03/2021 適用於: MicrosoftWord 本文內容 摘要 本文將告訴您如何使用MicrosoftVisualBasicforApplications巨集會以程式設計方式將控制項新增至MicrosoftWord文件，並將新增為該控制項的Click事件處理常式。

詳細資訊 下列步驟說明如何建立Word巨集，將控制項新增至文件，並指定在執行階段該控制項的Click事件。

步驟適用於Word。

不過，您可以套用以程式設計方式操作控制項，MicrosoftExcel活頁簿中的相同的概念。

注意 可用來操控VisualBasic專案的MicrosoftOffice文件在執行階段需要參照至MicrosoftVisualBasicforApplicationsExtensibility程式庫。

建立範例步驟 在Word中啟動新的文件。

按Alt+F11移至VisualBasic編輯器。

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

選取[MicrosoftVisualbasicforApplicationsExtensibility的[參考]。

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

SubTest() 'Addacommandbuttontoanewdocument DimdocAsWord.Document DimshpAsWord.InlineShape Setdoc=Documents.Add Setshp=doc.Content.InlineShapes.AddOLEControl(ClassType:="Forms.CommandButton.1") shp.OLEFormat.Object.Caption="ClickHere" 'Addaprocedurefortheclickeventoftheinlineshape '**Note:TheclickeventresidesintheThisDocumentmodule DimsCodeAsString sCode="PrivateSub"&shp.OLEFormat.Object.Name&"_Click()"&vbCrLf&_ "MsgBox""YouClickedtheCommandButton"""&vbCrLf&_ "EndSub" doc.VBProject.VBComponents("ThisDocument").CodeModule.AddFromStringsCode EndSub 執行巨集「測試」。

一旦"Test"的巨集完成執行之後，您會看到新的文件上的新CommandButton控制項。

當您按一下CommandButton控制項，控制項就會引發Click事件。

Word2002和Word2003的其他注意事項 根據預設，會停用WordVBA專案存取。

停用時，上述程式碼可能會產生執行階段錯誤'6068'、"以程式設計方式存取VisualBasic專案是不受信任」。

如需有關此錯誤，更正它的詳細資訊，請按一下以檢視Microsoft知識庫中的下列文件編號： 282830以程式設計方式存取OfficeVBA專案已拒絕 本文內容