Как сохранить документ word в отдельные файлы

Чтобы сохранить определённую часть текста внутри Microsoft Word в отдельном документе, не нужно знать никаких хитростей, касающихся работы с этим текстовым редактором. Просто выделяем блоком эту часть текста, копируем её в одном документе и вставляем в другом. Затем сохраняем новый DOCX-файл. Но что делать, если речь идёт о большом исходном документе? И нужно провести долгую, монотонную работу по его расформированию. Можно ли как-то упростить ручной труд по выделению разделов, подразделов или просто произвольных отрывков документа Microsoft Word в отдельные файлы? Не во многом, но можно. Ниже рассмотрим несколько таких способов.

В нашем случае имеем увесистый, тяжело открываемый Word-документ на почти что 150 тыс. слов. Он структурирован разделами и подразделами, и его необходимо расформировать на мелкие документы, содержащие текст отдельных подзаголовков. Проводить работу будем в среде Word актуальной версии пакета Microsoft Office 2016. Действия в старших версиях текстового редактора – 2010 и 2013 – будут аналогичны, каких-то принципиальных отличий в предлагаемых ниже операциях нет.

Чтобы было удобно расформировывать участки документа в отдельные файлы, клавишами Ctrl+F включаем панель навигации и для отображения структуры переключаемся на вкладку панели «Заголовки».

1. Быстрая установка блока выделения на раздел или подраздел документа

Если у документа есть структура разделов и подразделов, возможности контекстного меню на панели навигации здорово упростят работу по установке блоков выделения. В контекстном меню на выбранном заголовке или подзаголовке, который нужно сохранить в отдельный файл, выбираем пункт «Выделить заголовок и его содержимое».

Блок выделения будет автоматически установлен на весь текст, относящийся к выбранному разделу или подразделу. Далее этот блок копируем или вырезаем, вставляем в новый текстовый документ, форматируем при необходимости и сохраняем.

2. Сохранение разделов или подразделов документа в PDF

В контекстном меню выбранного заголовка или подзаголовка есть ещё один пункт, с помощью которого можно упростить выведение их содержимого в отдельный документ – в файл PDF. Реализована такая возможность в составе опции печати текстового редактора.

В Windows 10 в качестве принтера выбираем «Microsoft Print to PDF» – штатный PDF-принтер этой версии системы.

Называем и сохраняем файл.

PDF-файл таким образом сохраняется не как картинка, а как текст. Его в любой момент позднее можно открыть внутри того же Word.

И при необходимости пересохранить в любом другом формате, поддерживаемом текстовым редактором.

В Windows 8.1 и 7 эта процедура проделывается таким же образом. Однако в этих версиях системы штатного PDF-принтера нет, и прежде его необходимо установить. Делается это с помощью сторонних программ, например, BullZip PDF Printer, PDFCreator, doPDF и т.п.

3. Макрос копирования и вставки текста в новый документ

Если расформировываемый документ не имеет структуры разделов, можно либо её сформировать, либо оставить всё как есть, и ставить блоки выделения вручную. Но даже в последнем случае какую-то часть работы всё равно можно автоматизировать. Копирование или вырезание из исходного документа текста и его вставку в новый Word-файл можно поручить макросам. А их задействование наряду с быстрой установкой блока на целый раздел (подраздел) и вовсе минимизирует труды.

Если макросы в приложении Word задействуются впервые, первым делом необходимо разрешить их использование. В меню «Файл» открываем «Параметры».

Запускаем параметры центра управления безопасностью.

Включаем макросы.

Далее отправляемся во вкладку «Вид» и кликаем «Запись макроса». В появившемся небольшом окошке записи макроса выбираем вариант его задействования в будущем – кнопка на панели быстрого доступа или горячие клавиши – и жмём «Ок».

• Теперь необходимо провести комплекс действий, которые макрос сначала запишет, а затем будет воспроизводить в дальнейшем:
• Выделяем заголовок, подзаголовок или произвольную область текста;
• Нажимаем кнопку (или горячие клавиши) вырезки или копирования;
• Нажимаем кнопку открытия нового документа (для удобства её можно вынести на панель быстрого доступа);
• Вставляем содержимое буфера в новый документ;
• Останавливаем запись макроса с помощью кнопки внизу окна.

Теперь этот макрос с помощью назначенной кнопки (или горячих клавиш) можно запускать для каждого нового блока выделения в исходнике. И всё само будет вырезаться и вставляться в новых документах. Их останется только сохранить потом. Сохранять файлы с нужными нам именами макросы, увы, пока что не умеют.

Видео

Привет, уважаемые читатели. Если у вас есть большой документ, который вам нужно разделить, то давайте узнаем, существует ли какой-нибудь способ его поделить на отдельные файлы. Для этого мы воспользуемся возможностями Visual Basic Application для Word. Эта программа использует специальные код, которые диктуют Ворду, что нужно сделать. Итак, приступим.

Скрипт, который разделит файл в местах-маркерах

