如何将不同Word文档中相同格式的表格合并汇总

keleccy · 发表于 2015-11-30 08:25

现有3个word表格：语、数、外，每个Word中有相同格式表格，如何合并汇总到一个新word中，如附件样式。请教各位！

huang1314wei · 发表于 2015-11-30 09:13

Sub 汇总()
Dim MyFile$, MyName$, i%, j%, x%, MyDoc As Document, arr
MyFile = ThisDocument.Path & ""
MyName = Dir(MyFile & "*.doc")
arr = Array("语文", "数学", "英语")
Application.ScreenUpdating = False
Do While MyName <> ""
If MyName <> ThisDocument.Name Then
Set MyDoc = Documents.Open(MyFile & MyName)
For x = 0 To UBound(arr)
If InStr(MyDoc.Name, arr(x)) Then x = x + 2: Exit For
Next
With ThisDocument
For i = 1 To ActiveDocument.Tables.Count
For j = 1 To ActiveDocument.Tables(i).Rows.Count - 1
.Tables(i).Cell(j, x).Range.Text = ActiveDocument.Tables(i).Cell(j, x).Range.Text
Next
Next
End With
MyDoc.Close False
End If
MyName = Dir
Loop
Application.ScreenUpdating = True
End Sub

复制代码

huang1314wei · 发表于 2015-11-30 09:15

代码在汇总word当中，运行汇总宏即可

word中运行汇总宏即可.rar (36.03 KB, 下载次数: 199)

keleccy · 发表于 2015-12-1 08:04

huang1314wei 发表于 2015-11-30 09:15
代码在汇总word当中，运行汇总宏即可

多谢了，真是解决大问题了，EH白天好难登上，早上还好，非常感谢！

lulu4494 · 发表于 2017-7-14 13:38

huang1314wei请教一下，汇总的EXCEL中序列号能否换成word文件名呢？

575504963 · 发表于 2018-7-24 08:45

下载下来学习一下，谢谢楼主

		自动登录	找回密码
密码			免费注册

[求助] 如何将不同Word文档中相同格式的表格合并汇总