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