最新WPS办公软件学习教程_免费企业办公软件下载_金山WPS Office官网论坛

 找回密码
 
查看: 364|回复: 44

[VB6/VBA] 算学算卖,VB6写一个WPS的COM加载项插件实例

[复制链接]

1

主题

0

听众

82

积分

LV.2

Rank: 2

签到天数: 2 天

[LV.1]初来乍到

金币
13
威望
210
帖子
12
精华
0
发表于 2015-5-2 06:57 |显示全部楼层
分享到: 新浪微博 腾讯微博
昨天在群里得到天远老师多次指点,才有今天的这篇小文。再次感谢!
以前曾经探讨过wps的com加载项工具栏的制作 http://bbs.wps.cn/thread-22388013-1-1.html
可以说wps的越来越棒了。昨天在群里请教了天远老师,发现二次开发已经完成了三级跳,对于使用vb制作com加载项的朋友来说,就是一个福音。最新版的wps,只需把原来的微软office的com加载项少做改动就可以同时支持wps和office。只能说一声,万岁!
下面我就现学现卖,把自己的写的一个小东西分享给大家。
还是那个wps的faceid的加载项。把原来引用更改如下
还是用vb建立的外接程序

双击 connect,设置如下

更改引用如下


如果你是原来给微软office写的com加载项,代码就不要动,如果是给老版本(v8)的wps写的加载项,替换一些东西。
如 wps 替换成word,kso,替换成mso,kso.CommandBarButton替换成Office.CommandBarButton
生成dll文件即可在word中看到工具栏。

为了让wps文档中显示工具栏,需要导入一句注册表
新建一个 reg文档,粘贴下面代码。双击导入。
Windows Registry Editor Version 5.00
[HKEY_CURRENT_USER\Software\Kingsoft\Office\WPS\AddinsWL]
"WPS加载项习作FaceID.Connect"=""
在wps文字就可以看到工具栏了。


是不是很酷,一个加载项,两个软件通吃。
呵呵。有时间,把以前写的office加载项都搬家过来。谁让我们的wps如此让人喜欢,体积小,安装方便,完全免费,云漫游。

仓促之中不知有没有错误,欢迎大家批评指正。
附件中已经包含vb写的源文件。


本帖子中包含更多资源

您需要 登录 才可以下载或查看,

已有 1 人评分威望 收起 理由
卡卡尼莫 + 10 WPS有你更精彩!

总评分: 威望 + 10   查看全部评分

0

主题

0

听众

1

积分

LV.1

Rank: 1

该用户从未签到

金币
3
威望
1
帖子
1
精华
0
发表于 2015-5-2 07:48 |显示全部楼层
下载这个文件看看
回复

使用道具 举报

3

主题

0

听众

47

积分

LV.1

Rank: 1

签到天数: 1 天

[LV.1]初来乍到

金币
1
威望
85
帖子
3
精华
0
发表于 2015-5-2 07:56 |显示全部楼层
附件vb写的源文件,要升级到选项卡
回复

使用道具 举报

2

主题

1

听众

40

积分

LV.1

Rank: 1

签到天数: 2 天

[LV.1]初来乍到

金币
4
威望
92
帖子
15
精华
0
发表于 2015-5-6 15:37 |显示全部楼层
牛逼!!!!!!!!!!!!
回复

使用道具 举报

0

主题

0

听众

11

积分

LV.1

Rank: 1

该用户从未签到

金币
3
威望
1
帖子
0
精华
0
发表于 2015-6-29 18:05 |显示全部楼层
顶一个,我正需要这个,但是关于APPLICATION声明没有提到。
回复

使用道具 举报

0

主题

0

听众

-6

积分

LV.0

该用户从未签到

金币
3
威望
-11
帖子
0
精华
0
发表于 2015-9-17 15:20 |显示全部楼层
啊,正好项目要用,下载下来瞅瞅
回复

使用道具 举报

0

主题

0

听众

-6

积分

LV.0

该用户从未签到

金币
3
威望
-11
帖子
0
精华
0
发表于 2015-9-18 16:13 |显示全部楼层
楼主霸气,我先下为敬
回复

使用道具 举报

0

主题

0

听众

2

积分

LV.1

Rank: 1

该用户从未签到

金币
3
威望
1
帖子
3
精华
0
发表于 2015-10-10 17:20 |显示全部楼层

感谢分享,支持楼主
回复

使用道具 举报

0

主题

0

听众

4

积分

LV.1

Rank: 1

该用户从未签到

金币
3
威望
3
帖子
5
精华
0
发表于 2015-12-15 10:32 |显示全部楼层
正要学习呢,
回复

使用道具 举报

0

主题

0

听众

4

积分

LV.1

Rank: 1

该用户从未签到

金币
3
威望
3
帖子
5
精华
0
发表于 2015-12-15 10:33 |显示全部楼层
==点击下方快速回帖==
回复

使用道具 举报

*滑动验证:
您需要登录后才可以回帖 登录 | 更多账号登录:

快速回帖:

fastpost

WPS论坛更新日志|WPS Office官方论坛     

GMT+8, 2017-11-24 06:26

Powered by Discuz! X2.5

© 2001-2012 Comsenz Inc.

回顶部