How to get the full path from the SaveAs dialog

Article contributed by Dave Rado and Astrid Zeelenberg


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