Прежде, чем запускать этот код, нужно подготовить документ к разделению на отдельные файлы.

В тех местах, где воровский файл будет разделен на несколько отдельных файлов, мы расставим маркеры в виде «///». Это скажет VBA, что в тех местах, где он встретит /// он поймет, что ему нужно будет дальнейшую часть сохранить в новый файл Word. Смотрите на скриншот, где я отметил маркером то место, где я хочу разбить документ.

Этот знак ставится в английской раскладке!

Новые файлы будут сохранены в папку с оригинальным документом, поэтому, советую тот документ, который вы будете разделять, сохраните в отдельную папку, как на скриншоте.

В конце документа разделяющий маркер ставить нет смысла, иначе VBA создаст просто пустой файл Word.

Шаг 1. 

В окне Ворда нажмите на сочетание клавиш ALT + F11 для запуска Visual Basic Application.

Шаг 2.

В меню «Insert» — «Module». Теперь скопируйте код скрипта (его вы встретите ниже) и вставьте его в окне VBA.

Шаг 3.

Запустите выполнение кода, нажав F5 на клавиатуре, либо на панели на зеленый треугольник.

Этот VBA код разделит документ на отдельные файлы в тех местах, где были установлены маркеры. Выделите его левой кнопкой мыши и скопируйте (правой кнопкой мыши — Копировать).

Sub SplitNotes(delim As String, strFilename As String)
Dim doc As Document
Dim arrNotes
Dim I As Long
Dim X As Long
Dim Response As Integer
arrNotes = Split(ActiveDocument.Range, delim)
Response = MsgBox("This will split the document into " & UBound(arrNotes) + 1 & " sections.Do you wish to proceed?", 4)
If Response = 7 Then Exit Sub
For I = LBound(arrNotes) To UBound(arrNotes)
If Trim(arrNotes(I)) <> «» Then
X = X + 1
Set doc = Documents.Add
doc.Range = arrNotes(I)
doc.SaveAs ThisDocument.Path & "" & strFilename & Format(X, "000")
doc.Close True
End If
Next I
End Sub
Sub test()
'delimiter & filename
SplitNotes "///", "Notes"
End Sub

А вот результат разделения документа Ворд на отдельные файлы:

Скрипт, который разделит документ постранично

Порядок шагов, для запуска скрипта в Word тот же, что и в предыдущем способе. Скопируйте следующий ниже код и запустите его выполнение.

Этот код VBA разделит файл Word постранично, и каждую страницу сохранит в отдельные файлы. Выделите его левой кнопкой мыши и скопируйте (правой кнопкой мыши — Копировать).

Sub SplitIntoPages() 
Dim docMultiple As Document 
Dim docSingle As Document 
Dim rngPage As Range 
Dim iCurrentPage As Integer 
Dim iPageCount As Integer 
Dim strNewFileName As String 
Application.ScreenUpdating = False 'Makes the code run faster and reduces screen _
flicker a bit. 
Set docMultiple = ActiveDocument 'Work on the active document _
(the one currently containing the Selection) 
Set rngPage = docMultiple.Range 'instantiate the range object
iCurrentPage = 1 
'get the document's page count
iPageCount = docMultiple.Content.ComputeStatistics(wdStatisticPages) 
Do Until iCurrentPage > iPageCount 
If iCurrentPage = iPageCount Then 
rngPage.End = ActiveDocument.Range.End 'last page (there won't be a next page) 
Else
'Find the beginning of the next page
'Must use the Selection object. The Range.Goto method will not work on a page
Selection.GoTo wdGoToPage, wdGoToAbsolute, iCurrentPage + 1 
'Set the end of the range to the point between the pages
rngPage.End = Selection.Start 
End If 
rngPage.Copy 'copy the page into the Windows clipboard
Set docSingle = Documents.Add 'create a new document
docSingle.Range.Paste 'paste the clipboard contents to the new document
'remove any manual page break to prevent a second blank
docSingle.Range.Find.Execute Findtext:="^m", ReplaceWith:="" 
'build a new sequentially-numbered file name based on the original multi-paged file name and path
strNewFileName = Replace(docMultiple.FullName, ".doc", "_" & Right$("000" & iCurrentPage, 4) & ".doc") 
docSingle.SaveAs strNewFileName 'save the new single-paged document
iCurrentPage = iCurrentPage + 1 'move to the next page
docSingle.Close 'close the new document
rngPage.Collapse wdCollapseEnd 'go to the next page
Loop 'go to the top of the do loop
Application.ScreenUpdating = True 'restore the screen updating 
'Destroy the objects.
Set docMultiple = Nothing 
Set docSingle = Nothing 
Set rngPage = Nothing 
End Sub

Когда скрипт разделит документ на отдельные файлы, то все они будут сохранены в ту же папку, где находится оригинальный документ.

Немного юмора:

Большинство пользователей уверены, что если при загрузке Windоws водить курсором по кругу, то компьютер загрузится быстрее.