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

  • Автор темы Автор темы kassia
  • Дата начала Дата начала
Статус
Закрыто для дальнейших ответов.
kassia

kassia

Топикстартер
15 лет на форуме
Сообщения
140
Реакции
22
Может, есть такая программка, которая автоматически объединяет 50 вордовских файлов в один? А то 50 раз контрл+Д я не в силах... И в Ворде объединять ручками не хочется :(

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

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

Ксюш, стукнуться, канешна, лень :)
 
Ответ: Ворд-файлы можно объединить быстренько?

Может, есть такая программка, которая автоматически объединяет 50 вордовских файлов в один?
Нажмите, чтобы раскрыть...
в ворде ВСТАВКА -> ФАЙЛ.
Нажмите, чтобы раскрыть...
Вот это самое оно. Если в диалоге выбора файла указать сразу все 50 и нажать "Вставить", то они влетят в документ всем скопом аккуратно друг за дружкой.
 
Ответ: Ворд-файлы можно объединить быстренько?

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

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

вот макрос

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
 
Ответ: Ворд-файлы можно объединить быстренько?

banIDit сказал(а):
Вот это самое оно. Если в диалоге выбора файла указать сразу все 50 и нажать "Вставить", то они влетят в документ всем скопом аккуратно друг за дружкой.
Нажмите, чтобы раскрыть...
Урррааа!!! Действительно!
Вот так, век ковыряешься с вордом, а до простого и не дойти умом :) Спасибо!!!

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

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

Вот ведь, и правда. В смысле, что и работа кипит, и Батушев забывчивостью отличается. Поищу, погляжу :)
 
Статус
Закрыто для дальнейших ответов.
Верх Низ