1

Тема: Вставка в документ названий файлов

Периодически, раз в месяц, собираю обновления на прогу, меняются дата в названии пакета и имя шаблона, которым оперируют пользователи. Надоело каждый раз копировать имена файлов и вставлять в сопроводительный документ. Можно с этим что то сделать? Сборка и документ лежат в одной папке.

2

Re: Вставка в документ названий файлов

напильником его ...

'отступы не в активном документе
'количество файлов в папке ...
Папка = "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.Path, ReadOnly:=True, Visible:=False) 'нажимать Шифт + Эф8
Отступ_в = Application.PointsToCentimeters(wd.PageSetup.TopMargin) 'верхний отступ полей в документе
Отступ_н = Application.PointsToCentimeters(wd.PageSetup.BottomMargin) 'нижний отступ полей в документе
Отступ_л = Application.PointsToCentimeters(wd.PageSetup.LeftMargin) 'левый отступ полей в документе
Отступ_п = Application.PointsToCentimeters(wd.PageSetup.RightMargin) 'правый отступ полей в документе
wd.Close 'нажимать Шифт + Эф8
Set wd = Nothing
Application.ScreenUpdating = True
Next