Programming |  DDE Programming |  Winword DDE Server

• dde execute -async Winword System {[Insert "Text from Tcl."]}
• to quit word: dde execute Winword System {[FileExit 2]}
• to close a document: dde execute Winword System {[FileClose 2]}

In these examples, 2 = close without saving, 1 = save first, 0 = prompt.

• dde execute Winword System {[AppMaximize 1]}
• dde execute Winword System {[EndOfDocument]}
• dde execute Winword System {[StartOfDocument]}
• dde execute Winword System {[EditFind .Find="hello" .PatternMatch=1]}

http://wiki.tcl.tk/996

Adrian Davis wrote:

I've tried out a few simple things - Works OK...

...Just a couple of questions however...

(*) The document only seems to be updated if the Winword window is minimised (Word97/NT4 SP3). Is this the correct behaviour -or- is there something I can do to update the document while the window is visible?

Yup, use the 'Insert' command, instead of passing just ASCII. Helps if you add -async, too, just for speed..

    dde execute -async Winword System {[Insert "Hello, World."]} 

(*) Is it possible to "FileExit" on an unsaved document and either supress -or- "answer" the "Do you want to save it" dialog?

Yup.

    dde execute Winword System {[FileExit 2]} 

I would recommend, though, that you close the file first, then exit:

    dde execute Winword System {[FileClose 2]} 

    (2 = close without saving, 1 = save first, 0 = prompt) 

I'll get hold of some Word Macro Language documentation ASAP (Honest!!)

Heh.. that's what I said originally too.. but I had it on my system all along.. "wrdbasic.hlp"... installs if you choose the "please flood my hard drive with all the stuff I may never use" options.. : )

Bill