How to automate mail merge in Foxpro 2.6?

[gbm]

I would like to automate a mailmerge in Word 2000 from my Foxpro 2.6 application. Please help.

I have already created a main document with the merge fields in word 2000 and tested it. The merging is working fine in word. Now, I need to automate this procedure from my application.

Thanks

 

[rgbean]

This is impossible from FP DOS and may be impossible from FP Windows. Consider doing this from Word or upgrading to VFP.

Rick

 

[dwd68071]

Hello,

Look at the following code:

= ddesetoption('SAFETY', .F.)
xchannel = DDEINITIATE('Winword', 'System')
IF xchannel=-1
WAIT WINDOW NOWAIT 'Starting Word'
IF EMPTY(cmd)
xchannel = -1
ENDI
RUN /n2 &cmd && cmd = fullpath for winword
xchannel = DDEINITIATE('Winword', 'System')
WAIT CLEAR
ENDI
IF xchannel=-1
&& Personal message routine
=dsp_msg('/o/l/b','Word could not be started...')
ENDIF
IF xchannel<>-1 .AND. chkcommand()
xchannel = DDEINITIATE(&quot;WinWord&quot;, &quot;System&quot
std_title = window title application
= DDEEXECUTE(xchannel, '[AppActivate &quot;&std_title&quot;,1]')
= DDETERMINATE(xchannel)

xchannel = DDEINITIATE(&quot;WinWord&quot;, &quot;System&quot
&&& xdocument = fullpath for doucment
= DDEEXECUTE(xchannel, '[FileOpen &quot;&xdocument&quot;]')
= DDEEXECUTE(xchannel, '[MailMergeToDoc]')
= DDETERMINATE(xchannel)

xkey = INKEY(z_timeout)

* Close WinWord
xchannel = DDEINITIATE(&quot;WinWord&quot;, &quot;System&quot
= DDEEXECUTE(xchannel, &quot;[FileExit 2]&quot
= DDETERMINATE(xchannel)
ENDIF
= ddesetoption('SAFETY', xsafety)


This works with Word 2000 and FPW.
I hacked the wizard for mailmerge in FPW and got some info from there.

Lemme know if it helps

DWD