#DEFINE wdCollapseStart 1 #DEFINE wdCollapseEnd 0 lcDoc = GETFILE('doc') lcRTF = GETFILE('rtf') oWord = createobject('Word.Application') with oWord .Visible = .t. .Documents.Open(m.lcDoc) .ActiveDocument.Content.Select .Selection.Collapse(wdCollapseEnd) .Selection.InsertFile(m.lcRTF, , .f.) .Activate endwithCetin