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

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.写入如下的代码：

1. Option Explicit
   
2. Implements IDTExtensibility2
   
3. Private WithEvents wpsApp As WPS.Application
   
4. Private WithEvents btnNew As CommandBarButton
   
5. Private myId As Integer
   
6. Private Sub IDTExtensibility2_OnConnection(ByVal Application As Object, ByVal ConnectMode As AddInDesignerObjects.ext_ConnectMode, ByVal AddInInst As Object, custom() As Variant)
   
7.     Set wpsApp = Application
   
8. End Sub
   
9. Private Sub IDTExtensibility2_OnDisconnection(ByVal RemoveMode As AddInDesignerObjects.ext_DisconnectMode, custom() As Variant)
   
10.     Set wpsApp = Nothing
    
11.    
    
12. End Sub
    
13. Private Sub IDTExtensibility2_OnStartupComplete(custom() As Variant)
    
14.     Dim myBar As CommandBar
    
15.     Set myBar = wpsApp.CommandBars.Add("测试工具栏")
    
16.     Set btnNew = myBar.Controls.Add
    
17.     
    
18.    
    
19. End Sub
    
20. Private Sub IDTExtensibility2_OnAddInsUpdate(custom() As Variant)
    
21.     '通常这些不需要写
    
22. End Sub
    
23. Private Sub IDTExtensibility2_OnBeginShutdown(custom() As Variant)
    
24.     btnNew.Delete '删除加载项
    
25. End Sub
    
26. Private Sub btnNew_Click(ByVal Ctrl As KSO.CommandBarButton, CancelDefault As Boolean)
    
27.    'wpsApp.ActiveDocument.BeginJob
    
28.     MsgBox "这是一个Demo", vbOKOnly, "kongguisheng"
    
29.    'wpsApp.ActiveDocument.EndJob "这仅仅是一个Demo", True
    
30. 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 （此步不是必须）