saving a document in multiple locations

Souriane · #2 10-26-2017, 07:25 AM

Hi!

Here is a code I use from Graham Mayor :

Code:

 Sub Save2Places()
'Written by Graham Mayor
Dim strFileA, strFileB, strFileC, strFileD
ActiveDocument.Save
strFileA = ActiveDocument.Name
'Write down your directory here:
strFileB = "c:\temp\" & strFileA
strFileC = "c:\mydocs\" & strFileA
strFileD = ActiveDocument.FullName
ActiveDocument.SaveAs FileName:=strFileB
ActiveDocument.SaveAs FileName:=strFileC
ActiveDocument.SaveAs FileName:=strFileD
End Sub

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

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Saving to two Locations Simultaneously	WilltheGrill09	Word	5	03-15-2024 03:15 PM
Mail Merge to multiple employees in multiple locations as PDF by location	GFiz	Mail Merge	1	05-13-2017 08:01 PM
Auto-fillin in multiple locations	laura@knott	Word VBA	2	10-18-2013 08:11 AM
Can't set document locations in Word 2003	puedeba2004	Word	0	07-31-2013 05:02 PM
Deleting Mail from Multiple Locations	Blacker	Outlook	3	09-19-2011 01:05 PM