To do this in one step you would need to tell Word which folders it
should be saved to. You could write a macro which displayed a vba form
where you either get to choose folders or type the names of the folders
where the document needs to be saved to and then click on OK and it
will save as to all the folders you suggested. Name the vba form
frmMultiSave. The form will need the following
a label called lblDocName
a textbox called txtDocName
a label called lblFolderName
a commandbutton called cmdBrowse
a commandbutton called cmdAdd
a textbox called txtFolderName
a listbox called lstFolders
a commandbutton called cmdSaveFiles
a commandbutton called cmdCancel
code goes like this:
CLICKING THE BROWSE BUTTON SHOWS A COPY DIALOG BOX, CLICK THE FOLDER
WHOSE NAME YOU WANT TO COPY AND CLICK ON OPEN, THIS WILL DISPLAY THE
FOLDER NAME AND PATH IN THE txtFolderName TEXT BOX
Private Sub cmdBrowse_Click()
Dim sFolder As String
With Dialogs(wdDialogCopyFile)
If .Display <> 0 Then
sFolder = .Directory
Else
Exit Sub
End If
End With
txtFolderName.Value = sFolder
End Sub
CLICK THE ADD BUTTON WHICH WILL ADD THE FOLDER NAME AND PATH TO THE
LIST BOX
Private Sub cmdAdd_Click()
Dim sFolder As String
Dim nCount As Integer
sFolder = txtFolderName.Value
With lstFolders
.AddItem sFolder
nCount = lstFolders.ListCount - 1
.ListIndex = nCount
End With
End Sub
ONCE YOU HAVE ALL THE FILE NAMES LISTED CLICK ON SAVE DOCUMENT BUTTON
WHICHH LOOPS THROUGH THE LIST OF FILE NAMES AND SAVES THE DOCUMENT TO
EACH FOLDER WITH THE SAME NAME (REMOVING THE QUOTATION MARKS WHERE
NECESARRY)
Private Sub cmdSaveDocs_Click()
Dim nFolders As Integer
Dim sFolderName As String
Dim sDocName As String
sDocName = txtDocName.Text & ".doc"
If lstFolders.ListCount > 0 Then
For nFolders = 1 To lstFolders.ListCount
sFolderName = lstFolders.List(nFolders - 1) & sDocName
sFolderName = Replace(sFolderName, """", "")
ActiveDocument.SaveAs sFolderName
Next
Else
MsgBox "There are no files listed", vbOKOnly, "No Files Listed"
Exit Sub
End If
Unload Me
End Sub
Private sub cmdCancel_Click()
Unload Me
End Sub
In a separate module add the following
sub MultiSaveShow ()
frmMultiSave.show
End Sub
Add the MultiSaveShow macro to one of your toolbars as a button or as a
shortcut key. Run this macro which will display the vba form.
I have a picture of the vba form but could not add it to this post.
Feel free to email me at (e-mail address removed) and I will send you
a copy of the form if required.
