WPS Office 2005 API技术手册,VBA编程绝对的宝典!

VBDN 2005-09-24 06:19:57
WPS Office2005的二次开发和微软的Office二次开发有什么异同?
  答:WPS Office2005的二次开发接口体系和微软Office的二次开发接口体系基本保持一致。包括:对象树,即对象的组织构成、各对象代表的含义和微软Office对象均保持一致;接口函数,即各对象的方法属性的名称和含义均与微软Office保持一致。

下载地址:
http://node01.fds.kdn.kingsoft.com/pub/wps/wps2c/apihelp.rar
...全文
777 6 打赏 收藏 转发到动态 举报
写回复
用AI写文章
6 条回复
切换为时间正序
请发表友善的回复…
发表回复
zlt982001 2005-09-24
  • 打赏
  • 举报
回复
还有,wps 不支持 脚本操作(宏)
这也是一大缺陷,office的vba强大,而wps 并没有推出自己的脚本,也没有向微软购买 vba 使用授权

郁闷,
不兼容脚本就不等于完全兼容 office
zlt982001 2005-09-24
  • 打赏
  • 举报
回复
不过还是先下载,谢了
zlt982001 2005-09-24
  • 打赏
  • 举报
回复
呵呵,刚刚推出时我马上试了,
虽然基本上对象模型一样,可是速度却也一样慢,而且也没有推出轻型的对象库供操作,晕,本来指望Wps可以替代 excel 等来做报表操作
现在看来和 excel 一样没区别,所以还不如用 excel 来的方便
tianhuo_soft 2005-09-24
  • 打赏
  • 举报
回复
支持 WPS

一、国货
二、还是自己的特点的
唐古拉山 2005-09-24
  • 打赏
  • 举报
回复
WPS模拟的确实可以

但是..一味的模拟...是不是会对创新有影响...


呵呵,该走自己的路啊

VBDN 2005-09-24
  • 打赏
  • 举报
回复
〔以下引用自WPS官方网站〕

技术.开发
  原有的与WPS Office 2003或者WPS Office 2002结合的第三方程序,需要做什么改动才能正常和WPS Office2005结合运行?
  答:使用VB编写的程序,需要将引用库改为升级后的类型库。并将二者接口有差别的部分进行修改,然后重新编译。  使用VC编写的并用到CLSID的程序,需要重写这些CLSID。并将二者接口有差别的部分进行修改,然后重新编译。


  如何启动WPS文字模块?(以VB为例)
  答:如果WPS文字模块已经启动,可以使用GetObject 获得这个进程: Set wpsApp = GetObject(, "WPS.Application") wpsApp.Visible = True   如果WPS尚未启动,可以使用CreateObject 来产生一个新进程: Set wpsApp = CreateObject("WPS.Application") wpsApp.Visible = True


  如何在当前文档中添加一个表格?
  答:下面的例子会在文章开头添加一个4行4列的表格,并在最后一个单元格里写上"需要写些什么" 字样
  Dim rngTbl As WPS.Range
  Dim wpsTable As WPS.Table
  Set r = ActiveDocument.Range(0, 0)
  Set wpsTable = ActiveDocument.Tables.Add(r, 4, 4)
  wpsTable.cell(4, 4).Range.Text = "需要写些什么"


  如何在WPS中添加菜单?
  答:下面的例子会在“文件”菜单条上增加一项弹出式菜单“其他”,并在弹出式菜单上增加一项。
  sub test()
  Set Bar = Application.CommandBars("文件")
  ButtonID = Bar.GetReserveCommandID()
  Set NewPopMenu = Bar.Controls.Add(wpsControlPopup, Before:=7)
  NewPopMenu.Caption = "其他"
  Set NewSubMenu=Application.CommandBars(NewPopMenu.Caption).Controls.Add(wpsControlButton,Id:=ButtonID)
  NewSubMenu.Caption = "这是新增的菜单项"
  NewSubMenu.OnAction = "OnNewMenu"
  NewSubMenu.CommandObject = Me
  End Sub
  Sub OnNewMenu(hWnd As Long)
  MsgBox "New Menu Add OK!"
  End Sub

7,763

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