Вот фрагмент процедуры копирования содержимого Word-файла в Excel-таблицу:  
 
Sub CopyOldWordDoc()  
Dim a As Variant, MainBook As Workbook, CurrentSheet As String  
 Set MainBook = ActiveWorkbook  
 CurrentSheet = ActiveSheet.Name  
              Dim FD As FileDialog  
              Dim iFileName As String  
              Dim Book As Workbook  
              Dim CheckNameBook As String  
       Set FD = Application.FileDialog(msoFileDialogFilePicker)  
       With FD  
             .Filters.Clear  
             .Filters.Add "Microsoft Word files", "*.doc"  
             .Filters.Add "All files", "*.*"  
             .AllowMultiSelect = False  
             .InitialFileName = ThisWorkbook.path  
             .Title = "Открытие документа"  
             .ButtonName = "Открыть"  
            If .Show = False Then  
               MsgBox "Вы не указали файл - источник!", 48, "Ошибка"  
               Exit Sub  
            Else  
               iFileName = .SelectedItems(1)  
            End If  
         End With  
         Set FD = Nothing  
         '<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<>>>>>>>>>>>>>>>>>>>>>>>>>>>>>­>  
        ' Открытие документа Word и копирование содержимого в новую книгу  
         '<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<>>>>>>>>>>>>>>>>>>>>>>>>>>>>>­>  
    Dim WordApp As Object, CopyArea As Variant  
     Set WordApp = CreateObject("Word.Application")  
       WordApp.Application.Visible = False  
       WordApp.Documents.Open Filename:=iFileName  
       With WordApp.ActiveDocument  
           Set CopyArea = .Range(0, .Characters.Count)  
               CopyArea.Select  
               WordApp.Selection.Copy  
       End With  
     Workbooks.Add  
     Dim TempBook As Workbook  
     Set TempBook = ActiveWorkbook  
         'TempBook.Worksheets(1).Cells.NumberFormat = "@"  
         TempBook.Worksheets(1).Range("A1").Select  
         ActiveSheet.Paste  
         'Application.CutCopyMove = False  
         WordApp.Quit  
         '<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<>>>>>>>>>>>>>>>>>>>>>>>>>>>>>­>  
        ' Поиск данных в новой книге и копирование их в форму  
         '<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<>>>>>>>>>>>>>>>>>>>>>>>>>>>>>­>  
 
 MainBook.Activate  
 Worksheets(CurrentSheet).Activate  
 Range("A1").Activate  
 
В этой процедуре копируется весь файл, отметить с какой позиции копировать и экспортировать в Excel только часть файла - дело неблагодарное, потому как в Word отсутствует относительная адресация строк. Поэтому копируем все содержание во временную книгу или страницу, и по ключевым словам методом FIND() находим и переносим куда надо все что душа пожелает...  
 
Удачи... Владимир.