使用VB快速制作WPS的COM加载项

2018-09-14

1.新建工程，选择ActiveX Dll。

2.工程、引用、选择Kingsoft Add-In Designer、Kingsoft Office 1.0 Object Library、Kingsoft WPS 2.0 object Library。

3.将工程名原来的“工程1”改为“kgsPro”,类名称的“Class1”改为“AddCommand”

(这里的修改的名称根据实际情况而定义，但在后面的注册时会用到这两个名字)

4.写入如下的代码：Option Explicit

Implements IDTExtensibility2

Private WithEvents wpsApp As WPS.Application

Private WithEvents btnNew As CommandBarButton

Private myId As Integer

Private Sub IDTExtensibility2_OnConnection(ByVal Application As Object, ByVal ConnectMode As AddInDesignerObjects.ext_ConnectMode, ByVal AddInInst As Object, custom() As Variant)

Set wpsApp = Application

End Sub

Private Sub IDTExtensibility2_OnDisconnection(ByVal RemoveMode As AddInDesignerObjects.ext_DisconnectMode, custom() As Variant)

Set wpsApp = Nothing

End Sub

Private Sub IDTExtensibility2_OnStartupComplete(custom() As Variant)

Dim myBar As CommandBar

Set myBar = wpsApp.CommandBars.Add("测试工具栏")

Set btnNew = myBar.Controls.Add

End Sub

Private Sub IDTExtensibility2_OnAddInsUpdate(custom() As Variant)

"通常这些不需要写

End Sub

Private Sub IDTExtensibility2_OnBeginShutdown(custom() As Variant)

btnNew.Delete "删除加载项

End Sub

Private Sub btnNew_Click(ByVal Ctrl As KSO.CommandBarButton, CancelDefault As Boolean)

"wpsApp.ActiveDocument.BeginJob

MsgBox "这是一个Demo", vbOKOnly, "kongguisheng"

"wpsApp.ActiveDocument.EndJob "这仅仅是一个Demo", True

End Sub

复制代码

5.单击文件、生成***.dll,保存到C盘下，文件名为kgsPro.dll。

6.Dll生成完成，下面就是注册的步骤了。

7.新建一个文本文档，保存为AddDemo.reg,写入如下的内容

Windows Registry Editor Version 5.00

[HKEY_CURRENT_USER\Software\Kingsoft\Office\WPS\Addins\kgsPro.AddCommand]

"FriendlyName"="WPS加载项Demo"

"Description"="Konguisheng的Demo系列之加载项"

"LoadBehavior"=dword:00000003

"CommandLineSafe"=dword:00000001

8.双击AddDemo.reg，将此导入到注册表中。

9.单击Windows的“运行”，输入regsvr32 C:\kgsPro.dll完成

10.如果要删除这个加载项

A.新建一个文本文档，保存为DeleteDemo.reg,写入如下的内容

Windows Registry Editor Version 5.00

[-HKEY_CURRENT_USER\Software\Kingsoft\Office\WPS\Addins\kgsPro.AddCommand]

B.单击Windows的“运行”，regsvr32 /u C:\kgsPro.dll (此步不是必须)

免责声明：本文仅代表文章作者的个人观点，与本站无关。其原创性、真实性以及文中陈述文字和内容未经本站证实，对本文以及其中全部或者部分内容文字的真实性、完整性和原创性本站不作任何保证或承诺，请读者仅作参考，并自行核实相关内容。

http://www.pinlue.com/style/images/nopic.gif