若要创建示例的步骤

1. 在 Word 中开始一个新的文档。
2. 按 Alt + F11 可转到 Visual Basic 编辑器。
3. 在 工具 菜单上单击 引用。
4. 为 应用程序扩展的 Microsoft Visual Basic 中选择引用。
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. 运行宏"测试"。
7. 一旦宏"test"运行完成后，您将看到一个新的 命令按钮 控件，在新文档上。当您单击 命令按钮 控件的的控件将触发 Click 事件。