CSDN博客

img lihonggen0

使用vb 6和vb.net为Office应用添加工具栏和按钮

发表于2003/8/14 14:38:00  3513人阅读

分类: Visual Basic 6

使用vb 6vb.netOffice应用添加工具栏和按钮

Office应用中,有可我们可能需要利用word进行一系列的操作,比如执行一段宏,通过点击一个工具栏按钮执行宏的代码段,下面的实例正是为office应用添加一个工具栏和按钮,类似可应用到excelaceessOffice应用程序。

 

1.         VB6中的应用:

VB6中引用Micosoft Word X.0(版本号) Object Library Micosoft Office X.0(版本号) Object Library,如下图:(笔者使用Office XP

 

添加如下代码:

 

Private Sub Command1_Click()

    '定义word应用

    Dim wordApp As New Word.Application

    Dim myDoc As Word.Document

    '定义工具栏

    Dim myBar As Office.CommandBar

    '定义工具栏按钮

    Dim myButton As Office.CommandBarButton

   

    Dim IsExist As Boolean

    IsExist = False

   

    '打开一个word文档

    Set 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

         Set myBar = wordApp.CommandBars.Add( _

                     Name:="文件操作", _

                     Position:=msoBarTop, _

                     Temporary:=False)

       

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

             With myButton

                 .Caption = "文件保存"

                 .ToolTipText = "lihonggen create"

                ' .Picture =LoadPicture("f:/cd.ICO")

                 '指定表面图片序号

                 .FaceId = 10

                 .Visible = True

                 .Enabled = True

                 '指定此按钮宏的名称

                 .OnAction = "lihonggen"

             End With

        myBar.Visible = True

    End If

 

End Sub

 

 

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中录制的宏:

生成的工具栏及按钮:

 

宏的运行结果:

 

读者可以在写基础上进行扩展!

--------------------------------------------------------------------------

Author : lihonggen0

个人专栏:http://www.csdn.net/develop/author/netauthor/lihonggen0/

如需引用,请指明出处!软件的目的在于应用,本文可自由转载!

--------------------------------------------------------------------------

 

0 0

相关博文

我的热门文章

img
取 消
img