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

原创 2003年08月14日 14:38:00

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

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

<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" />

 

1.         VB6中的应用:

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

 

<?xml:namespace prefix = v ns = "urn:schemas-microsoft-com:vml" />CSDN_Dev_Image_2003-8-131646070.jpg

添加如下代码:

 

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 这两个对象库的引用

CSDN_Dev_Image_2003-8-131646072.jpg

 

 

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

CSDN_Dev_Image_2003-8-131646074.jpg

生成的工具栏及按钮:

 

CSDN_Dev_Image_2003-8-131646076.jpg

宏的运行结果:

CSDN_Dev_Image_2003-8-131646078.jpg

 

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

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

Author : lihonggen0

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

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

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

 

VB.NET中的一些操作(增加第三方控件等)

VB.NET 中增加 EI TABELLE 的控件    打开VB.NET,在TOOLBOX(工具盒)中单击鼠标右键,在弹出的菜单中选择ITEM ADD/REMOVE(ITEM 增加/删除)。    ...
  • expert2000
  • expert2000
  • 2004年11月23日 14:14
  • 1543

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

使用vb 6和vb.net为Office应用添加工具栏和按钮在Office应用中,有可我们可能需要利用word进行一系列的操作,比如执行一段宏,通过点击一个工具栏按钮执行宏的代码段,下面的实例正是为o...
  • lihonggen0
  • lihonggen0
  • 2003年08月14日 14:38
  • 3614

给工具栏按钮添加图标和文字

假设工具栏有两个按钮,为每个按钮添加图标和文字1.新建一个单文档程序,将准备好的图标资源(32×32)复制到res文件夹.2.在资源中打开工具栏编辑器,删除(del)原有的位图和多余的按钮(将按钮拖出...
  • birdzb
  • birdzb
  • 2007年08月02日 21:02
  • 3445

VB显示/隐藏 开始按扭

作者: Waty Thierry * Module Name : Start_Module* Module Filename : Start.bas**************************...
  • pzhan
  • pzhan
  • 2007年02月17日 14:55
  • 861

VB控件大全 控件使用教程

  • 2008年10月18日 07:45
  • 107KB
  • 下载

如何将类库里的控件添加到工具箱

因为是个业余,所以对一些简单的操作因为生疏而不记得,特记录以作备忘。 包含窗体控件的类库,在引用里添加了引用后,并不会在工具箱出现相关控件,从而不能通过拖拽来进行可视化设计,虽然可以通过代码,但十分...
  • zslefour
  • zslefour
  • 2014年03月28日 07:45
  • 1887

vb.net 教程 3-7 窗体编程 菜单和工具栏 2 ContextMenuStrip

ContextMenuStrip:快捷菜单,大多数是在某处单击鼠标右键后弹出的菜单 相对于上一节的MenuStrip,ContextMenuStrip有几个重要的属性 ShowCheckMargin:...
  • UruseiBest
  • UruseiBest
  • 2017年05月25日 20:50
  • 478

添加工具栏的图标按钮

有三种方法可以添加工具栏的图标按钮: 第一种:创建CImageList对象,然后往里面加图标,调用SetImageList方法添加图标,具体步骤如下: m_ImageList.Create(32,32...
  • tengxiaoming
  • tengxiaoming
  • 2010年05月31日 01:11
  • 5946

VB.net 动态添加菜单响应单击事件

以前 VB 6.0 我要调一堆 API 感觉好过瘾 呵呵 现在找不到这种感觉了 哈!记得vb 6 的 时候生气用Win32写了个Clock  掉了上百个 API 连VB 6 的窗体都没用, 那个叫过瘾...
  • shadowsky
  • shadowsky
  • 2007年06月13日 23:10
  • 4920

在vs2012中添加控件

在做Windows窗体上ADO.NET数据绑定试验的时候,发现实例中提到的一些控件在vs2012的工具箱中找不到,开始以为是工具箱中的控件太多没看到,结果重新找还是没找到,难道是因为控件升级了?yes...
  • sunqing0316
  • sunqing0316
  • 2013年08月19日 15:51
  • 21106
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:使用vb 6和vb.net为Office应用添加工具栏和按钮
举报原因:
原因补充:

(最多只允许输入30个字)