写WORD VBA的问题

yaiger 2007-04-19 05:01:22
在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

请教应该如何写法?

...全文
495 7 打赏 收藏 转发到动态 举报
写回复
用AI写文章
7 条回复
切换为时间正序
请发表友善的回复…
发表回复
yaiger 2007-09-20
  • 打赏
  • 举报
回复
不好意思,很久没有来了,现在给分

freeliu,你的方法测试了一下,应该可以的

Phoenix_Dragon word97的方法现在早就不能用了,所以不能给你分,见谅
freeliu 2007-06-27
  • 打赏
  • 举报
回复
你把小括号都换成中括号试试。
WordObject.ActiveDocument.Tables[1].Rows[1].Select
freeliu 2007-06-27
  • 打赏
  • 举报
回复
你把小括号都换成中括号试试。
WordObject.ActiveDocument.Tables[1].Rows[1].Select
freeliu 2007-06-27
  • 打赏
  • 举报
回复
你把小括号都换成中括号试试。
WordObject.ActiveDocument.Tables[1].Rows[1].Select
Phoenix_Dragon 2007-06-26
  • 打赏
  • 举报
回复
你可以上网搜索 PowerBuilder with Word '97 这篇文章,相信关于这个语法问题能够解决!
yaiger 2007-04-20
  • 打赏
  • 举报
回复
难道没有人碰到这种情况?
yaiger 2007-04-19
  • 打赏
  • 举报
回复
up

604

社区成员

发帖
与我相关
我的任务
社区描述
PowerBuilder 控件与界面
社区管理员
  • 控件与界面社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

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