Word COM 加载项实例

wjhere · 发表于 2009-3-15 19:42

这是word加载项的演示程序，重点说明如何让建造的工具栏在所有打开的文档中都有效
附带说明了窗体的使用
需要加入对Word对象的引用
相关资料，参见
拙帖：to守柔版主，也谈VB6环境下编写Word加载项问题的解决：http://club.excelhome.net/thread-381111-1-1.html
守柔版主:我的第一个COM加载项习作http://club.excelhome.net/viewth ... ght=%2B%CA%D8%C8%E1
正值3.15欢迎打假。 wjhere@126.com 2009.3.15

守柔 · 发表于 2009-3-16 06:23

原帖由 wjhere 于 2009-3-15 19:42 发表
这是word加载项的演示程序，重点说明如何让建造的工具栏在所有打开的文档中都有效
附带说明了窗体的使用
需要加入对Word对象的引用
相关资料，参见
拙帖：to守柔版主，也谈VB6环境下编写Word加载项问题的解决：h ...

太好了！我初步参研完成，一会儿再深入交流一下。
关于VB 6 使用API创建弹出式菜单的类代码参：
http://www.chinavb.net/Article.asp?id=408
可以使用AppendMenu、CreatePopupMenu等加上VB搜索之。

守柔 · 发表于 2009-3-16 06:41

程序测试无误，非常好，解决了我的一个心病！
看到楼主在“也谈VB6环境下编写Word加载项问题的解决”一文中的过程，很有同感，有时，为了解决一些出现的问题，饭不思，茶不饮，夜不成梦，多则以年计（如有些在我的贴子中也提到的），少则以日算，为代码而痴狂。
提两个瑕疵：
一是代码声明的范围，能Private WithEvents的，不要Public;能Dim的，不要使用Public，减少内存开销。
二是对于Tag以及Click事件，请使用SELECT CASE。因为我编了太多的加载项了，建议楼主对于以后的TAG，加上程序的前缀，以防止触发同名过程或者对话框。比如在两个加载项中，都有frm_Main对话框，如果都是show 1的话，可能会出现两个先后弹出的情况。所以，TAG可以加上程序的前缀，对话框也可加入程序的前缀，这样有利于区分。（经验之谈了，不一定有理论依据）

wjhere · 发表于 2009-3-16 06:48

非常感谢版主亲自出马帮我解决问题，还提出了很好的建议。

wjhere · 发表于 2009-3-16 06:52

二是对于Tag以及Click事件，请使用SELECT CASE，不太明白版主的意思，能否具体说一下“对于Tag以及Click事件，请使用SELECT CASE”具体使用？

守柔 · 发表于 2009-3-16 07:07

原帖由 wjhere 于 2009-3-16 06:52 发表
二是对于Tag以及Click事件，请使用SELECT CASE，不太明白版主的意思，能否具体说一下“对于Tag以及Click事件，请使用SELECT CASE”具体使用？

请参考：
Private Sub WBCMD_0_Click(ByVal Ctrl As Office.CommandBarButton, CancelDefault As Boolean)
Call myClick(Ctrl.Tag)
End Sub
Private Sub WBCMD_1_Click(ByVal Ctrl As Office.CommandBarButton, CancelDefault As Boolean)
Call myClick(Ctrl.Tag)
End Sub
Private Sub WBCMD_2_Click(ByVal Ctrl As Office.CommandBarButton, CancelDefault As Boolean)
Call myClick(Ctrl.Tag)
End Sub
Private Sub WBCMD_3_Click(ByVal Ctrl As Office.CommandBarButton, CancelDefault As Boolean)
Call myClick(Ctrl.Tag)
End Sub
Private Sub WBCMD_4_Click(ByVal Ctrl As Office.CommandBarButton, CancelDefault As Boolean)
Call myClick(Ctrl.Tag)
End Sub
Private Sub WBCMD_5_Click(ByVal Ctrl As Office.CommandBarButton, CancelDefault As Boolean)
Call myClick(Ctrl.Tag)
End Sub
Public Sub myClick(strTag As String)
Dim myCaptions() As Variant
myCaptions = Array("ºº×Ö×¢Òô...", "¶àÒôÐ£¶Ô...", "É¾³ýÉùµ÷", "È¥×ÖÁôÒô", "´Ê¿âÕûÀí", "¹ØÓÚ" & myMsgTitle & "...")
Select Case strTag
Case myCaptions(0)
      frm_PhoneticGuide.Show 1
Case myCaptions(1)
      Call myCheckDYZ
Case myCaptions(2)
      Call CleanPySd
Case myCaptions(3)
      Call DelHanZi
Case myCaptions(4)
      Call OpenPyTxtLib
Case myCaptions(5)
      frm_About_WDPY.Show 1
End Select
End Sub

wjhere · 发表于 2009-3-16 07:10

谢谢版主，这样代码就简洁多了。

tangqingfu · 发表于 2009-3-16 21:57

怯怯地问一下wjhere兄:
怎么使用学习?
是打开两个"Word加载项演示"吗?
一个是"EXP文件",另一个是"LIB文件",怎么才能打开?打开方式是……?

wjhere · 发表于 2009-3-16 23:37

tangqingfu兄太客气了，这是vb6编写的，当然要使用vb6打开，其中的*.vbp文件即可。

tangqingfu · 发表于 2009-3-17 07:51

谢谢wjhere兄！

		自动登录	找回密码
密码			免费注册

[原创] Word COM 加载项实例