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?