Saving a doc in two places, Word 2000/2003

Raven917 · #1 11-23-2015, 09:04 PM

I was looking for a way for a friend to back up a document automatically to her Dropbox account and found this handy replacement Save method from Allen Wyatt's Word tips, which saves a named doc to a backup folder as well as to the default location:

Code:

Sub FileSave()
    Dim docName As Boolean
    Dim templateFullName As String

    docName = ActiveDocument.name Like "Document#*"
    templateFullName = ActiveDocument.FullName
    If docName = True Then
        Dialogs(wdDialogFileSaveAs).Show
    Else
        ActiveDocument.SaveAs FileName:="C:\Backups\" _
          & ActiveDocument.name, AddToRecentFiles:=False
        ActiveDocument.SaveAs FileName:=templateFullName
    End If
End Sub

It was easy to adapt to save to the Dropbox folder as well as to the default location. My question is this: It doesn't cover the situation where you close Word and are prompted "Do you want to save the changes to filename.doc? (Yes/No)" Does anyone have the name and content of that method, which I might try adapting to save in two places?

gmaxey · #2 11-24-2015, 05:29 AM

You are going to need to create a template addin containing an event handler.

'Put this code in a standard code module:
Public AppEvents As New clsEvents
Public Sub AutoExec()
Set AppEvents.WordApp = Word.Application
End Sub
'Put this code in a class module named clsEvents:
Public WithEvents WordApp As Word.Application
Private Sub WordApp_DocumentOpen(ByVal strDocName As Word.Document)
MsgBox strDocName & " is opening"
End Sub
Private Sub WordApp_DocumentBeforeClose(ByVal strDocName As Word.Document, ByRef Cancel As Boolean)
MsgBox strDocName & " is closing"
End Sub
Private Sub WordApp_Quit()
MsgBox "WordApp_Quit"
End Sub

You can probably put your code in the DocumentBeforeClose event.

Raven917 · #3 11-24-2015, 01:42 PM

Greg, thanks. I'll give this a go.

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Word 2000 to Word 2003 or higher	oao	Word	5	07-27-2015 11:55 PM
word 2003 slow saving passworded files windows 7	dontdoslow	Word	5	08-08-2014 04:12 AM
Problems saving with Word 2003	Gillian0511	Word	4	07-31-2014 03:29 AM
Excel 2003 / 2007 files saving slow on Win 2003 Server	Atradius	Office	0	07-23-2011 07:41 AM
Can you embed a project 2000 doc into a Word 2003 doc?	jackdeth	Office	0	11-14-2006 01:02 PM