Simply add the path to the .Name parameter:
Code:
Dim fileName As String
Const strPath as String = "H:\HR\Reward & Shared Services\Shared Services Only\1 ~ Starters\5 ~ Offers Sent\2017 Offer of Employment Sent\"
fileName = txtEmployeeName.Value & "Contract"
With Dialogs(wdDialogFileSaveAs)
.Name = strPath & fileName
.Show
End With