根据excel记录如何复制形成多个word页，以便填充数据

zhinangren

根据Excel 记录需要再word中重复复制表格形成多页，然后填充来自Excel中的数据，请教大侠如何复制word中的表格，到多页？


写了点VBA代码有问题，表格连在一起变成一个了，看大侠给帮忙解决一下。相关部分代码如下：

Dim docApp As Object
Set docApp = CreateObject("word.application")
docApp.Visible = True
docApp.DisplayAlerts = False '取消警报提醒

'打开Word模版
Dim docDum As Object
Set docDum = docApp.Documents.Open(myDocTemplateName)
docDum.SaveAs (myFilepath & "\输出结果\test.docx")

nPipeCount = 18
'根据管线数量在Word复制主表和续表,形成多页，该处有问题。
For m = 1 To nPipeCount
        docApp.Documents(1).Tables(1).Range.Select '选中主表并复制粘贴
        With docApp.Selection
            .MoveStart 4, 0
            .Copy
            .EndKey 6
            .Paste
            .Collapse 1
        End With
        docApp.Documents(1).Tables(2).Range.Select '选中续表并复制粘贴
        With docApp.Selection
            .MoveStart 4, 0
            .Copy
            .EndKey 6
            .Paste
            .Collapse 1
        End With
Next m

docDum.SaveAs (myFilepath & "\输出结果\test.docx")
docDum.Close False

docApp.Quit  '关闭Word应用

3190496160

代码分页不就行了吗