我想用VB6.0做一个WORD2003的小插件。我应该如何开始？

2。然后在双设计器下连接，在出来的对话框里选择“应用”为“微软Word”。

3。在“项目”>“引用”中添加对“Microsoft Word xx.0对象库”的引用。

4。右键单击连接并选择查看代码。

5。写代码。下面的示例代码演示了如何在word中添加一个快速搜索工具栏，并在上面添加一个“笔画单词搜索”按钮。在Word中选择一些文字后点击该按钮，会打开一个IE窗口，在百度中搜索当前选择的文字:

选项显式

Private WithEvents wdApp As Word。应用

将我的工具栏显示为命令栏

Private将我的按钮设置为Office。CommandBarButton

private Sub addin instance _ on connection(ByVal Application作为对象，ByVal ConnectMode作为addindesignerobjects . ext _ connect mode，ByVal AddInInst作为对象，custom()作为变量)

设置wdApp =应用程序

出错时继续下一步

wdApp。CommandBars(“快速搜索”)。删除

出错时转到0

设置myBar = wdApp。CommandBars.Add("QuickSearch ")

我的吧。可见=真

设置myButton = myBar。Controls.Add(msoControlButton)

用我的按钮

。Style = msoButtonCaption

。Caption = "单词笔画搜索"

以…结尾

末端接头

private Sub addin instance _ on disconnection(ByVal remove mode作为addindesignerobjects . ext _ disconnect mode，custom()作为Variant)

出错时继续下一步

wdApp。CommandBars(“快速搜索”)。删除

出错时转到0

设置wdApp = Nothing

末端接头

private Sub my button _ Click(ByVal Ctrl As Office。CommandBarButton，CancelDefault为布尔值)

Dim ie

如果wdApp。选择。Text & lt& gt”“那么

set ie = CreateObject(" internet explorer . application ")

即。可见=真

ie.navigate？wd = " & ampwdApp。选择

如果…就会结束

末端接头

私有Sub wd app _ WindowSelectionChange(ByVal Sel为Word。选择)

如果Sel。Text = " "那么

我的按钮。启用=假

其他

我的按钮。启用=真

如果…就会结束

末端接头

6.你可以看到“快速搜索”工具栏后，你把它编译成一个Dll。如果要将其复制到其他计算机上，需要先用命令“regsvr 32[编译后dll文件的完整路径]”进行注册，或者使用菜单命令“工具> > COM加载项”进行加载或卸载。

使用VB6.0作为word的插件，不仅可以实现以上功能，还可以修改word程序的右键菜单，调用word中很多对象的各种属性和方法，响应word提供的事件。同时具有在VB6中使用自定义控件、控件数组、资源文件和代码的优点，弥补了word VBA的不足。