>oWord.Visible = .f. >oWord.ActiveDocument.MailMerge.EditMainDocument >WITH oWord.ActiveDocument.MailMerge > .Destination = 0 && File > .Execute(.t.) >ENDWITH >cWrdName = oWord.ActiveDocument.Name >doc_to_close = 1 >DO WHILE oWord.Documents.Count > 1 > nDoc = oWord.Documents(doc_to_close) > IF .NOT. cWrdName == nDoc.Name > nDoc.Close(0) > ELSE > doc_to_close = doc_to_close + 1 > ENDIF >ENDDO >oWord.Visible = .t. >oWord.Activate() >