You can do this to save the document where you want with the name you want.
Do it before you close the doc so you dont need to be bothered saving again.

VB Code:
  1. Documents(1).SaveAs "FileName:=" & app.Path & "\SomePreknownName_" & Format(Now, "MM-DD-YYYY_hh-mm-ss AMPM") & ".doc"