Sub open_word()
Dim wd_App As New Word.Application
Dim wd_Doc As Word.Document
Dim wd_Table As Word.Table
wd_App.Documents.Open ("c:\001.doc")
wd_App.Visible = True ' это по желанию
wd_App.Documents( 1 ).Tables( 1 ).Select
wd_App.Selection.Copy

Excel.ActiveSheet.Paste
Set wd_App = Nothing
End Sub