[已解决]请问如何将多个word文档中的表格信息汇总到一个word中

1261181315a

请问如何将多个word文档中的表格信息汇总到一个word中

最佳答案

月排行榜 / 总排行榜

josonxu

2016-3-24 19:34

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)

2016-3-24 19:33 上传

点击文件名下载附件

跳转到最佳答案楼层

爱疯

这是重复贴的第一个帖吗

JX_shangrila

昨天不是已经回答了你"        从源word文档中取出需要数据到新的word中"的提问？附件也上传了，今天这个问题，只要再遍历一下就可以了。

1261181315a

JX_shangrila 发表于 2016-3-24 12:34
昨天不是已经回答了你"        从源word文档中取出需要数据到新的word中"的提问？附件也上传了，今天这个问题，只要 ...

老师今天这个是多个文档，昨天是在一个文档中。望老师解答。

1261181315a

爱疯 发表于 2016-3-24 12:29
这是重复贴的第一个帖吗

老师不是重复贴。

josonxu

文件加密不好上传

1. Sub abc()
   
2. ThisDocument.Content.Delete
   
3.     myfile = Dir(ThisDocument.Path & "\*.doc")
   
4.     Do While myfile <> ""
   
5.     If myfile <> ThisDocument.Name Then
   
6.         Set doc = Documents.Open(ThisDocument.Path & "" & myfile)
   
7.         ActiveDocument.Tables(1).Range.Copy
   
8.         ThisDocument.Activate
   
9.         Selection.Paste
   
10.         Selection.MoveDown Unit:=wdLine, Count:=1
    
11.         doc.Close
    
12.     End If
    
13.       myfile = Dir
    
14.     Loop
    
15. End Sub
    

复制代码

1261181315a

josonxu 发表于 2016-3-24 14:37
文件加密不好上传

老师我试了你的代码，可以将需要信息提取出来。我希望在运行时不要屏闪。请老师指点

josonxu

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)

2016-3-24 19:33 上传

点击文件名下载附件

1261181315a

josonxu 发表于 2016-3-24 19:34
Sub abc()
ThisDocument.Content.Delete
    myfile = Dir(ThisDocument.Path & "\*.doc")

老师能介绍下代码的含义不？我是网上搜索了下，有很多语句都没找到。

josonxu

1261181315a 发表于 2016-3-25 08:24
老师能介绍下代码的含义不？我是网上搜索了下，有很多语句都没找到。

打开目标文件
拷贝第一个表格
在跳转到代码所在的word
粘贴
换行
关闭打开的word

我的思路大致是这个