提取WORD中特定內容製成excel表格：
用宏命令。
Sub abc()
Dim App, WrdDoc, Mypath As String, StrA As String, StrB As String
Mypath = ThisWorkbook.Path & "\aaa.doc" "請修改實際儲存路徑！
Set App = CreateObject("Word.Application") "用Set關鍵字建立Word應用成序物件！
App.Visible = True"根據實際情況修改是否可見
Set WrdDoc = App.Documents.Open(Mypath) "開啟這個Word檔案！
StrA = WrdDoc.Tables(1).Cell(1, 2).Range.Text " 你要的第一個內容：第一行，第二列
StrB = WrdDoc.Tables(1).Cell(2, 2).Range.Text " 你要的第一個內容：第二行，第二列
WrdDoc.Close " 關閉檔案
Set App = Nothing
Debug.Print StrA
Debug.Print StrB
End Sub
提取WORD中特定內容製成excel表格：
用宏命令。
Sub abc()
Dim App, WrdDoc, Mypath As String, StrA As String, StrB As String
Mypath = ThisWorkbook.Path & "\aaa.doc" "請修改實際儲存路徑！
Set App = CreateObject("Word.Application") "用Set關鍵字建立Word應用成序物件！
App.Visible = True"根據實際情況修改是否可見
Set WrdDoc = App.Documents.Open(Mypath) "開啟這個Word檔案！
StrA = WrdDoc.Tables(1).Cell(1, 2).Range.Text " 你要的第一個內容：第一行，第二列
StrB = WrdDoc.Tables(1).Cell(2, 2).Range.Text " 你要的第一個內容：第二行，第二列
WrdDoc.Close " 關閉檔案
Set App = Nothing
Debug.Print StrA
Debug.Print StrB
End Sub