Question

VB操作word怎么添加第二个表格？

已经有一个标题和一个表格了，可是添加第二个表格的标题时不能放在第一个表格的下面，而是显示在了第一个表格的第一个单元格，求大神帮助！

Answer 1

这个我没有试过，以前只做过用VB操作Excel的sheet。

我感觉VB操作Word最重要的是找到一个定位点。

添加第一个标题和表格的时候，一定要有保留出一个多余的空行，

第二次添加的时候，找到第二个空行在去添加。

追问

第二次添加的时候怎样才能找到找到表格下面的空行？能不能给个代码呀？

追答

抱歉，这个我就不会了，我没有用VB操作过Word文档。
不过刚刚在Word中录制了一个宏，
就是增加几个空行，移动光标，在光标处输入字符，
代码如下，希望会对你的问题有用：
Sub 宏1()
'
' 宏1 宏

Selection.TypeParagraph
Selection.TypeParagraph
Selection.TypeParagraph
Selection.MoveUp Unit:=wdLine, Count:=3
Selection.TypeText Text:="aaa"
Selection.MoveDown Unit:=wdLine, Count:=2
Selection.TypeText Text:="ccc"
End Sub

抱歉，这个我就不会了，我没有用VB操作过Word文档。
不过刚刚在Word中录制了一个宏，
就是增加几个空行，移动光标，在光标处输入字符，
代码如下，希望会对你的问题有用：
Sub 宏1()
'
' 宏1 宏

Selection.TypeParagraph
Selection.TypeParagraph
Selection.TypeParagraph
Selection.MoveUp Unit:=wdLine, Count:=3
Selection.TypeText Text:="aaa"
Selection.MoveDown Unit:=wdLine, Count:=2
Selection.TypeText Text:="ccc"
End Sub

Answer 2

'以下代码将在文档最后连续添加3个表格
Sub xx()
    ActiveDocument.Content.Select
    Dim i As Integer, tb As Table
    '连续创建3个带表头的表格
    For i = 1 To 3
        Selection.InsertAfter "表" & i & vbCrLf    '创建一个表头
        Selection.MoveDown Unit:=wdLine, Count:=1  '选中表头下面一行
        Set tb = ActiveDocument.Tables.Add(Range:=Selection.Range, NumRows:=4, NumColumns:=5, DefaultTableBehavior:=1, AutoFitBehavior:=0)    '创建一个表格
        tb.Select    '选中表格
        Selection.MoveDown Unit:=wdLine, Count:=1   '将光标移动到表格下一行
    Next
End Sub