извините нет нстроения разжевывать кусок кода для таблицы..
** Создаем таблицу
With oRange
.moveend(6)
.collapse(0)
.insertafter(chr(13)+chr(13))
.collapse(0)
EndWith
oTable = oWord.ActiveDocument.Tables.Add(oRange,1,5) &&,1,0)
With oTable
.cell[1,1].Range.InsertAfter('№ п/п')
.cell[1,1].Width = 50
.cell[1,2].Range.InsertAfter('№ реєстра')
.cell[1,2].Width = 50
.cell[1,3].Range.InsertAfter('Прізвище, Ім"я, По-батькові')
.cell[1,3].Width = 200
.cell[1,4].Range.InsertAfter('Сума')
.cell[1,4].Width = 80
.cell[1,5].Range.InsertAfter('Дата')
.cell[1,5].Width = 90
iNum = 1
Select cTable
Scan
.Rows.Add()
.Cell(iNum+1,1).Select
oWord.Selection.TypeText(AlLtrim(Str(Recno(),10)))
.Cell(iNum+1,2).Select
oWord.Selection.TypeText(Ltrim(Ree))
.Cell(iNum+1,3).Select
oWord.Selection.TypeText(Ltrim(Alltrim(Fam)+' '+SubStr(Alltrim(Name),1,1)+'. '+SubStr(Alltrim(Father),1,1)+'. '))
.Cell(iNum+1,4).Select
oWord.Selection.TypeText(Ltrim(Str(Summa,13,2)))
.Cell(iNum+1,5).Select
oWord.Selection.TypeText(Ltrim(DTOC(Date_vipl)))
AllSum = AllSum + Summa
iNum=iNum+1
endScan
EndWith

2 Inu

та нема за що... а я до речі Ужгородець В-)