Импорт множества word файлов в InDesign

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

gut2

Топикстартер
15 лет на форуме
Сообщения
52
Реакции
1
Здравствуйте!
Получил в верстку сборник стихов, более 200 стихотворений, каждое - отдельный вордовский файл. Есть ли способ импортировать их все за один раз и в нужном порядке (файлы названы 1.doc; 2.doc и т.д.).
Спасибо.
 
Ответ: Импорт множества word файлов в InDesign

Где-то совсем недавно тут макрос для Word-а пробегал, вот только не могу найти, который собирал все файлы в один.
А так - 200 раз мышкой щёлкнуть - не айс, конечно... :)
 
Ответ: Импорт множества word файлов в InDesign

Получил в верстку сборник стихов,

Не по теме:
у них там эпидемия что ли, мы уже пятую книжку делаем за последние месяца три, тошнит уже от них
 
Ответ: Импорт множества word файлов в InDesign

А использовать скрипт TFManager и иже с ним? Я только что проверил - вордовские файлы втягивает на ура. А список файлов, коли они названы 1, 2 и т.п. можно без проблем сформировать в excel-е.
 
Ответ: Импорт множества word файлов в InDesign

Почему не собрать эти 200 в один вордовский файл?
Вставка > Файл - выделить нужные файлы и нажать "Вставить".
И все 200 в одном файле один за другим.
 
Ответ: Импорт множества word файлов в InDesign

И все 200 в одном файле один за другим.
Только перепроверьте последовательность стихов. Если так вставлять, то почему-то текст из последнего файла попадает в начало, идёт первым стихом.
Перед началом склеивания вы бы помечали каждое название стиха, например, ##Стих.
А если в начале звёздочки (без названия), то ##***.
Для быстроты макрос запишите "Ctrl+Home, затем ##, Закрыть".
То есть в начало прописать ##.

После склейки заменили ## на стиль "ИмяСтиха", а ##*** на "звездочка—En-пробел—звёздочка—En-пробел" стиля "ИмяСтихаЗвёздочки" - чтобы не шастать потом по всему огромному файлу в поисках разделителей стихов.

Можно ещё заходить в каждый файл. Проверить, работает ли опция "Буфер обмена Офис". И выделять-копировать - всё попадёт последовательно в буфер обмена.
Для удобства закачивания в "Буфер обмена" запишите макрос - войдите в "Макросы-Записать".
Нажмите последовательность "ВыделитьВсё" + Копировать + Закрыть.
На этом закройте Макрос, выведите на панель его имя.
Зайдите в Макрос этот или новый Макрос сделайте - повторитель первого Макроса. То есть запишите/создайте цикл в Макросе2: вызов "Макрос1" 200 раз - или сколько точно файлов со стихами.

Откройте ВСЕ файлы.
Нажмите Макрос2 и ждите, пока последовательно Буфер не наполнится.
Потом в новом файле все трофеи выгрузите воедино.
Установите ражим "Серсив-Язык-Без переносов". Это чтобы переносы не попали, вдруг длинные строки есть.

В Блокнот тащите, чтобы убить все возможные управляющие символы.
И в InDesign.
 
Ответ: Импорт множества word файлов в InDesign

Только перепроверьте последовательность стихов. Если так вставлять, то почему-то текст из последнего файла попадает в начало, идёт первым стихом.
Да, С этим я уже столкнулся.
А где можно взять скрипт TFManager?
Всем большое спасибо за советы, буду пробовать.
 
Ответ: Импорт множества word файлов в InDesign

Я бы запустил макрос примерно нижеследующего содержания и не парился.
Код:
Sub Макрос1()

    For i = 1 To 200
    Documents.Open FileName:=i, ConfirmConversions:=True, _
        ReadOnly:=False, AddToRecentFiles:=False, PasswordDocument:="", _
        PasswordTemplate:="", Revert:=False, WritePasswordDocument:="", _
        WritePasswordTemplate:="", Format:=wdOpenFormatAuto, XMLTransform:=""
    Selection.WholeStory
    NormalTemplate.AutoTextEntries.AppendToSpike Range:=Selection.Range
    ActiveDocument.Close
    Next i
    Documents.Add DocumentType:=wdNewBlankDocument
    Selection.TypeText Text:="копилка"
    Selection.Range.InsertAutoText
    ActiveDocument.SaveAs FileName:="вуаля.doc", FileFormat:=wdFormatDocument, _
         LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword _
        :="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
        SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _
        False
End Sub
 
Ответ: Импорт множества word файлов в InDesign

Если так вставлять, то почему-то текст из последнего файла попадает в начало, идёт первым стихом.
Это "почему-то" объясняется тем, что стихи не упорядочены по алфавиту. Надо их пронумеровать 001.doc, 002.doc, ... 200.doc. Это элементарно делается в Total Commander: Files > Multi-Raname Tool.
 
Ответ: Импорт множества word файлов в InDesign

Если так вставлять, то почему-то текст из последнего файла попадает в начало, идёт первым стихом.
Это "почему-то" объясняется тем, что стихи не упорядочены по алфавиту. Надо их пронумеровать 001.doc, 002.doc, ... 200.doc. Это элементарно делается в Total Commander: Files > Multi-Raname Tool.

Нет, это в Windows так диалог открытия файлов работает - если выделить много файлов, то он последний в списке параметров передает первым.
 
Ответ: Импорт множества word файлов в InDesign

... Поэтому я сначала хватаю последний, а потом с шифтом - первый. Тогда они идут в нужном порядке.:)
 
Ответ: Импорт множества word файлов в InDesign

Сделайте проще.
doit.jpg

А из pdf я думаю нет проблем тектс вывести?
 
Ответ: Импорт множества word файлов в InDesign

glebxxx,
Конечно пробематичней, чем из ворда. Ваше решение не годится. Решение здесь озвучено - объединение в один файл ворда.
 
Ответ: Импорт множества word файлов в InDesign

Тоесть после объединения pdf, столь сложная комбинация нажатия не рассматривется - Ctrl+A Ctrl+C и Ctrl+V в ворде?
 
Ответ: Импорт множества word файлов в InDesign


Не по теме:
glebxxx,
У вас прямо мания копи-пейстить где не нужно :-)

 
Ответ: Импорт множества word файлов в InDesign

Не по теме:
:)
два щелчка, а как жить проще
 
Ответ: Импорт множества word файлов в InDesign


Не по теме:
По-моему получится pdf с кучей страниц и щелкать придется на каждой.
 
Ответ: Импорт множества word файлов в InDesign

Если выбран Single Page Continuous, то тогда выделяется текст во всем документе. Если же выбран Single Page в отображении, то выделяется текст только на выбранной странице.
 
Статус
Закрыто для дальнейших ответов.