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

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

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

 

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文档