Delphi7调用Word：如何在插入表格之后再在表格之后插入其他文字——在线结贴

Question

如题，我用WordApplication打开新的文档，插入和文章的标题文字和一部分正文，并在正文之后插入了一个表格，接下来想在表格之后插入其他的文字，可是用WordApplication.Selection.TypeText这个函数再想插入其他内容的时候总是插在表格的第一个单元格之内，本人对wDelphi中使用Word的操作不是很熟，不知道应该怎么解决，请赐教

Answer 1

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.TypeParagraph
End Sub

Answer 2

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

Answer 3

to  ligenlee(lee) 
怎么确定表格（行列）的大小呢

Answer 4

笨点的方法就是 你自己生成表格的时候记一下嘛
否则用该表格的NumRows和NumColumns属性来获得行和列也可以