How to get the full path from the SaveAs dialog
Article contributed by Dave Rado and Astrid Zeelenberg
Use
Dim PathAndFileName As String
With Dialogs(wdDialogFileSaveAs)
If .Display
Then
'User pressed
ok
PathAndFileName =
WordBasic.FileNameInfo(.Name, 5)
'If the user
typed the path and filename instead of browsing to it,
'the VBA function CurDir() won't
reflect the path;
'hence the need to use the Wordbasic
function FileNameInfo to get the path
End If
End With