Word-VBA Dateiauswahldialog aus vorgegebenem Ordner

Hallo in die Runde!

Ich bastle gerade an einem kleinen Word-VBA-Projekt, in dem es nötig ist, eine Datei auszuwählen. Das habe ich inzwischen auch schon hinbekommen. (Leider geht es in Word nicht so einfach wie in Excel).
Was ich bei dem Dateiauswahldialog jedoch noch gerne hätte, wäre ein vorgegebener Ordner, der von dem Dialog schon gleich angeboten werden sollte, sowie eine Einschränkung auf bestimmte Dateiendungen (z. B. *.docx)

Hier der Code, den ich bisher habe:

...
Dim dlgQuelle As Dialog
Dim varstrQuellordner$
Dim varstrQuelldatei$

'Dialog Dateiauswahl
Set dlgQuelle = Dialogs(wdDialogFileOpen)
With dlgQuelle
If .Display() Then
varstrQuellordner = CurDir()
varstrQuelldatei = .Name
MsgBox "Die Datei '" & varstrQuelldatei & "' wird verarbeitet."
Else
MsgBox "Abbruch durch Benutzer", vbCritical
GoTo Ende
End If
End With
...

Großes Danke schon mal und schöne Grüße
B.

Public Function Dateiname() As String
Dim f As Office.FileDialog
Set f = Application.FileDialog(msoFileDialogFilePicker)

With f
    .Title = "Mein Dialog"                    'Fenstertitel  
    .AllowMultiSelect = False                 'Nur eine Datei auswählbar  
    .ButtonName = "Auswählen"                 'Button Beschriftung  
    .Filters.Clear                            'erst alle Filter löschen  
    .Filters.Add "Excel-Dateien", "*.xl*"     'dann eigene anlegen  
    .Filters.Add "Word-Dateien", "*.do*"  
    .Filters.Add "Access-Dateien", "*.mdb; *.accdb"  
    .FilterIndex = 2                          'einen Filter vorselektieren  
    .InitialFileName = "D:\"                  'Startverzeichnis  
    .Show
End With

If f.SelectedItems.Count > 0 Then
    Dateiname = f.SelectedItems(1)
End If

End Function