Вы не вошли. Пожалуйста, войдите или зарегистрируйтесь.
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться
Сообщений [ 2 ]
- Alesha_Tugarin
- рядовой
- Неактивен
- Зарегистрирован: 01.02.2012
- Сообщений: 1
Тема: Вставка в документ названий файлов
Периодически, раз в месяц, собираю обновления на прогу, меняются дата в названии пакета и имя шаблона, которым оперируют пользователи. Надоело каждый раз копировать имена файлов и вставлять в сопроводительный документ. Можно с этим что то сделать? Сборка и документ лежат в одной папке.
- Ципихович Эндрю
- генерал-полковник
- Неактивен
- Зарегистрирован: 04.02.2010
- Сообщений: 506
- Поблагодарили: 23
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
Сообщений [ 2 ]
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться
Вставка в документ названий файлов
Компьютерная грамотность подразумевает под собой умение выполнить на компьютере самые базовые несложные операции и овладеть текстовым редактором настолько, чтобы без проблем создать, оформить, отредактировать и подготовить к печати текст. Наш сайт о Microsoft Office Word даст ответ про: гост рамки курсовой работы a3.
Но для работы с большими объемами этого недостаточно. Если вам необходимо расширить свои познания о программе Microsoft Word, то это возможно на форуме сайта Ворд Эксперт, где рассматриваются углубленно проблемы автоматизации, настройки различных версий приложения. На портале о Microsoft Office Word вы узнаете про: не могу поставить номер формулы.
Тут вы найдете макросы, шаблоны, ответы на вопросы по различным версиям программы.