使用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文档
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/
如需引用，请指明出处！软件的目的在于应用，本文可自由转载！
--------------------------------------------------------------------------