Вы не вошли. Пожалуйста, войдите или зарегистрируйтесь.
Страницы 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
Чтобы отправить ответ, вы должны войти или зарегистрироваться