How to save file with VBA - How to save file with Macro - in Excel or MS Word

 Sub Macro2()

Shell "winword", vbNormalFocus   

   SendKeys "George W. Bush"

   SendKeys "%{F4}", True

    SendKeys "{ENTER}", True  

   'SendKeys "George W. Bush.txt", True'                       'Comment'  

   'SendKeys "%S"'                                     'Comment'

End Sub