Get Recent folders in Save As Tab

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.

Attachment 21241 Attachment 21242

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

My code is pasted here:

Code:

---

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

---

Duplicated post at http://www.msofficeforums.com/word-v...-save-tab.html :(