Sub SaveDocWithOtherName ()
'
' Miri Ofek - dejavu-l - 2003
' This macro saves the active document with another name 
' (Original_ + document name). Some people like to save the 
' original document before fiddling with its format.
' 
   ChangeFileOpenDirectory ActiveDocument.Path
   ActiveDocument.SaveAs FileName:="Original_" & ActiveDocument.Name
   ActiveDocument.Close
End Sub