作者:乔山办公网日期:
返回目录:office365
逐一复制全部表格到excel对齐粘贴,对表格排序,再用汇总功能即可只能手工操作。
设置方法:抄
1、单击开始----复制按钮(或按Ctrl + C组合键)时行复制;
2、在Excel中粘贴即可;
3、弹出性粘贴对话框袭,选择Microsoft Office Excel工作百表对象, 若需要Excel中的数据变化,Word中的数据也随之变化,就选择粘贴链度接,如图所示。
楼上的人方法太土了,要是有百上百个WORD的文件你不就要一个上午来复制粘贴了吗度,呵呵。。。。我知道怎么操作,先将所有的word文档转换成同一问种格式,再将这些答文件批量性的合并成1个文件。最后将文件中的内版容复制粘贴到excel中,达到你想象中的结果。(具体的操作是先点击采纳权我的答案,再出40的财富值)
Sub 自动把word表格转换到Excel()
On Error Resume Next ''''''出错继续(应对不规范的表格)
''''''重命名所有WORD文件为大写“e68a84e8a2ade799bee5baa6e79fa5e98193334A”。如 A (1).docx。
''maxcolumn(xex)
Dim maxrowend2
Dim wdApp
For w3 = 1 To 2 想合并多少个文档?
maxrowend2 = Sheets("sheet1").[a65536].End(xlUp).Row
Set wdApp = CreateObject("word.application")
path_ = ThisWorkbook.Path
wdApp.Documents.Open (path_ & "\" & "A (" & w3 & ")" & ".docx")
wdApp.Visible = True
n = wdApp.ActiveDocument.Tables.Count ''''有多少个表格
'x = 0
x = maxrowend2 + 1 ''''初始行号
y = 0
For i = 1 To n
rs = wdApp.ActiveDocument.Tables(i).Rows.Count ''''有多少个行
cs = wdApp.ActiveDocument.Tables(i).Columns.Count ''''有多少个列
''''''ghg = MsgBox(rs & "行列" & cs) '''''''''''''''''''''''''''''''提示
For m = 1 To rs
x = x + 1
y = 1
ThisWorkbook.Sheets("Sheet1").Cells(x, 1) = "源自A (" & w3 & ")" & ".docx" & "; 第" & i & " 表 " ''''''''''9999999999999999999
For n = 1 To cs
vv = wdApp.ActiveDocument.Tables(i).Cell(m, n)
ThisWorkbook.Sheets("Sheet1").Cells(x, y + 1) = Mid(vv, 1, Len(vv) - 1) '''空第一列
y = y + 1
Next
Next
Next
wdApp.Application.Quit '关闭word文档
Set wdApp = Nothing '释放对象变量的内存
Next
End Sub