Добрый день!
Доделываю базу, осталось прикрутить создание счета-фактуры и наряда-заказа. Документы без таблиц генерируются через Word без проблем. А с таблицами проблема: не получается вставка в определенное место в документе, или в начало, или в конец - без проблем. А мне надо в идеале вставлять ее вместо другой таблицы.

SELECT (fcont)
PUBL oword,odoc

oword=CREATEOBJECT('Word.Application')
odoc=oword.Documents.Add('c:\my documents\'+'naryadz.dot')

nfield=afields(arField,fcont)

IF TYPE([m.oDoc.FormFields("Таблица 1")]) ="O"
m.oDoc.tables.add(oword.selection.range, reccount(),nfield)
ENDIF

nrow=1
SCAN
FOR ncol=1 to nfield

cstr=EVALUATE(FIELDS(ncol))

if fast
oword.Documents(1).Tables(nTblCount).Cell(nrow,ncol).Range.Text = cstr
m.oDoc.Tables(nTblCount-1).Cell(nrow,ncol).Range.Text = cstr

else
clp=clp+cstr+";"
endif
ENDFOR
clp=clp+chr(13)
nrow=nrow+1
ENDSCAN

Честно говорю, что код не мой, это то, что я нашел в Сети по этому поводу...

Через запись макроса показывается только selection.paste, а куда вставляется, там не записывается. :-(

sejko
Да, пожалуйста, вышлите на mmilyutin@gmail.com.