怎样用用VB在word文件里插入横跨两个section的表格?

怎样用用VB在word文件里插入横跨两个section的表格?

'以下代码将在文档最后连续添加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

首先引用microsoft word 12.0 object，具体版本根据你组的哪个office版本 dim wapp as word.application dim wdoc as word.document set wapp = new word.application set wdoc = wapp.documents.open(cdocname) 上面是定义和打开word文件 赋值： wdoc.shapes(i).textframe.textrange.text = trim(text5.text) 在那个打开的word文档中，预先加入多个文本框，上面是给其中某个文本框赋值 wdoc.saveas tmpname wdoc.close wapp.quit set wapp = nothing 这个是另存为和退出