Вероятно, самый простой способ, который будет работать в большинстве случаев, это поместить приведенный ниже код в модуль VBA, либо в шаблон Word Normal.dot, в другой выделенный глобальный шаблон или в конкретный документ:
Option Explicit
Private Declare Function ShellExecute _
Lib "shell32.dll" _
Alias "ShellExecuteA" ( _
ByVal Hwnd As Long, _
ByVal lpOperation As String, _
ByVal lpFile As String, _
ByVal lpParameters As String, _
ByVal lpDirectory As String, _
ByVal nShowCmd As Long) _
As Long
Public Sub FileSave()
ShellExecute 0, "open", "C:\Windows\System32\calc.exe", "", "", 0
ActiveDocument.Save
End Sub