|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
根据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应用
|
|