If you name the Sub "FileSaveAs" it will replace the buil-in dialog
CommandName macro

Sub FileSaveAs()
Dim dlg As Dialog
Const NetworkPath = "C:\temp"

Set dlg = Dialogs(wdDialogFileSaveAs)
ChangeFileOpenDirectory NetworkPath
With dlg
   'MsgBox .CommandName
   .Show
End With

End Sub

Eddie