It's not your code, it's Word 97. There seems to be a problem with Word 97 in that it appears that it doesn't even try to convert certain shapes. Shapes (textboxes) are used exclusively in FRX2Word to get fine-grain control over the placement of objects. OTOH, some people use the class with Word97 fine so "go figure".

Try upgrading to Word 2000 or Word XP. Word 97 is only partially supported by the class anyway.


>Hi John,
>
>I'm experiencing a problem with FOXWORD TOOL: When I try to send the result to a HTML file, the file is created, but with no data inside. However, with the same code I can get DOC and RTF documents properly. I attach my code hopping you can lend me a hand with this issue. I'm using VFP 6.0 and MS Office 97.
>
>Thanks in advance
>
>*-------------------
>DO CASE
> CASE thisform.opgOutput.optFile.Value = 1 && A un archivo
> lcTextFile = ALLTRIM(Repolist.cDosName)
> lcReportLine = lcTextFile
> DO CASE
> CASE Thisform.OptTipo.Value = 1
> IF MESSAGEBOX("¡ATENCION! Ha solicitado crear un archivo en formato WORD. Esta operación puede tardar bastante tiempo, en función del tamaño del archivo. Si elige Aceptar, espere hasta que el archivo haya sido creado, lo cual se le advertirá con un mensaje.",;
> 1+64,WARNING_LOC) = 1
> oF2W=NEWOBJECT("frx2word","msoexp")
> oF2W.SaveFolder="C:\Mantasis"
> oF2W.DOC_FileName=ALLT(lcTextFile)+".DOC"
> WAIT WIND NOWAIT'Se esta generando el archivo. Espere, por favor...'
> nSuccess=oF2W.ReportForm(lcReportLine)
> IF nSuccess = 0
> =MESSAGEBOX(FILESAVEDAS_LOC + FULLPATH(lcTextFile)+".DOC", ;
> MB_ICONINFORMATION, ;
> WARNING_LOC)
> ELSE
> =MESSAGEBOX("Se ha producido un error al crear el archivo. Nº de error: "+ALLT(STR(nSuccess)),"AVISO")
> ENDIF
> ENDIF
> CASE Thisform.OptTipo.Value = 2
> IF MESSAGEBOX("¡ATENCION! Ha solicitado crear un archivo en formato RTF. Esta operación puede tardar bastante tiempo, en función del tamaño del archivo. Si elige Aceptar, espere hasta que el archivo haya sido creado, lo cual se le advertirá con un mensaje.",;
> 1+64,WARNING_LOC) = 1
> oF2W=NEWOBJECT("frx2word","msoexp")
> oF2W.SaveFolder="C:\Mantasis"
> oF2W.RTF_FileName=ALLT(lcTextFile)+".RTF"
> WAIT WIND NOWAIT'Se esta generando el archivo. Espere, por favor...'
> nSuccess=oF2W.ReportForm(lcReportLine)
> IF nSuccess = 0
> =MESSAGEBOX(FILESAVEDAS_LOC + FULLPATH(lcTextFile)+".RTF", ;
> MB_ICONINFORMATION, ;
> WARNING_LOC)
> ELSE
> =MESSAGEBOX("Se ha producido un error al crear el archivo. Nº de error: "+ALLT(STR(nSuccess)),"AVISO")
> ENDIF
> ENDIF
> CASE Thisform.OptTipo.Value = 3
> IF MESSAGEBOX("¡ATENCION! Ha solicitado crear un archivo en formato HTML. Esta operación puede tardar bastante tiempo, en función del tamaño del archivo. Si elige Aceptar, espere hasta que el archivo haya sido creado, lo cual se le advertirá con un mensaje.",;
> 1+64,WARNING_LOC) = 1
> oF2W=NEWOBJECT("frx2word","msoexp")
> oF2W.SaveFolder="C:\Mantasis"
> oF2W.HTML_FileName=ALLT(lcTextFile)+".HTML"
> WAIT WIND NOWAIT'Se esta generando el archivo. Espere, por favor...'
> nSuccess=oF2W.ReportForm(lcReportLine)
> IF nSuccess = 0
> =MESSAGEBOX(FILESAVEDAS_LOC + FULLPATH(lcTextFile)+".HTML", ;
> MB_ICONINFORMATION, ;
> WARNING_LOC)
> ELSE
> =MESSAGEBOX("Se ha producido un error al crear el archivo. Nº de error: "+ALLT(STR(nSuccess)),"AVISO")
> ENDIF
> ENDIF
>ENDCASE