[技巧]Access如何調(diào)用WPS（WPS二次開發(fā)和Office二次開發(fā)的區(qū)別）

tmtony

WPS 的二次開發(fā)接口體系和微軟Office的二次開發(fā)接口體系基本保持一致。只是具體名稱和對(duì)象略有區(qū)別包括：


對(duì)象樹，即對(duì)象的組織構(gòu)成、各對(duì)象代表的含義和微軟Office對(duì)象均保持一致；
接口函數(shù)，即各對(duì)象的方法屬性的名稱和含義均與微軟Office保持一致。不同之處主要表現(xiàn)在兩個(gè)方面：模塊程序的對(duì)象名稱和枚舉常量的名稱。


但2者之間的模塊對(duì)象名稱是不同的。有些差異。
微軟Office和WPS Office各模塊的對(duì)象名稱對(duì)應(yīng)關(guān)系如下：
文字模塊：word.Application ——　　wps.Application
表格模塊：Excel.Application —— et.Application
演示模塊：PowerPoint.Application —— wpp.Application

具體使用時(shí)，只需要替換對(duì)應(yīng)的對(duì)象名稱即可，如下代碼：
下面的代碼可以創(chuàng)建一個(gè)微軟word進(jìn)程
Set app = createObject("Word.Application")
下面的代碼可以創(chuàng)建一個(gè)WPS文字進(jìn)程
Set app = createObject("wps.Application")

枚舉常量通常出現(xiàn)在API方法的參數(shù)或API屬性的賦值上，微軟Office和WPS Office各模塊的對(duì)象名稱對(duì)應(yīng)關(guān)系如下：
公用層： mso ——　 kso
文字模塊：wd ——　wps
表格模塊： xl ——　et
演示模塊：ppt ——　wpp

具體使用時(shí)，替換對(duì)應(yīng)的名稱或使用枚舉常量對(duì)應(yīng)的數(shù)值，也可以在WPS的VBA環(huán)境中查找對(duì)應(yīng)的枚舉常量確認(rèn)其存在而且數(shù)值和微軟OFFICE的一致

下面的代碼可以打印當(dāng)前頁：
WORD的代碼：ActiveDocument.PrintOut Range:=wdPrintCurrentPage
WPS的代碼：ActiveDocument.PrintOut Range:=wpsPrintCurrentPage

也可以用對(duì)應(yīng)的數(shù)值來同時(shí)支持WORD和WPS，如下：
ActiveDocument.PrintOut Range:=2 ' 注釋枚舉常量wdPrintCurrentPage = 2



以下代碼是向 ET里寫內(nèi)容

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

復(fù)制代碼

tmtony

以下是Wps Application對(duì)象的相關(guān)屬性  （完整的Wps API 請(qǐng)參考金山WPS的官方網(wǎng)站  http://www.wps.cn/wpsapi/）

該對(duì)象代表 WPS 應(yīng)用程序，包含最高級(jí)對(duì)象的屬性和方法。
如要使用另一模塊的自動(dòng)功能來控制 WPS 應(yīng)用程序，要使用 CreateObject 或者 GetObject 函數(shù)來返回 WPS 的 Application 對(duì)象。

Class Application屬性列表

屬性	描述
ActiveDocument	該屬性返回 WPS 應(yīng)用程序的活動(dòng)文檔。Documents 類型，只讀。
ActivePrinter	該屬性返回或設(shè)置 WPS 應(yīng)用程序活動(dòng)打印機(jī)的名稱。String 類型，可讀寫。
ActiveWindow	該屬性返回 Window 對(duì)象，該對(duì)象代表 WPS 應(yīng)用程序的活動(dòng)窗口。Window 類型，只讀。
Browser	該屬性返回一個(gè) Browser 對(duì)象，該對(duì)象代表垂直滾動(dòng)條上的“選擇瀏覽對(duì)象”工具。Browser 類型，只讀。
Build	該屬性返回 WPS 應(yīng)用程序的版本號(hào)及編譯序號(hào)。String 類型，只讀。
CaptionLabels	該屬性返回 CaptionLabels 集合。CaptionLabels 類型，只讀。
COMAddIns	該屬性返回 COMAddIns 對(duì)象，該對(duì)象代表 WPS 應(yīng)用程序所有的“組件對(duì)象模型” (COM) 加載項(xiàng)。COMAddIns 類型，只讀。
CommandBars	該屬性返回 WPS 應(yīng)用程序中所有的菜單欄和的工具欄。CommandBars 類型，只讀。
DefaultSaveFormat	該屬性返回或設(shè)置 WPS 應(yīng)用程序的默認(rèn)保存格式。Variant 類型，可讀寫。
DisplayRecentFiles	該屬性返回或設(shè)置“文件”菜單中最近使用過的文件名列表。Boolean 類型，可讀寫。
DisplayScreenTips	該屬性返回或設(shè)置 WPS 應(yīng)用程序的批注、腳注、尾注和超鏈接是否以提示形式顯示。Boolean 類型，可讀寫。
DisplayStatusBar	該屬性返回或設(shè)置 WPS 應(yīng)用程序的狀態(tài)欄是否可見。Boolean 類型，可讀寫。
Documents	該屬性返回 WPS 應(yīng)用程序的所有文檔。Documents 類型，只讀。
FileConverters	該屬性返回 WPS 應(yīng)用程序的文件轉(zhuǎn)換器。FileConverters 類型，只讀。
FindKey	該屬性返回 KeyBinding 對(duì)象，該對(duì)象代表組合鍵，即快捷鍵。KeyBinding 類型，只讀。
KeyBindings	該屬性返回一個(gè) KeyBindings 集合，該集合代表自定義的鍵盤方案。KeyBindings 類型，只讀。
KeysBoundTo	該屬性返回 KeyBinding 對(duì)象，該對(duì)象代表組合鍵，即快捷鍵。KeysBoundTo 類型，只讀。
ListGalleries	該屬性返回列表模板庫集合。ListGalleries 類型，只讀。
Name	該屬性返回 WPS 應(yīng)用程序的名稱。String 類型，只讀。
NormalTemplate	該屬性返回一個(gè) Template 對(duì)象，該對(duì)象代表 Normal 模板。Template 類型，只讀。
Options	該屬性返回 WPS 應(yīng)用程序中的設(shè)置。Options 類型，只讀。
PdfExportOptions	該屬性返回 PDF 格式的輸出設(shè)置。PdfExportOptions 類型，只讀。
RecentFiles	該屬性返回一個(gè) RecentFiles 集合，該集合代表最近存取過的文檔。RecentFiles 類型，只讀。
Selection	該屬性返回文檔中的選定范圍或插入點(diǎn)。Selection 類型，只讀。
ShowStartupDialog	該屬性返回或設(shè)置 WPS 應(yīng)用程序在啟動(dòng)時(shí)是否顯示任務(wù)窗格。Boolean 類型，可讀寫。
ShowVisualBasicEditor	該屬性返回或設(shè)置“Visual Basic 編輯器”窗口是否顯示。Boolean 類型，可讀寫。
Templates	該屬性返回一個(gè) Templates 集合，該集合包括共用模板和附加到打開文檔中的模板。Templates 類型，只讀。
UserAddress	該屬性返回或設(shè)置用戶的通訊地址。String 類型，可讀寫。
UserControl	該屬性返回 WPS 應(yīng)用程序是否為用戶創(chuàng)建或打開的。Boolean 類型，只讀。
UserInitials	該屬性返回或設(shè)置用戶名縮寫。String 類型，可讀寫。
UserName	該屬性返回或設(shè)置用戶姓名。String 類型，可讀寫。
Version	該屬性返回 WPS 應(yīng)用程序的版本號(hào)。String 類型，只讀。
Visible	該屬性返回或者設(shè)置 WPS 應(yīng)用程序是否可見， Boolean 類型，可讀寫。
WindowState	該屬性返回或設(shè)置 WPS 應(yīng)用程序的窗口狀態(tài)。WpsWindowState 類型，可讀寫。

