急求高手帮忙!非常感谢

luzhipeng81 2012-08-09 04:17:59
主要程序如下:
dim wordobj as word.application,word as word.document
dim mytable as table
……
……
mytable.cell(1,4).range.insertsymbol 110,"GDT",true,wdFontBiasDefault
mytable.cell(1,5).range.fields.add(mytable.cell(1,5).range,wdFieldEmpty,"EQ \S(100,200)",false)
……
……

现在问题就出在下面这两句,
第一句的意思是在cell(1,4)中插入一个符号,程序运行的时候提示:实时错误‘4605’,此方法或属性无效,因此 此对象与简单区域或选定部分无关;
第二句的意思是在cell(1,5)中插入一个上下标同时存在的域,程序运行的时候提示:实时错误‘4605’,此命令无效

急求高手帮忙!非常感谢
急用,拜托了!
...全文
146 5 打赏 收藏 转发到动态 举报
写回复
用AI写文章
5 条回复
切换为时间正序
请发表友善的回复…
发表回复
gg_lihui 2013-08-12
  • 打赏
  • 举报
回复
用什么方法解决的,楼主可以透露下么?
luzhipeng81 2012-08-14
  • 打赏
  • 举报
回复
感谢回复,上面的问题我已经用其他方式解决了。
zyg0 2012-08-10
  • 打赏
  • 举报
回复
写 vba 是可以打 断点 和 应用系统进行 操作的 你可以点击 录制宏 然后 重复 需要的操作 系统会 给你生成 vba的代码 然后 你根据 这些代码来更改 你的程序 。
你的代码 我看的云里雾里 都不知道你在干吗
luzhipeng81 2012-08-10
  • 打赏
  • 举报
回复
知道的说一下啊,非常感谢啊!
luzhipeng81 2012-08-09
  • 打赏
  • 举报
回复
输错了,第2句是:
abc=mytable.cell(1,5).range.fields.add(mytable.cell(1,5).range,wdFieldEmpty,"EQ \S(100,200)",false)

7,763

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

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