Sub 自動把word表格轉換到Excel()On Error Resume Next """"""出錯繼續（應對不規範的表格）""""""重新命名所有WORD檔案為大寫“A”。如 A (1).docx。""maxcolumn(xex)Dim maxrowend2Dim wdAppFor w3 = 1 To 2 想合併多少個文件？maxrowend2 = Sheets("sheet1").[a65536].End(xlUp).RowSet wdApp = CreateObject("word.application")path_ = ThisWorkbook.PathwdApp.Documents.Open (path_ & "\" & "A (" & w3 & ")" & ".docx")wdApp.Visible = Truen = wdApp.ActiveDocument.Tables.Count """"有多少個表格"x = 0x = maxrowend2 + 1 """"初始行號y = 0For i = 1 To nrs = wdApp.ActiveDocument.Tables(i).Rows.Count """"有多少個行cs = wdApp.ActiveDocument.Tables(i).Columns.Count """"有多少個列""""""ghg = MsgBox(rs & "行列" & cs) """""""""""""""""""""""""""""""提示For m = 1 To rsx = x + 1y = 1ThisWorkbook.Sheets("Sheet1").Cells(x, 1) = "源自A (" & w3 & ")" & ".docx" & "； 第" & i & " 表 " """"""""""9999999999999999999For n = 1 To csvv = wdApp.ActiveDocument.Tables(i).Cell(m, n)ThisWorkbook.Sheets("Sheet1").Cells(x, y + 1) = Mid(vv, 1, Len(vv) - 1) """空第一列y = y + 1NextNextNextwdApp.Application.Quit "關閉word文件Set wdApp = Nothing "釋放物件變數的記憶體NextEnd Sub

2、在Excel中貼上即可；

3、彈出性貼上對話方塊，選擇Microsoft Office Excel工作表物件， 若需要Excel中的資料變化，Word中的資料也隨之變化，就選擇貼上連結，如圖所示。