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 May 10, 2024, 4:51 pm This article has been viewed/printed 35122 times. |