Получилось вот что:
'количество файлов в папке ...
On Error Resume Next 'данная строка даёт возможность при появлении ошибки двигаться дальше
Папка = "L:\Рабочая папка\Карточки\" 'папка, где происходит поиск файлов
'количество файлов в папке по адресу ..., если ответ получим Empty, значит такой папки не существует
Количество_файлов_в_папке = CreateObject("Scripting.FileSystemObject").GetFolder(Папка).Files.Count
Set FSO = CreateObject("Scripting.FileSystemObject")
Set fr = FSO.GetFolder(Папка)
Set fs = fr.Files
For Each f In fs
Имя_файла_с_его_путём_и_расширением = f
Application.ScreenUpdating = False
Dim wd As Document
Set wd = Documents.Open(fileName:=f, ReadOnly:=True, Visible:=False)
Отступ_в = Application.PointsToCentimeters(wd.PageSetup.TopMargin) 'верхний отступ полей в документе
Отступ_н = Application.PointsToCentimeters(wd.PageSetup.BottomMargin) 'нижний отступ полей в документе
Отступ_л = Application.PointsToCentimeters(wd.PageSetup.LeftMargin) 'левый отступ полей в документе
Отступ_п = Application.PointsToCentimeters(wd.PageSetup.RightMargin) 'правый отступ полей в документе
wd.Close
Set wd = Nothing
Application.ScreenUpdating = True
Next
Переменная f определена, а отступы всё равно не считает?
??
