fisierdoc = GETFILE("DOC", ;
   "Selecteaza fisierul Word", ;
   "Alege", ;
   0,;
   "Alege fiseierul Word pentru a adauga la sfarsit.")
#DEFINE wdToggle           9999998
#DEFINE wdParagraph 4
    LOCAL loWord, loSelection, loDocument
    loWord = CREATEOBJECT("Word.Application")
    loWord.Visible = .T.

loDocument = loWord.Documents.Add("&fisierdoc")
loWord.Selection.endkey(6) &&5 sfarsit rand; 6 sfarsit document
loSelection = loWord.Selection
loSelection.TypeText("textul meu")

***********************************

Salutare,

ma poate cineva ajuta sa modific secventa de cod de mai sus sa pot insera in diferite locuri dintr-un doc word date dintr-o tabela....

Multumesc anticipat!

Mii de multumiri...

este exact ce cautam...

raman dator!