Cacher is the code snippet organizer for pro developers

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