I am wondering if the following is possible via FWH ????
I would like to open an RTF file, search for some text (ie: <DAT:NAME>) and replace the found text with a filed from a DBF file (ie: MyDBF->Name ).
After the text is changed I would like to save the RTF as a PDF file.
I would like to be able to do all of this with nothing displayed on the screen.
Is this possible?
Never mind.
My original files were created in Word then saved as RTF files. They lose some formatting so I can't go with RTF.
Is there any way to do the same type of thing with Word files, without having Word installed?
#include "FiveWin.ch"
function Main()
local oWord := CreateObject( "Word.Application" )
local oDoc := oWord:Documents:Open( "c:\document.docx" )
oDoc:Activate()
oDoc:SaveAs2( "c:\document.pdf", 17 )
oDoc:Close()
return nil
Hi Antonio,
I am able to do exactly what I need if I have MS-Word installed.
The problem I run into is that Word does not really like being run from a program that is running as a service.
It works "most" of the time but every now and then Word get hung up and stalls my program.
I was hoping to do this somehow without needing Word 
Jeff,
a docx is a zip file. Open the file and you find document.xml.
You can change document.xml and then pack all files and rename it back to docx.
Best regards,
Otto
viewtopic.php?f=3t=13495p=69231hilit=docx#p69231
&&&
Thanks Otto ... one step closer.
This will work for replacing text but I also need to be able to replace one of my "tokens" (ie: <DAT:SIG>) with an image.
Would you know how I could do this?
Jeff,
please look into the folder:
word\media
Best regards,
Otto
Hi Otto,
I saw that the images are in that folder. I guess what I need to know is how (or where) would I tell word to use the image so that it goes in place of my text <DAT:SIG> ?
Jeff,
use a dummy jpg in your template.
Then you can overwrite the jpg in media folder.
Best regards,
Otto
Otto you are a genius 
That is an excellent idea.
Thanks.
The OLE-error, could it be that a wrong Office version is installed?
Not all versions have OLE included (student versions, private versions, etc.).
You need to have a professional Office version to be able to use OLE.
Regards,
Michel D.
Genk (Belgium)
I use : FiveWin for (x)Harbour v. 25.12 - Harbour 3.2.0 (May 2025) - xHarbour Builder (January 2020) - Bcc773
* RICHEDIT5
- New METHOD SaveToPDF( cName, cFile, lView )
cName := <Optional - Name of report - Not used yet>
cFile := File of PDF file
lView := View PDF file, if .T.
You do not need to have WORD installed
