Need function for a macro that works when "x" is used to EXIT MSWord

[Guest_imported]

I have very little experience with macros, and I am trying to write a macro that will delete files from a directory when Word is EXITED. I have figured out how to delete the files, and I have figured out how to change the File Exit command in Word so that when File Exit is used to EXIT Word, the designated files are deleted; however, when I EXIT Word using the &quot;x&quot; at the top right or when using <Ctrl+F4>, the designated files are not removed.

Is there a special function (not sure if &quot;function&quot; is the right word??) other than WordBasic.FileExit that will close Word and also run my desired functions within the macro?

 

[JoaoTL]

Hi in this link you have a function to know if DOC is Open, put the function in a New Module.

http://www.mvps.org/access/modules/mdl0038.htm

When you run the Word Document set your Timer Interval like above

Me.TimerInterval = 1000

In OnTimer() Event put this lines of code. If the Function return true, the Document is Open so do nothing, else delete your files and set the timer to 0 zero

Private Sub Form_Timer()
If fIsDocFileOpen(&quot;YourDOC&quot = True Then
'Do Nothing
Else
'Run Your Delete Files Macro or Function
Me.TimerInterval = 0
End If
End Sub

Test if it work..Hope it helps.

Best Regards

---
JoaoTL
NOSPAM_mail@jtl.co.pt

http://www.jtl.co.pt

http://www.jtl.co.pt/Access