2.         在VB.NET中的应用：

同样，需要添加Micosoft Word X.0（版本号） Object Library 和Micosoft Office X.0（版本号） Object Library 这两个对象库的引用

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        ''''定义word应用

        Dim wordApp As New Word.Application()

        Dim myDoc As Word.Document

          ''''定义工具栏

        Dim myBar As Microsoft.Office.Core.CommandBar

          ''''定义工具栏按钮

        Dim myButton As Microsoft.Office.Core.CommandBarButton

        Dim isExist As Boolean

        isExist = False

          ''''打开一个word文档

        myDoc = wordApp.Documents.Open("f:\test.doc")

        wordApp.Visible = True

          ''''如果存在这个工具栏，就显示这个工具栏

        For Each myBar In wordApp.CommandBars

            If myBar.Name = "文件操作" Then

                myBar.Visible = True

                isExist = True

            End If

        Next

        ''''如果不存在,就创建工具栏及按钮

        If Not isExist Then

            myBar = wordApp.CommandBars.Add( _

                        Name:="文件操作", _

                        Temporary:=False)

            myButton = myBar.CommandBars("文件操作").Controls.Add

            With myButton

                .Caption = "文件保存"

                .TooltipText = "lihonggen create"

              ''''指定图片序号

                .FaceId = 10

                .Visible = True

                .Enabled = True

                ''''指定此按钮宏的名称

                .OnAction = "lihonggen"

            End With

            myBar.Visible = True

        End If

    End Sub

在word中录制的宏：

生成的工具栏及按

上一页  [1] [2] [3]  下一页