ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
让更多数据处理,一键完成 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
查看: 3751|回复: 6

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

[复制链接]

TA的精华主题

TA的得分主题

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

为了让所有插件都能顺利被WPS识别到,索性来一个遍历,所有插件都在注册表里添加一条记录供WPS识别,注册表增加几条记录,也不算是什么垃圾拥堵,也省下不少用户要为特定VSTO来每次做处理。
VSTO插件供WPS使用.zip (2.55 KB, 下载次数: 372)
  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.                 foreach (var item in dic)
  14.                 {
  15.                     var addins = key.OpenSubKey(item.Key, true);
  16.                     var wps = key.CreateSubKey(item.Value);
  17.                     foreach (var subKeyName in addins.GetSubKeyNames())
  18.                     {
  19.                         wps.SetValue(subKeyName, subKeyName, RegistryValueKind.String);
  20.                     }
  21.                 }
  22.             }
  23.             catch (Exception)
  24.             {

  25.             }
  26.         }
复制代码


TA的精华主题

TA的得分主题

发表于 2020-9-23 07:15 | 显示全部楼层
这里有个前提,就是用户必须同时安装了office和wps,若是用户仅仅安装了wps,没有安装office,代码该如何修改?

TA的精华主题

TA的得分主题

 楼主| 发表于 2021-7-6 07:58 | 显示全部楼层
zhanglei1371 发表于 2020-9-23 07:15
这里有个前提,就是用户必须同时安装了office和wps,若是用户仅仅安装了wps,没有安装office,代码该如何修 ...

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

TA的精华主题

TA的得分主题

发表于 2021-7-9 08:56 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2023-12-19 20:34 | 显示全部楼层
你这是C#,如果是VB.net该怎么写

TA的精华主题

TA的得分主题

发表于 2023-12-27 14:21 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2024-5-10 17:11 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
珠江钓客 发表于 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.         For Each item In dic
  13.             ' 打开源Office插件的注册表子键以便读写
  14.             Dim addins As RegistryKey = key.OpenSubKey(item.Key, True)
  15.             ' 在注册表中创建WPS插件的子键
  16.             Dim wps As RegistryKey = key.CreateSubKey(item.Value)

  17.             ' 遍历源Office插件子键下的所有子键名称(即插件名)
  18.             For Each subKeyName In addins.GetSubKeyNames()
  19.                 ' 将每个插件名称作为值复制到WPS的对应注册表位置
  20.                 wps.SetValue(subKeyName, subKeyName, RegistryValueKind.String)
  21.             Next
  22.         Next
  23.     Catch ex As Exception
  24.         ' 异常处理部分,可根据需要添加日志记录或其他操作
  25.     End Try
  26. End Sub
复制代码


您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-7-18 07:21 , Processed in 0.041756 second(s), 12 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

快速回复 返回顶部 返回列表