Thank you @gmayor
Please confirm that I modified your example correctly. Specifically I added
Code:
Options.DefaultFilePath(wdDocumentsPath) = "C:\Users\Brian\Documents"
such that the entire test sub reads
Code:
Private Sub CommandButton3_Click()
Dim dtToday As String
Dim sPath As String
Options.DefaultFilePath(wdDocumentsPath) = "C:\Users\Brian\Documents"
sPath = Options.DefaultFilePath(wdDocumentsPath) & "\"
dtToday = Format(Date, "ddmmyyyy")
MsgBox sPath & "Waiver_" & dtToday & ".docx"
ActiveDocument.SaveAs2 sPath & "Waiver_" & dtToday & ".docx"
End Sub
Final question: Does capturing the path before changing it, then restoring it after the SaveAs2 serve as 'Best Practices' ?