Information générale
Catégorie:
COM/DCOM et OLE Automation
Doug,
Try to copy the file to their local C drive so that the user will only access the document template to copy it to their machine:
lcfile = "TTSmemo.dot"
lcdir = "c:\temp\lotus"
mypath = lcdir + "\" + lcfile && defines path of output file
IF !Directory(lcdir) && checks to see if the temp directory is on user's hard
MD &lcdir && creates directory if it doesn't exist
ENDIF
IF !FILE(mypath) && checks to see if the file is already on user's hard drive
COPY FILE &lcfile TO &mypath && copies file to directory
ENDIF
oWord = CreateObject("Word.Application") && Create instance of Word Object
oDoc = oWord.Documents.Open("c:\temp\lotus\TTSmemo.dot")
......
perform actions
.......
WITH oWord
.ActiveDocument.SaveAs(lcdir + "\TTSmemo.doc") && Save document
.ActiveDocument.Close && Close document
ENDWITH
oWord.Quit && Quit Word
>> Wes
Précédent
Répondre
Voir le fil de ce thread
Voir le fil de ce thread à partir de ce message seulement
Voir tous les messages de ce thread
Voir tous les messages de ce thread à partir de ce message seulement