Sub abc()
ThisDocument.Content.Delete
myfile = Dir(ThisDocument.Path & "\*.doc")
Do While myfile <> ""
If myfile <> ThisDocument.Name Then
Set doc = GetObject(ThisDocument.Path & "\" & myfile)
doc.Tables(1).Range.Copy
ThisDocument.Activate
Selection.Paste
Selection.MoveDown Unit:=wdLine, Count:=1
doc.Close False
End If
myfile = Dir
Loop
End Sub
材料(多个word文档中的表格汇总为一个word).zip
(29 KB, 下载次数: 27)