tmtony

方法列表

方法	描述
Activate	該方法用于激活 WPS 應(yīng)用程序。
BuildKeyCode	該方法用于返回指定鍵的組合鍵，即快捷鍵。返回 Long 類型。
CentimetersToPoints	該方法用于將度量單位由厘米轉(zhuǎn)換為磅（1 厘米 = 28.35 磅）。返回 Single 類型。
InchesToPoints	該方法用于將度量單位從英寸轉(zhuǎn)換為磅（1 英寸 = 72 磅）。返回 Single 類型。
KeyString	該方法用于返回指定鍵的組合鍵，即快捷鍵（例如，Ctrl+Alt+A）。
LinesToPoints	該方法用于將度量單位由行轉(zhuǎn)換為磅（1 行 = 12 磅）。返回 Single 類型。
MillimetersToPoints	該方法用于將度量單位由毫米轉(zhuǎn)換為磅（1 毫米 = 2.8 磅）。返回 Single 類型。
NextChangeOrComment	該方法用于將活動(dòng)文檔的光標(biāo)移動(dòng)到下一處修訂或批注。
PicasToPoints	該方法用于將度量單位由十二點(diǎn)活字轉(zhuǎn)換為磅（1 十二點(diǎn)活字 = 12 磅）。返回 Single 類型。
PixelsToPoints	該方法用于將長度值的單位由像素轉(zhuǎn)換為磅（1 像素 = 0.75 磅）。返回 Single 類型。
PointsToCentimeters	該方法用于將度量單位由磅轉(zhuǎn)換為厘米（1 磅約等于 3.527 厘米）。返回 Single 類型。
PointsToInches	該方法用于將度量單位由磅轉(zhuǎn)換為英寸（1 磅約等于 1.389 英寸）。返回 Single 類型。
PointsToLines	該方法用于將度量單位由磅轉(zhuǎn)換為行（1 磅約等于 8.333 行）。返回 Single 類型。
PointsToMillimeters	該方法用于將度量單位由磅轉(zhuǎn)換為毫米（1 磅約等于 0.353 毫米）。返回 Single 類型。
PointsToPicas	該方法用于將度量單位由磅轉(zhuǎn)換為十二點(diǎn)活字（1 磅約等于 8.333 十二點(diǎn)活字）。返回 Single 類型。
PointsToPixels	該方法用于將度量單位由磅轉(zhuǎn)換為像素（1 磅約等于 1.333 像素）。返回 Single 類型。
PreviousChangeOrComment	該方法用于將活動(dòng)文檔的光標(biāo)移動(dòng)到上一處修訂或批注。
PrintOut	該方法用于打印文檔。
Quit	該方法用于退出 WPS 應(yīng)用程序。
Run	該方法用于運(yùn)行 Visual Basic 中的宏。

風(fēng)中漫步

真及時(shí),謝謝分享.

koutx

高，實(shí)在是高！

todaynew

tmtony 發(fā)表于 2015-3-18 12:55
以下是Wps Application對(duì)象的相關(guān)屬性  （完整的Wps API 請(qǐng)參考金山WPS的官方網(wǎng)站  http://www.wps.cn/wpsa ...

很好的資料。

t小寶

看來都要兼容微軟的標(biāo)準(zhǔn)

zpy2

贊一個(gè)

ithink2012

頂一個(gè)

smilingkiss

強(qiáng)啊，學(xué)習(xí)了