* Assume oWord contains object reference to Word SELECT DataToMerge SCAN oWord.Documents.Open(DataToMerge.Template) oDoc = oWord.ActiveDocument * Set up merge data iKey = DataToMerge.iPK SELECT * ; FROM DataToMerge ; WHERE iPK = iKey ; INTO CURSOR OneRecToMerge * Put merge data into Excel file for merge cXLFile = FORCEPATH("MergeData.XLS",SYS(2023)) COPY TO MergeData TYPE XL5 * Attach to Document oDoc.MailMerge.OpenDataSource(cXLFile) * Merge oDoc.MailMerge.Execute * Now do something with the new document oWord.ActiveDocument.PrintOut() * Clean up oWord.ActiveDocument.Close(0) oDoc.Close(0) ENDSCANTamar