Force the user to save documents into a particular folder or a subfolder


Force the user to save documents into a particular folder or a subfolder of that folder

Article contributed by Bill Coan

Use a FileSave macro that will run in place of Word's own built-in File Save routine. The macro allows the user to save directly to a target folder or to a subfolder within that folder, but not to a location outside the target folder.

To modify this macro for your own needs, change the path to whatever you want in the line:

.Name = "C:\My Documents\Test"

... and modify both the path and the number of characters in the Left$ test, in the line:

If Left$(CurDir, 20) <> "C:\My Documents\Test" Then

Sub FileSave()

Dim UserSaveDialog As Dialog
Set UserSaveDialog = Dialogs(wdDialogFileSaveAs)

'save changes if doc has been saved previously
If ActiveDocument.Path <> "" Then
    ActiveDocument.Save
    Exit Sub
End If

With UserSaveDialog
    .Name = "C:\My Documents\Test"
    If .Display Then
        'if user doesn't click Cancel button,
        'quit with message if user has switched out of target folder,
        'but don't quit if user has made a
        'subfolder within the target folder
        If LCase$(Left$(CurDir, 20)) <> "c:\my documents\test" Then
            MsgBox "Documents can't be saved in that folder. Please try again."
            Exit Sub
        End If
        'save the document according to user preferences
        UserSaveDialog.Execute
    End If
End With

End Sub

Force the user to save documents into a particular folder or a subfolder of that folder