vb操作WPS，诚向有经验的朋友请教

[lidaixiang]

最近想开发个小程序来操作WPS文字，安装的是WPS2016,引用的是wps object 3.0 library (beta).程序中用下面的语句：
Dim wpsApp As Application

Private Sub Command1_Click()
'Set wpsApp = GetObject("WPS.Application")
'Set wpsApp = GetObject("C:\Kingsoft\WPS Office\10.1.0.6554\office6\wpsapi.dll", "WPS.Application")
Set wpsApp = GetObject("wps.Application")

wpsApp.Visible = True
wpsApp.Documents.Open ("C:\1.doc")

End Sub

提示自动化错误。请高手指教，谢谢！

[lidaixiang]

弹出错误，对dim wpsApp as new wps.Application　，说“用户类型未定义”

[lidaixiang]

会是WPS版本的问题吗？朋友们有经验的，还请多指教，感谢　！

[northwolves]

Private Sub Command1_Click()
dim  wpsApp as new wps.Application

wpsApp.Visible = True
wpsApp.Documents.Open ("C:\1.doc")

End Sub

[舉杯邀明月]

引用 2 楼 lidaixiang 的回复:

弹出错误，对dim wpsApp as new wps.Application　，说“用户类型未定义”

你不是已经引用了库了吗，打开对象浏览器，看看它的对象类名是什么吧。

[zhouwuming307]

我在这一步Set xlapp = CreateObject("ET.Application")时，总是提示ActiveX部件不能创建对象

[threenewbee]

wps版本问题，只有政府版、企业版才支持vba交互。个人版不支持。

[qinzzhi]

2012版后个人不支持

[lzy3408]

没建立引用的对象吧 我做过SolidWorks二次开发。添加引用后需要dim一个引用的对象