Micrsoft Word 11.0 Object Library已被引用
sub t123()
'Word对象定义
Dim objWord As New Word.Application
'Doc对象定义
Dim objDoc As Word.Document
'读取指定文件至Doc对象
Set objDoc = objWord.Documents.Open("C:\test.doc")
'Table对象定义
Dim objTable As Word.Table
'读取指定文件中的表1至Table对象
Set objTable = objDoc.Tables(1)
'读取表格1行1列内容,并替换回车换行后显示在Excel当前Sheet的1行1列
Cells(1,1).Value = Replace(mTab.Cell(1, 1).Range.Text, Chr$(13) & Chr$(7), "")
'关闭Doc对象
objDoc.Close False
'关闭Word对象
objWord.Quit
'清除Table对象
Set objTable = Nothing
'清除Doc对象
Set objDoc = Nothing
'清除Word对象
Set objWord = Nothing
end sub