Par2: Word 97 DDE syntax 2001-06-21 -- Oddmar Dam IF EXISTS(FilNavn)
DDEEXECUTE(Channel,'[FileOpen("' & FilNavn & '")]')
DDECLOSE(Channel)
ELSE
DDEEXECUTE(Channel,'[FileSaveAs "' & FilNavn & '"]')
Channel = DDECLIENT('WinWord',FilNavn)
DDEPOKE(Channel,'\StartOfDoc','Tim') !To write a text
at the top of the documents
DDEPOKE(Channel,'Name','Tim') !Write to a
bookmark called Name
DDECLOSE(Channel)
.
! DDEEXECUTE(Channel,'[FilePrintDefault]') !To get word to
print document.
Printed April 28, 2024, 5:16 am This article has been viewed/printed 35115 times. |