>=SYS(3005, 1033) >thisform.fl_error = .t. >msg_error = ON("ERROR") >fl_error = .f. >ON ERROR fl_error = .t. >thisform.nLocaleId = VAL(SYS(3004)) && Save local id >=SYS(3006,1033) && We will be sending instructions in English >DO WHILE TYPE("thisform.oWord") # "O" .OR. ISNULL(thisform.oWord) > thisform.oWord = GetObject(,"Word.Application") > IF TYPE("thisform.oWord") # "O" .OR. ISNULL(thisform.oWord) > thisform.oWord = CreateObject("Word.Application") > ENDIF >ENDDO >thisform.oWord.DisplayAlerts = 0 >thisform.oWord.Visible = .f. > >* Here open file dialog box is raised on the screen >thisform.oWord.Documents.Open(m_name) > >thisform.oWord.Caption = ALLTRIM(Blanki.Name) >WITH thisform.oWord.ActiveDocument.MailMerge > .OpenDataSource(m_name1) >ENDWITH > >ON ERROR &msg_error >thisform.fl_error = .f. >