I have process which creates an HTML string from a table but some entries are actually word documents. How can Insert a worddoc into the HTML?
this does not work: see code pointed to by the arrows!
LPARAMETERS tcClaimno
LOCAL lcClaimno,lcHTML,lcHTML1,lcHTML2,lcHTML3
IF NOT EMPTY(tcClaimno)
lcClaimno=tcClaimno
ELSE
lcClaimno="9"
ENDIF
LOCAL oWord AS Word.Application
oWord = CREATEOBJECT("Word.Application")
SELECT vclaims1
REQUERY()
lcHTML =[]
SCAN
xx1=vclaims1.claimno
xx2=ALLTRIM(vclaims1.Lname)+", "+ALLTRIM(vclaims1.fname)+" "+ALLTRIM(vclaims1.mname)
xx3=DTOC(vclaims1.doccured)
liClaimID=vclaims1.claim_id
SELECT vfilenotesbyclaimid
REQUERY()
lcHTML1 =[]
SCAN
DO CASE
CASE vfilenotesbyclaimid.doctype="FILENOTE"
xNt0=ALLTRIM(vfilenotesbyclaimid.NOTES,0,CHR(13),CHR(10)," ")
xNt=STRTRAN(xNt0,CHR(13)+CHR(10),"<BR>")
cLnum=RECCOUNT('vfilenotesbyclaimid')-RECNO('vfilenotesbyclaimid')+1
TEXT TO lcHTML1 NOSHOW TEXTMERGE ADDITIVE
<table border="1" width="100%" id="table2">
<tr>
<td width="100" bgcolor="#0000FF"><font color="#FFFFFF" size="2" face="Verdana"><b>Line No</b></font></td>
<td width="294" bgcolor="#0000FF"><font color="#FFFFFF" size="2" face="Verdana"><b>Date</b></font> </td>
<td bgcolor="#0000FF"><font color="#FFFFFF" size="2" face="Verdana"><b>Created By</b></font></td>
</tr>
<tr>
<td width="89"><font size="2"><<cLnum>></font></td>
<td width="109"><font size="2"><<DTOC(vfilenotesbyclaimid.DATE)>></font></td>
<td><font size="2"><<vfilenotesbyclaimid.USERNAME>></font></td>
</tr>
</table>
<table border="0" width="100%" id="table3">
<tr><td>
<font face="Courier New">
<span style="background-color: white"><font size="2"><<xNt>></font></span>
</font>
</td>
</tr>
</table>
ENDTEXT
CASE vfilenotesbyclaimid.doctype="LETTER"
lcDocName=ADDBS(SYS(5)+SYS(2003))+"DocDir\WordDocs\"+ALLTRIM(vfilenotesbyclaimid.docpath)+".doc"
IF FILE(lcDocName)
oWord.documents.open(lcDocName)
oWord.ActiveDocument.Content.Copy
xNt=_cliptext
TEXT TO lcHTML1 NOSHOW TEXTMERGE ADDITIVE
<table border="1" width="100%" id="table2">
<tr>
<td width="100" bgcolor="#0000FF"><font color="#FFFFFF" size="2" face="Verdana"><b>Line No</b></font></td>
<td width="294" bgcolor="#0000FF"><font color="#FFFFFF" size="2" face="Verdana"><b>Date</b></font> </td>
<td bgcolor="#0000FF"><font color="#FFFFFF" size="2" face="Verdana"><b>Created By</b></font></td>
</tr>
<tr>
<td width="89"><font size="2"><<cLnum>></font></td>
<td width="109"><font size="2"><<DTOC(vfilenotesbyclaimid.DATE)>></font></td>
<td><font size="2"><<vfilenotesbyclaimid.USERNAME>></font></td>
</tr>
</table>
<table border="0" width="100%" id="table3">
<tr><td>
<font face="Courier New">
<span style="background-color: white"><font size="2"><<xNt>></font></span>
</font>
</td>
</tr>
</table>
ENDTEXT
ENDIF
OTHERWISE
ENDCASE
ENDSCAN
TEXT TO lcHTML NOSHOW TEXTMERGE ADDITIVE
<html>
<head>
<meta http-equiv="Content-Language" content="en-us">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>File Notes</title>
</head>
<body>
<table border="1" width="100%" id="table1">
<tr>
<td width="100" align="center" bgcolor="#808000">
<font face="Verdana" color="#FFFFFF">Claim Number</font></td>
<td width="294" align="center" bgcolor="#808000">
<font face="Verdana" color="#FFFFFF">Claimant's Name</font></td>
<td align="center" bgcolor="#808000">
<font face="Verdana" color="#FFFFFF">Date of Injury</font></td>
</tr>
<tr>
<td width="100"><<xx1>></td>
<td width="294"><<xx2>></td>
<td><<xx3>></td>
</tr>
</table>
<<lcHTML1>>
</body>
</html>
ENDTEXT
ENDSCAN
oWord.quit
oWord=.null.
release oWord
RETURN lcHTMLany ideas anybody?
Thanks
Peter
Peter Cortiel
