Разделение объемного документа Word на несколько частей может обернуться для пользователя настоящей головной болью, особенно если разбить его нужно не по страницам, а по содержимому контента. Для этого вам бы пришлось вручную копировать фрагменты текста из исходного документа и вставлять их в созданные файлы, а потом сохранять их. Если исходный документ достаточно велик, и разбить его нужно не на один десяток частей, это отнимет у вас массу времени.
Поэтому следующий вопрос будет вполне оправдан и закономерен: а нельзя ли как-то автоматизировать эту утомительную и однообразную процедуру?
Можно, причем без использования сторонних инструментов, средствами скриптового языка Visual Basic for Application, созданного самими разработчиками Microsoft Office.
Предположим, у вас есть документ, который нужно разделить на 10 частей.
Первым делом скачайте по ссылке disk.yandex.ru/d/iMCDVXLSlIjp_w текстовый файл separation.tхt с кодом скрипта и сохраните его в удобную для вас папку.
Откройте разделяемый документ Word и вставьте в него разделитель ///, по этому идентификатору скрипт будет разбивать документ. Скрипт читает документ сверху вниз и как только обнаруживает ID, отделяет и записывает прочитанное в отдельный файл.
Проставив разделители, откройте Блокнотом файл со скриптом и скопируйте из него код первого варианта, начиная от Sub до End Sub. Вернувшись в документ Word, нажмите комбинацию клавиш Alt + F11, чтобы вызвать окно VBA.
Выберите в его меню Insert -> Module и вставьте в открывшееся окошко скопированный код скрипта.
Запустите скрипт на исполнение, нажав на панели инструментов кнопку «Run Sub» или клавишу F5 на клавиатуре.
Подтвердите выполнение операции в диалоговом окне.
В результате документ будет разделен на 10 частей с именами Notes №.
Готово, можете закрыть окно VBA и исходный документ без сохранения изменений, то есть без проекта VBA.
Разделитель имя файла можно поменять в коде скрипта, они указываются в строке SplitNotes "///", "Notes ". Также в скачанном файле separation.tхt доступен второй вариант скрипта, используйте его, если документ Word нужно разделить по страницам.
Если захотите заменить имя Notes, не используйте в новом названии точки, иначе скрипт обрежет расширение документа.
Спасибо большое! Подскажите, пожалуйста, как при этом сохранить формат изначального документа?
Гиперссылки будут ли работать ?
а где сохраняться разделенные файлы? почему то не вижу их нигде , ни в папке , ни где-ибо еще