=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.