[技巧]Access如何调用WPS（WPS二次开发和Office二次开发的区别）

tmtony

WPS 的二次开发接口体系和微软Office的二次开发接口体系基本保持一致。只是具体名称和对象略有区别包括：


对象树，即对象的组织构成、各对象代表的含义和微软Office对象均保持一致；
接口函数，即各对象的方法属性的名称和含义均与微软Office保持一致。不同之处主要表现在两个方面：模块程序的对象名称和枚举常量的名称。


但2者之间的模块对象名称是不同的。有些差异。
微软Office和WPS Office各模块的对象名称对应关系如下：
文字模块：word.Application ——　　wps.Application
表格模块：Excel.Application —— et.Application
演示模块：PowerPoint.Application —— wpp.Application

具体使用时，只需要替换对应的对象名称即可，如下代码：
下面的代码可以创建一个微软word进程
Set app = createObject("Word.Application")
下面的代码可以创建一个WPS文字进程
Set app = createObject("wps.Application")

枚举常量通常出现在API方法的参数或API属性的赋值上，微软Office和WPS Office各模块的对象名称对应关系如下：
公用层： mso ——　 kso
文字模块：wd ——　wps
表格模块： xl ——　et
演示模块：ppt ——　wpp

具体使用时，替换对应的名称或使用枚举常量对应的数值，也可以在WPS的VBA环境中查找对应的枚举常量确认其存在而且数值和微软OFFICE的一致

下面的代码可以打印当前页：
WORD的代码：ActiveDocument.PrintOut Range:=wdPrintCurrentPage
WPS的代码：ActiveDocument.PrintOut Range:=wpsPrintCurrentPage

也可以用对应的数值来同时支持WORD和WPS，如下：
ActiveDocument.PrintOut Range:=2 ' 注释枚举常量wdPrintCurrentPage = 2



以下代码是向 ET里写内容

1. 
   
2. Dim i As Integer
   
3. Dim ET As Object, sht As Object
   
4. Private Sub Command1_Click()
   
5. i = i + 1
   
6. sht.Cells(i, 1).Value = Text1.Text
   
7. sht.Cells(i, 2).Value = Text2.Text
   
8. End Sub
   
9. 
   
10. Private Sub Form_Load()
    
11. Set ET = CreateObject("et.application")
    
12. Set sht = ET.Workbooks.Add.Sheets("sheet1")
    
13. ET.Visible = True
    
14. 
    
15. End Sub

复制代码

tmtony

以下是Wps Application对象的相关属性  （完整的Wps API 请参考金山WPS的官方网站  http://www.wps.cn/wpsapi/）

该对象代表 WPS 应用程序，包含最高级对象的属性和方法。
如要使用另一模块的自动功能来控制 WPS 应用程序，要使用 CreateObject 或者 GetObject 函数来返回 WPS 的 Application 对象。

Class Application属性列表

