Saving Files

  • Thread starter Thread starter Dale
  • Start date Start date
D

Dale

I was asked a question by a user the other day. They wanted to know if it
was possible to save a file to "multiple" locations at once. Since they work
on a file and have to save it in three places, I can understand how this
might help them.

Can this be done?

Thank you.
 
Hi Dale,

You could modify the following code to change the location from A:\ and add
multiple locations by repeating the second and third last lines, changing
the destination each time.

Macro to save a file and make a copy on the A” drive

Dim SourceFile, DestinationFile
ActiveDocument.Save
SourceFile = ActiveDocument.Name ' Define source file name.
ActiveDocument.Close
DestinationFile = "A:\" & SourceFile ' Define target file name.
FileCopy SourceFile, DestinationFile ' Copy source to target
Documents.Open SourceFile

--
Please post any further questions or followup to the newsgroups for the
benefit of others who may be interested. Unsolicited questions forwarded
directly to me will only be answered on a paid consulting basis.

Hope this helps
Doug Robbins - Word MVP
 
Back
Top