Вы не вошли. Пожалуйста, войдите или зарегистрируйтесь.
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться
Здравствуйте,
в Word 2003 был сделан макрос с использованием FileSearch:
пользователь выбирает папку с файлами doc и они объединяются в одном документе с сортировкой по дате.
FileSearch больше не используется. Как это сделать для Word 2010?
Спасибо.
Через объект "FileSystemObject" библиотеки "Microsoft Scripting Runtime".
Приблизительно так:
Dim FSO As Scripting.FileSystemObject
Dim FOL As Scripting.Folder
Dim F As Scripting.File
Set FSO = CreateObject("Scripting.FileSystemObject")
Set FOL = FSO.GetFolder("C:\")
For Each F In FOL.Files
' делаем что-то с файлом
Next FКак происходит сортировка и как открыть найденный файл для редактирования внутри цикла?
...сортировка...
Здесь руками. Необходимые вам свойства объекста File:
F.DateCreated
F.DateLastAccessed
F.DateLastModified...открыть найденный файл...
Application.Documents.Open FileName:=F.NameНашёл такой макрос:
Sub MergeDocs()
Dim rng As Range
Dim MainDoc As Document
Dim strFile As String
'(Папка, где лежат документы)
Const strFolder = "d:\temp\27\Print\"
Set MainDoc = Documents.Add
'(Расширение поменять на .docx в случае использования Word 20xx)
strFile = Dir$(strFolder & "*.doc")
Do Until strFile = ""
Set rng = MainDoc.Range
rng.Collapse wdCollapseEnd
rng.InsertFile strFolder & strFile
strFile = Dir$()
Loop
End SubЕдинственное он почему-то нарушает форматирование документа и из 2-х страничного делает 3-х - 4-х страничный. А некоторые документы (не насыщенные картинками и таблицами), клеит безотказно на УРА...
Я бы сказал, что таблицы выкидывает из документа при объединении по какой-то причине...
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться
Объединение документов
Если вы ищите мощный справочник и помощник для работы в Microsoft Word, то идеальным решением станет форум сайта Ворд Эксперт. Наш сайт о Microsoft Office Word даст ответ про: рамки-шаблоны для word. Здесь можно обсудить со знатоками проблемы настроек различных функций Ворда под выполнение конкретной задачи, научиться создавать шаблоны, писать макросы, максимально эффективно организовывать свою работу с приложением. Наш сайт о Microsoft Office Word даст ответ про: напечатать значок дельта в ворде.
Настройкам и автоматизации посвящены два самые большие подраздела. Наиболее популярные вопросы вынесены отдельно. На портале о Microsoft Office Word вы узнаете про: как вставить много вордовских документов doc в один. Также есть подфорум, где вы можете найти готовое решение многих проблем или поделиться своим. Заявку, с описанием требуемой задачи, на форуме тоже можно оставить. На портале о Microsoft Office Word вы узнаете про: как в word снять разделений окон.