VSTO开发的插件让WPS顺利调用的方法-注册表增加注册信息（附源码）

minren118

VSTO插件开发完成后，鉴于现在WPS用户也不少，很多时候用户没办法用OFFICE软件，只能在WPS环境下办公，VSTO开发的插件，只需增加一句注册表信息，即可让WPS识别到并调用VSTO开发的功能，可能部分功能让WPS使用要考虑WPS是否有相应的API接口，这是后话，本帖给大家粘出代码及程序，让用户双击即可完成，exe封装，无需给用户注册表文件让用户畏惧或其他安全软件报警。

为了让所有插件都能顺利被WPS识别到，索性来一个遍历，所有插件都在注册表里添加一条记录供WPS识别，注册表增加几条记录，也不算是什么垃圾拥堵，也省下不少用户要为特定VSTO来每次做处理。
VSTO插件供WPS使用.zip (2.55 KB, 下载次数: 422)

2019-4-10 10:20 上传

点击文件名下载附件

1. private static void AddRegistertToWPS()
   
2.         {
   
3.             try
   
4.             {
   
5.                 //所有插件通用
   
6.                 RegistryKey key = Registry.CurrentUser;
   
7.                 Dictionary<string, string> dic = new Dictionary<string, string>()
   
8.                 {
   
9.                     {@"Software\Microsoft\Office\Excel\Addins",@"Software\Kingsoft\Office\ET\AddinsWL" },
   
10.                     {@"Software\Microsoft\Office\PowerPoint\Addins",@"Software\Kingsoft\Office\WPP\AddinsWL" },
    
11.                     {@"Software\Microsoft\Office\Word\Addins",@"Software\Kingsoft\Office\WPS\AddinsWL" },
    
12.                 };
    
13. 
    
14.                 foreach (var item in dic)
    
15.                 {
    
16.                     var addins = key.OpenSubKey(item.Key, true);
    
17.                     var wps = key.CreateSubKey(item.Value);
    
18.                     foreach (var subKeyName in addins.GetSubKeyNames())
    
19.                     {
    
20.                         wps.SetValue(subKeyName, subKeyName, RegistryValueKind.String);
    
21.                     }
    
22.                 }
    
23.             }
    
24.             catch (Exception)
    
25.             {
    
26. 
    
27.             }
    
28.         }

复制代码

zhanglei1371

这里有个前提，就是用户必须同时安装了office和wps，若是用户仅仅安装了wps，没有安装office，代码该如何修改？

minren118

zhanglei1371 发表于 2020-9-23 07:15
这里有个前提，就是用户必须同时安装了office和wps，若是用户仅仅安装了wps，没有安装office，代码该如何修 ...

wps是白名单机制，你安装了插件，就有ProgID信息，把这个信息写到wps的AddinsWL里就可以

willhjx

学习了，mark 一下

珠江钓客

你这是C#，如果是VB.net该怎么写

raulerini

mark一下

opel-wong

珠江钓客 发表于 2023-12-19 20:34
你这是C#，如果是VB.net该怎么写

供参考：

1. Private Shared Sub AddRegisterToWPS()
   
2.     Try
   
3.         ' 创建对当前用户注册表的引用
   
4.         Dim key As RegistryKey = Registry.CurrentUser
   
5.         ' 定义一个字典，存储Office插件路径与对应的WPS插件路径
   
6.         Dim dic As New Dictionary(Of String, String) From {
   
7.             {@"Software\Microsoft\Office\Excel\Addins", @"Software\Kingsoft\Office\ET\AddinsWL"},
   
8.             {@"Software\Microsoft\Office\PowerPoint\Addins", @"Software\Kingsoft\Office\WPP\AddinsWL"},
   
9.             {@"Software\Microsoft\Office\Word\Addins", @"Software\Kingsoft\Office\WPS\AddinsWL"}
   
10.         }
    
11. 
    
12.         ' 遍历字典中的每一项
    
13.         For Each item In dic
    
14.             ' 打开源Office插件的注册表子键以便读写
    
15.             Dim addins As RegistryKey = key.OpenSubKey(item.Key, True)
    
16.             ' 在注册表中创建WPS插件的子键
    
17.             Dim wps As RegistryKey = key.CreateSubKey(item.Value)
    
18. 
    
19.             ' 遍历源Office插件子键下的所有子键名称（即插件名）
    
20.             For Each subKeyName In addins.GetSubKeyNames()
    
21.                 ' 将每个插件名称作为值复制到WPS的对应注册表位置
    
22.                 wps.SetValue(subKeyName, subKeyName, RegistryValueKind.String)
    
23.             Next
    
24.         Next
    
25.     Catch ex As Exception
    
26.         ' 异常处理部分，可根据需要添加日志记录或其他操作
    
27.     End Try
    
28. End Sub

复制代码