Ворд-файлы можно объединить быстренько?

[kassia]

Может, есть такая программка, которая автоматически объединяет 50 вордовских файлов в один? А то 50 раз контрл+Д я не в силах... И в Ворде объединять ручками не хочется

ЗЫ. Наверно, это не на форум ИнДиза, но конечная цель - он. Может, скриптик какой что ли бывает... А то верстка сборников статей превращается в кошмар..

 

[Supremus]

Ответ: Ворд-файлы можно объединить быстренько?

в ворде ВСТАВКА -> ФАЙЛ.
Это чуть чуть производительнее чем копи/паст из документа в документ. Курсор, понятное дело, должен быть в конце документа. Если же никакой работы в ворде над этим единым текстом не предполагается, то и в ИнДизайне можно сделать из 50 текстовых файлов одну story, если команду Place давать тогда, когда курсор находится внутри текстового фрейма, в конце текста. В любом случае 50 раз проделать такую операцию в ворде (inDesign) - будет быстрее чем искать/писать скрипт. Вот если бы надо было соединять 500 документов...

 

[vbatushev]

Ответ: Ворд-файлы можно объединить быстренько?

Ксюш, стукнуться, канешна, лень

 

[banIDit]

Ответ: Ворд-файлы можно объединить быстренько?

Может, есть такая программка, которая автоматически объединяет 50 вордовских файлов в один?

в ворде ВСТАВКА -> ФАЙЛ.

Вот это самое оно. Если в диалоге выбора файла указать сразу все 50 и нажать "Вставить", то они влетят в документ всем скопом аккуратно друг за дружкой.

 

[Specialist]

Ответ: Ворд-файлы можно объединить быстренько?

Есть приблуда для Ворда так и называется "Набор макросов". Она вроде бесплатная. Если не найдете - выложу.

Ее плюс в том, что может вставлять в разделитель имена файлов (иногда надо). И сортировать по убыванию/возрастанию.

 

[Neech]

Ответ: Ворд-файлы можно объединить быстренько?

вот макрос

Sub merge_files()
'
'Путь к вашим файлам
ChangeFileOpenDirectory "C:\work\"
Dialogs(wdDialogFileOpen).Show
Application.FileSearch.LookIn = "CurDir"
ActiveDocument.Close
With Application.FileSearch
.SearchSubFolders = True
' Маска для склеиваемых файлов
.FileName = "*.*"
.LookIn = "CurDir"
If .Execute() > 0 Then
MsgBox "Найдено " & .FoundFiles.Count & _
" file(s) в текущей папке."
Documents.Open FileName:=.FoundFiles(1)
Selection.EndKey Unit:=wdStory
Selection.InsertBreak Type:=wdPageBreak
For i = 2 To .FoundFiles.Count
Selection.InsertFile FileName:=.FoundFiles(i)
Selection.TypeText Text:=.FoundFiles(i)
Selection.InsertBreak Type:=wdPageBreak
Next i
Else
MsgBox "There were no files found."
End If
End With
End Sub

 

[kassia]

Ответ: Ворд-файлы можно объединить быстренько?

Вот это самое оно. Если в диалоге выбора файла указать сразу все 50 и нажать "Вставить", то они влетят в документ всем скопом аккуратно друг за дружкой.

Урррааа!!! Действительно!
Вот так, век ковыряешься с вордом, а до простого и не дойти умом Спасибо!!!

2 Specialist, Neech
Спасибо, ребят! Но хорошо хоть авторов выдрессировали статьи в нужном порядке присылать (они там в имени научились циферки ставить ) Потому, хоть о порядке помещения голова не болит. Хватит мне и ворда одного, без макросов ентих.

2 vbatushev
Антиресно... А кому это я посылала файлик на рассмотрение месяца с полтора назад, не помнишь, Виталь, а? Ну я подумала что в Кемерово работа кипит... все еще смиренно надеюсь что ты рассмотришь ту таблицу в файлике и объяснишь, почему там сезам разряды чисел не обрабатывает в упор

 

[vbatushev]

Ответ: Ворд-файлы можно объединить быстренько?

Вот ведь, и правда. В смысле, что и работа кипит, и Батушев забывчивостью отличается. Поищу, погляжу