ник: ial52
Вот "нарыл" сейчас переинсталю Офис и попробую.
Sub FSOListFiles()
'Требует подключения библиотеки MS-Runtime / Verweis auf die MS-Runtime-Bibliotheken
'обязательное условие / unbedingt erforderlich!!
Dim Ordnername As String
Ordnername = Dialogs(wdDialogToolsOptionsFileLocations).Setting _
& Application.PathSeparator
'или / oder
'Имя директории / Ordnername = "D:\Temp-Ablage\"
Set fso = CreateObject("Scripting.FileSystemObject")
Set QuellOrdner = fso.GetFolder(Ordnername)
Set Dateien = QuellOrdner.Files
x = QuellOrdner.Files.Count
For Each File In Dateien
If Right(File.Name, 3) = "doc" Then
If Left(File.Name, 1) <> "~" Then
'только имя файла / nur Dateiname
Selection.TypeText Text:=File.Name & vbCrLf
'Директория и имя файла / Ordner und Dateiname
'Selection.TypeText Text:=File.Path & vbCrLf
End If
End If
Next
Selection.TypeText Text:=vbCrLf & "Gefunden: " & CStr(x) & vbCrLf
End Sub