int i
string ls_File_Name, ls_file_name_data

ls_File_Name = 'C:\Test\Open.doc'
ls_file_name_data = 'C:\Test\Open.62' // Open. 62  - текстовый файл
oleWinWord = create OLEObject
i = oleWinWord.ConnectToNewObject( "Word.Application" )
if i =  0  then
	oleWinWord.Documents.Open( ls_File_Name )
	oleWinWord.Application.Visible = true
	oleWinWord.Application.WindowState =  1 
	oleWinWord.Application.ActiveDocument.MailMerge.OpenDataSource( ls_file_name_data )
	oleWinWord.Application.ActiveDocument.MailMerge.ViewMailMergeFieldCodes = false
	oleWinWord.Application.ActiveDocument.Saved = true
else
	MessageBox( "Ошибка", "Не могу установить связь с Microsoft
        Word~r~nПроверьте, установлен ли MicrosoftWord на Вашем
        компьютере", stopsign! )
end if
oleWinWord.DisconnectObject()
destroy oleWinWord