属性	描述
ActiveDocument	该属性返回 WPS 应用程序的活动文档。Documents 类型，只读。
ActivePrinter	该属性返回或设置 WPS 应用程序活动打印机的名称。String 类型，可读写。
ActiveWindow	该属性返回 Window 对象，该对象代表 WPS 应用程序的活动窗口。Window 类型，只读。
Browser	该属性返回一个 Browser 对象，该对象代表垂直滚动条上的“选择浏览对象”工具。Browser 类型，只读。
Build	该属性返回 WPS 应用程序的版本号及编译序号。String 类型，只读。
CaptionLabels	该属性返回 CaptionLabels 集合。CaptionLabels 类型，只读。
COMAddIns	该属性返回 COMAddIns 对象，该对象代表 WPS 应用程序所有的“组件对象模型” (COM) 加载项。COMAddIns 类型，只读。
CommandBars	该属性返回 WPS 应用程序中所有的菜单栏和的工具栏。CommandBars 类型，只读。
DefaultSaveFormat	该属性返回或设置 WPS 应用程序的默认保存格式。Variant 类型，可读写。
DisplayRecentFiles	该属性返回或设置“文件”菜单中最近使用过的文件名列表。Boolean 类型，可读写。
DisplayScreenTips	该属性返回或设置 WPS 应用程序的批注、脚注、尾注和超链接是否以提示形式显示。Boolean 类型，可读写。
DisplayStatusBar	该属性返回或设置 WPS 应用程序的状态栏是否可见。Boolean 类型，可读写。
Documents	该属性返回 WPS 应用程序的所有文档。Documents 类型，只读。
FileConverters	该属性返回 WPS 应用程序的文件转换器。FileConverters 类型，只读。
FindKey	该属性返回 KeyBinding 对象，该对象代表组合键，即快捷键。KeyBinding 类型，只读。
KeyBindings	该属性返回一个 KeyBindings 集合，该集合代表自定义的键盘方案。KeyBindings 类型，只读。
KeysBoundTo	该属性返回 KeyBinding 对象，该对象代表组合键，即快捷键。KeysBoundTo 类型，只读。
ListGalleries	该属性返回列表模板库集合。ListGalleries 类型，只读。
Name	该属性返回 WPS 应用程序的名称。String 类型，只读。
NormalTemplate	该属性返回一个 Template 对象，该对象代表 Normal 模板。Template 类型，只读。
Options	该属性返回 WPS 应用程序中的设置。Options 类型，只读。
PdfExportOptions	该属性返回 PDF 格式的输出设置。PdfExportOptions 类型，只读。
RecentFiles	该属性返回一个 RecentFiles 集合，该集合代表最近存取过的文档。RecentFiles 类型，只读。
Selection	该属性返回文档中的选定范围或插入点。Selection 类型，只读。
ShowStartupDialog	该属性返回或设置 WPS 应用程序在启动时是否显示任务窗格。Boolean 类型，可读写。
ShowVisualBasicEditor	该属性返回或设置“Visual Basic 编辑器”窗口是否显示。Boolean 类型，可读写。
Templates	该属性返回一个 Templates 集合，该集合包括共用模板和附加到打开文档中的模板。Templates 类型，只读。
UserAddress	该属性返回或设置用户的通讯地址。String 类型，可读写。
UserControl	该属性返回 WPS 应用程序是否为用户创建或打开的。Boolean 类型，只读。
UserInitials	该属性返回或设置用户名缩写。String 类型，可读写。
UserName	该属性返回或设置用户姓名。String 类型，可读写。
Version	该属性返回 WPS 应用程序的版本号。String 类型，只读。
Visible	该属性返回或者设置 WPS 应用程序是否可见， Boolean 类型，可读写。
WindowState	该属性返回或设置 WPS 应用程序的窗口状态。WpsWindowState 类型，可读写。

tmtony

方法列表

方法	描述
Activate	该方法用于激活 WPS 应用程序。
BuildKeyCode	该方法用于返回指定键的组合键，即快捷键。返回 Long 类型。
CentimetersToPoints	该方法用于将度量单位由厘米转换为磅（1 厘米 = 28.35 磅）。返回 Single 类型。
InchesToPoints	该方法用于将度量单位从英寸转换为磅（1 英寸 = 72 磅）。返回 Single 类型。
KeyString	该方法用于返回指定键的组合键，即快捷键（例如，Ctrl+Alt+A）。
LinesToPoints	该方法用于将度量单位由行转换为磅（1 行 = 12 磅）。返回 Single 类型。
MillimetersToPoints	该方法用于将度量单位由毫米转换为磅（1 毫米 = 2.8 磅）。返回 Single 类型。
NextChangeOrComment	该方法用于将活动文档的光标移动到下一处修订或批注。
PicasToPoints	该方法用于将度量单位由十二点活字转换为磅（1 十二点活字 = 12 磅）。返回 Single 类型。
PixelsToPoints	该方法用于将长度值的单位由像素转换为磅（1 像素 = 0.75 磅）。返回 Single 类型。
PointsToCentimeters	该方法用于将度量单位由磅转换为厘米（1 磅约等于 3.527 厘米）。返回 Single 类型。
PointsToInches	该方法用于将度量单位由磅转换为英寸（1 磅约等于 1.389 英寸）。返回 Single 类型。
PointsToLines	该方法用于将度量单位由磅转换为行（1 磅约等于 8.333 行）。返回 Single 类型。
PointsToMillimeters	该方法用于将度量单位由磅转换为毫米（1 磅约等于 0.353 毫米）。返回 Single 类型。
PointsToPicas	该方法用于将度量单位由磅转换为十二点活字（1 磅约等于 8.333 十二点活字）。返回 Single 类型。
PointsToPixels	该方法用于将度量单位由磅转换为像素（1 磅约等于 1.333 像素）。返回 Single 类型。
PreviousChangeOrComment	该方法用于将活动文档的光标移动到上一处修订或批注。
PrintOut	该方法用于打印文档。
Quit	该方法用于退出 WPS 应用程序。
Run	该方法用于运行 Visual Basic 中的宏。

风中漫步

真及时,谢谢分享.

koutx

高，实在是高！

todaynew

tmtony 发表于 2015-3-18 12:55
以下是Wps Application对象的相关属性  （完整的Wps API 请参考金山WPS的官方网站  http://www.wps.cn/wpsa ...

很好的资料。

t小宝

看来都要兼容微软的标准

zpy2

赞一个

ithink2012

顶一个

smilingkiss

强啊，学习了