Get Recent folders from "Save As" Tab

[Testpilot.dk]

Hi,

I have written some vba code to run before save in the following method.
Everything works fine, expect that the save as dialog not starts in the folder selected by the user.

Eg. User click the marked folder, then I expect that the saveas dialog afterwards will start in this folder, but it starts in the default folder for the user.

I can't use the Application.FileDialog, because this dialog is missing the properties, like manager, subject etc.

My code is pasted here:

Private Sub oApp_DocumentBeforeSave(ByVal Doc As Document, _
  SaveAsUI As Boolean, Cancel As Boolean)
    
    If (SaveAsUI = False And HasDocumentBeenSaved = False) Then
        Exit Sub
    End If
        
    If (ActiveDocument.AttachedTemplate <> "Normal.dotm") Then
        Dim intChoice As Integer
        Dim strPath As String
    
        If (HasDocumentBeenSaved = False Or SaveAsUI = True) Then
            With Dialogs(wdDialogFileSaveAs)
                .name = SpecializedHelper.FileName
                .Show
            End With
        Else
            ActiveDocument.Save
        End If
                
        Cancel = True
    End If
End Sub

[gmayor]

Gven that your macro has assorted variables that are not declared and we have no idea what they refer to and has others which are declared and are not used or the values are not known, it is not possible to guess where the problem lies - but start by investigating

.name = SpecializedHelper.FileName

[Testpilot.dk]

Hi,

Let us focus on my real issue and not my variables and so on.

If we focus on this piece of code.

Public WithEvents oApp As Word.Application

SystemManager.oApp = Word.Application

Private Sub oApp_DocumentBeforeSave(ByVal Doc As Document, _
  SaveAsUI As Boolean, Cancel As Boolean)

With Dialogs(wdDialogFileSaveAs)
                .name = "SomeSpecificFileName"
                .Show
            End With
End Sub

My Issue is, when I use the dialog like the above, It simple "forget" the path selected in the recent history on "Save As" tab,

If I instead put the following in to the code, it will open the save as dialog in the rigth folder.

Public WithEvents oApp As Word.Application

SystemManager.oApp = Word.Application

Private Sub oApp_DocumentBeforeSave(ByVal Doc As Document, _
  SaveAsUI As Boolean, Cancel As Boolean)

With Dialogs(wdDialogFileSaveAs)
                .name = "C:\Temp\SomeSpecificFileName"
                .Show
            End With
End Sub

My question is how can I get the path of the selected folder from the "Save As" tab?