>Hi Borislav,
>
>Here's the chunk of code that actually does the merge...
>
>
>

>
>
>
>
>oWord = Createobject("Word.Application")
>		oWord.Visible = .T.
>
>
>
>		oDoc = oWord.Documents.Open(Curdir()+"form_letters\"+pdocument)
>		oDoc.MailMerge.MainDocumentType = 0
>		oDoc.MailMerge.OpenDataSource(lcSourceDoc)
>
>*!*			oDoc.MailMerge.Datasource.FirstRecord =  oDoc.MailMerge.Datasource.ActiveRecord
>*!*			oDoc.MailMerge.Datasource.LastRecord = oDoc.MailMerge.Datasource.ActiveRecord
>
>
>		oDoc.Activate && Make it the active foreground app
>		oWord.ActiveDocument.ActiveWindow.View.ShowFieldCodes = .F.
>
>
>

>
>I hope that helps.

oWord = Createobject("Word.Application")
oWord.Visible = .T.

oDoc = oWord.Documents.Open(Curdir()+"form_letters\"+pdocument)
oDoc.MailMerge.MainDocumentType = 0
oDoc.MailMerge.OpenDataSource(lcSourceDoc)

oDoc.MailMerge.Datasource.FirstRecord =  oDoc.MailMerge.Datasource.ActiveRecord
oDoc.MailMerge.Datasource.LastRecord = oDoc.MailMerge.Datasource.ActiveRecord

oDoc.MailMerge.EditMainDocument
oDoc.MailMerge.Destination = 0           && File
oDoc.MailMerge..Execute(.t.)             && Merge to new file