Delphi7调用Word:如何在插入表格之后再在表格之后插入其他文字——在线结贴 如题,我用WordApplication打开新的文档,插入和文章的标题文字和一部分正文,并在正文之后插入了一个表格,接下来想在表格之后插入其他的文字,可是用WordApplication.Selection.TypeText这个函数再想插入其他内容的时候总是插在表格的第一个单元格之内,本人对wDelphi中使用Word的操作不是很熟,不知道应该怎么解决,请赐教 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 Sub Macro1() ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=2, NumColumns:= _ 5, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _ wdAutoFitFixed Selection.MoveRight Unit:=wdCharacter, Count:=15 //注意这句! Selection.TypeText Text:="sadfsadfsadf " Selection.TypeParagraph Selection.TypeText Text:="asdfsadfsadf" Selection.TypeParagraphEnd Sub Sub Macro2() ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=3, NumColumns:= _ 5, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _ wdAutoFitFixed Selection.MoveDown Unit:=wdLine, Count:=3//大概是向下移3行 呵呵 那个表格是3*5 Selection.TypeText Text:="asdf"End Sub to ligenlee(lee) 怎么确定表格(行列)的大小呢 笨点的方法就是 你自己生成表格的时候记一下嘛否则用该表格的NumRows和NumColumns属性来获得行和列也可以 datetimepicker 问题(在线等!) 进来恭喜一下,用SQL SERVER2000存储1万枚指纹,对比时间只花了5秒。。从最初的93秒到5秒,经历了10多天时间,辛苦呀!!! 请问要实现查询这样的结果,SQL语句该怎么写啊? 升三星,放分喽 在线,急×3!要分说,过路的都进来看看! Real类型的最大值和最小值怎么取呀??? 动态加载SQL语句时TADOQuery检查不出SQL参数? 我有个程序和数据库的问题问大家? 网页上flash文本框内容如何获取? 求救!为什么有无法截获的异常? 好急!!! 关于oracle数据更新的问题 读ini的问题?
ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=2, NumColumns:= _
5, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _
wdAutoFitFixed
Selection.MoveRight Unit:=wdCharacter, Count:=15 //注意这句!
Selection.TypeText Text:="sadfsadfsadf "
Selection.TypeParagraph
Selection.TypeText Text:="asdfsadfsadf"
Selection.TypeParagraph
End Sub
ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=3, NumColumns:= _
5, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _
wdAutoFitFixed
Selection.MoveDown Unit:=wdLine, Count:=3//大概是向下移3行 呵呵 那个表格是3*5
Selection.TypeText Text:="asdf"
End Sub
怎么确定表格(行列)的大小呢
否则用该表格的NumRows和NumColumns属性来获得行和列也可以