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 November 21, 2024, 12:32 pm This article has been viewed/printed 35225 times. |