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