' ////////////////////////////////////////////////////
' копирование таблицы из документа word
' вообще-то может быть и rtf, и html - любой документ, который может быть открыт word-ом и содержит таблицы
' rem проверялось только на строковых данных
' rem как поведет себя с числами и датами - неизвестно
' параметры
'     sWodFile: полное имя документа word
'     iTableNumber: номер таблицы в документе word
'     oRange: ссылка на ячейку в Excel (не обязательно в текущей или активной книге, главное - чтобы книга была открыта)
' возвращаемое значение: 
'     в данной версии не используется (всегда 12)
Function TableFromWord%(sWodFile$, iTableNumber%, oRange As Range)
Dim w As Object, d As Object

Set w = CreateObject("Word.Application")
' NB! если открываемый документ не .doc методу Open надо об этом сказать (см.справку в Word-е)
Set d = w.documents.Open(sWodFile)

d.tables(iTableNumber).Range.Copy
oRange.PasteSpecial xlPasteValues

d.Close False: Set d = Nothing
w.Quit: Set w = Nothing
TableFromWord =  12 
End Function

i = TableFromWord("C:\temp\doc_\t105.2.doc",  2 , ActiveWorkbook.Лист1.[B2])

type cDBFRec
  f0 As String *  1  ' пометка удаления
  f1 As String *  10  ' первое поле
  f2 As Integer ' второе поле
  f3 As String *  50  ' третье поле
  ' ... и т.д.
end type

dim aRec as cDBFRec

Open "c:\mydbftable.dbf" For Binary Access Write Lock Read Write as # 100 
Seek # 100 , LOF( 100 ) +  1 

cDBFRec.f0 = " "
With ThisDocument.Tables(N)
for i =  2  to .Rows.Count
' начинаем со второй строки, т.к. в первой, как правило, - заголовки столбцов
  cDBFRec.f1 = Left(LTrim(.Cell(i,  1 ).Range.Text),  10 )
  cDBFRec.f2 = CInt(.Cell(i,  2 ).Range.Text)
  cDBFRec.f3 = Left(LTrim(.Cell(i,  3 ).Range.Text),  50 )
  '...
  Put # 100 , cDBFRec
next i
End With

Close # 100