lchtml=[<html><body><table>] SELECT ccprint SCAN FOR docType="FILENOTE" OR docType="LETTER" DO CASE CASE docType="FILENOTE" TEXT TO lcHTML NOSHOW TEXTMERGE ADDITIVE <tr><<ccprint.notes>></tr> ENDTEXT CASE docType="LETTER" *** lcDocName=ADDBS(SYS(5)+SYS(2003))+"DocDir\WordDocs\"+ALLTRIM(ccprint.docpath)+".doc" IF FILE(lcDocName) THISFORM.oWord.visible=.f. THISFORM.oWord.documents.OPEN(lcDocName,,.T.) xNt=THISFORM.oWord.ActiveDocument.Content.TEXT THISFORM.oWord.documents.CLOSE() *xNt=ALLTR(xNt,CHR(13)+CHR(10)) xNt=STRTRAN(xNt,CHR(13),[<br>]) TEXT TO lcHTML NOSHOW TEXTMERGE ADDITIVE <tr><hr> <<xNt>> <hr></tr> ENDTEXT ENDIF **** OTHERWISE ENDCASE ENDSCAN TEXT TO lcHTML NOSHOW TEXTMERGE ADDITIVE </table></body></html> ENDTEXT WITH THISFORM.oWB .NAVIGATE("about:blank") lnStartSeconds = SECONDS() DO WHILE .ReadyState <> 4 ; AND (SECONDS()-lnStartSeconds <= 1 ) DOEVENTS ENDDO .DOCUMENT.OPEN() .DOCUMENT.WRITE(lchtml) .DOCUMENT.CLOSE() .VISIBLE=.T. ENDWITH ENDIFThanks for your input