********************* #DEFINE cr chr(13) #DEFINE vbtab chr(9) #DEFINE wdToggle 9999998 #DEFINE wdAlignParagraphLeft 0 oword=create('word.application') oword.documents.add() oword.caption='Audit Report Test' WITH oword .Selection.typetext(cr+cr) .Selection.ParagraphFormat.Alignment = wdAlignParagraphLeft .SELECTION.Font.Size = 12 .Selection.typetext("Audit No: ") .SELECTION.Font.Bold = wdToggle .Selection.typetext(alltrim(m.lcAudit_id)) .SELECTION.Font.Bold = wdToggle .Selection.typetext(vbtab+vbtab+vbtab) .SELECTION.Font.Bold = .t. .Selection.typetext("Audit Date: ") .SELECTION.Font.Bold = .f. .Selection.typetext(vbtab+vbtab+mdy(audits.date_audit)) etc, etc.... endwith oword.visible= .t. =Release oword