tam olarak sorun ne sayın @mehmetdemiral ın dosyasında? filtrelemede docx dosyalarını göstermiyorsa aşağıdaki kodu deneyebilirsiniz?

Private Sub cdmBrowse_Click()



On Error GoTo err_browse



    Dim strFilter As String

    Dim strInputFileName As String

strFilter = ahtAddFilterItem(strFilter, "Excel Files ", "*.Xls;*.xlsx") & ahtAddFilterItem(strFilter, "Word Files ", "*.docx;*.doc")

strInputFileName = ahtCommonFileOpenSave(Filter:=strFilter, OpenFile:=True, _

    DialogTitle:="L?tfen xls uzant?l? dosyalar? se?iniz.", _

    Flags:=ahtOFN_HIDEREADONLY)

    txtPath.SetFocus

    If strInputFileName = "*.xls" Then

        txtPath.Text = ""

    Else

        txtPath.Text = strInputFileName

    End If



exit_sub:

    Exit Sub



err_browse:

    MsgBox Err.Description, vbCritical, "mkmkmkm"

    Resume exit_sub

    

End Sub