在WORD增加表格问题 ( 积分: 50 )

我想在word 里增加两个表格，当我增加完第一个表格TableA后，我怎么取得下一个表的格的开始位置的range ?
如：
vrange := WordDoc.range(0,0);
WordTableA := WordDoc.Tables.Add(vrange, 4, 2);
-->我怎么样取得WordTableA的最后位置，再换行后开始第二个表格?

我想在word 里增加两个表格，当我增加完第一个表格TableA后，我怎么取得下一个表的格的开始位置的range ?
如：
vrange := WordDoc.range(0,0);
WordTableA := WordDoc.Tables.Add(vrange, 4, 2);
-->我怎么样取得WordTableA的最后位置，再换行后开始第二个表格?

增加一个段落,将表格在段落中加入.
对下一个表格同样操作即可,

在Word里面用VBA操作一下，把宏录制出来，就知道对应的代码了

Sub Macro1()
'
' Macro1 Macro
' 宏在 2005-9-13 由 匿名用户 录制
'
ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=3, NumColumns:= _
3, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _
wdAutoFitFixed
With Selection.Tables(1)
If .Style <> "网格型" Then
.Style = "网格型"
End If
.ApplyStyleHeadingRows = True
.ApplyStyleLastRow = True
.ApplyStyleFirstColumn = True
.ApplyStyleLastColumn = True
End With
Selection.MoveDown Unit:=wdLine, Count:=3' 关键应该就是这里了
Selection.TypeParagraph
ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=3, NumColumns:= _
3, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _
wdAutoFitFixed
With Selection.Tables(1)
If .Style <> "网格型" Then
.Style = "网格型"
End If
.ApplyStyleHeadingRows = True
.ApplyStyleLastRow = True
.ApplyStyleFirstColumn = True
.ApplyStyleLastColumn = True
End With
End Sub