写WORD VBA的问题
在word的vb编辑器里面执行没有问题,在pb里面却报错
代码如下:
OLEObject WordObject
WordObject = CREATE OLEObject
if WordObject.ConnectToNewObject("word.Application")<>0 then
SetPointer(Arrow!)
Destroy WordObject
messagebox("OLE错误","Word无法连接,请确认Word是否已经安装",stopsign!)
return
end if
//加载test.doc
WordObject.documents.add("test.doc",false,0)
//往标签处写值,没有问题
WordObject.ActiveDocument.Bookmarks.Item("aaa").Range.Text = 'aaa'
//选择第一个表的第一行
这句报错 Error calling external object function tables
但是在word的vba编辑器中用ActiveDocument.Tables(1).Rows(1).Select没有问题
WordObject.ActiveDocument.Tables(1).Rows(1).Select
//在第一行下面插入一行 这句估计也不行
WordObject.Selection.InsertRowsBelow
请教应该如何写法?