Разделение документа Word на несколько файлов по заголовкам уровня 1 (пошаговое руководство)

При работе с длинными документами Word — такими как отчёты, учебники, руководства или проектные документы — может возникнуть необходимость разделить файл на более мелкие части, например, по одной главе на файл. Если в вашем документе уже используются заголовки уровня 1 в качестве основных разделов, то разделение становится гораздо проще. Ниже приведено подробное руководство по эффективному выполнению этой задачи.

• Подготовьте документ Word
• Способ 1: Разделение документа Word по заголовкам уровня 1 с помощью функции «Структура»
• Способ 2: Разделение документа Word по заголовкам уровня 1 с помощью кода VBA
• Способ 3: Разделение документа Word по заголовкам уровня 1 с помощью Kutools для Word
• Заключение

Подготовьте документ Word

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

Применение стилей:

Последовательно применяйте стили заголовков: для заголовков первого уровня используйте стиль «Заголовок 1», для второго — «Заголовок 2» и так далее.

Выделите заголовок → Перейдите на вкладку «Главная» → В коллекции стилей нажмите «Заголовок 1».

Создание резервной копии:

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

Способ 1: Разделение документа Word по заголовкам уровня 1 с помощью функции «Структура»

На самом деле встроенный в Word режим «Структура» делает эту задачу невероятно простой. Он автоматически определяет разделы с заголовками уровня 1, позволяя организовать структуру документа и экспортировать каждую главу в отдельный файл — без надстроек и сложных действий.

1. Откройте документ Word, перейдите на вкладку Вид и нажмите Структура. См. скриншот:
   
2. На появившейся вкладке Структура установите в раскрывающемся списке Уровень отображения значение Уровень 1. В результате всё содержимое, кроме заголовков уровня 1, будет свёрнуто.
   
3. Сначала нажмите Ctrl + A, чтобы выделить весь текст. Затем в группе Основной документ нажмите Показать документ.
   
4. Нажмите кнопку Создать. Word поместит каждый раздел в тонкую рамку.
   
5. Перейдите в меню Файл > Сохранить как. Выберите папку «Новая папка». Word автоматически создаст отдельные файлы с расширением .docx для каждого заголовка уровня 1, используя текст заголовка в качестве имени файла. Также будет создан отдельный индексный документ со ссылками на все разделённые файлы, позволяющий открывать любой из них одним щелчком мыши.
   

Способ 2: Разделение документа Word по заголовкам уровня 1 с помощью кода VBA

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

1. Нажмите Alt + F11, чтобы открыть окно Visual Basic for Applications.
2. Выберите пункт Вставка>Модуль. Скопируйте и вставьте следующий код в пустой модуль:
   

   Sub SplitDocByHeading1()
       Dim StrTmplt As String
       Dim StrPath As String
       Dim StrFlNm As String
       Dim Rng As Range
       Dim i As Long
       Dim Doc As Document
       Dim fDialog As FileDialog
       Const StrNoChr As String = """*./\:?|"
       Application.ScreenUpdating = False
       Set fDialog = Application.FileDialog(msoFileDialogFolderPicker)
       With fDialog
           .Title = "Select a folder to save the split documents"
           .AllowMultiSelect = False
           If .Show <> -1 Then
               MsgBox "Operation cancelled.", vbInformation, "Split by Heading 1"
               Application.ScreenUpdating = True
               Exit Sub
           End If
           StrPath = .SelectedItems(1)
       End With
       If Right(StrPath, 1) <> "\" Then
           StrPath = StrPath & "\"
       End If
       With ActiveDocument
           StrTmplt = .AttachedTemplate.FullName
           With .Range
               With .Find
                   .ClearFormatting
                   .Replacement.ClearFormatting
                   .Text = ""
                   .Replacement.Text = ""
                   .Style = wdStyleHeading1
                   .Format = True
                   .Forward = True
                   .Wrap = wdFindStop
                   .Execute
               End With
               Do While .Find.Found
                   Set Rng = .Duplicate
                   StrFlNm = Split(Rng.Paragraphs(1).Range.Text, vbCr)(0)
                   For i = 1 To Len(StrNoChr)
                       StrFlNm = Replace(StrFlNm, Mid(StrNoChr, i, 1), "_")
                   Next i
                   StrFlNm = StrFlNm & ".docx"
                   Set Rng = Rng.GoTo(What:=wdGoToBookmark, Name:="\HeadingLevel")
                   Set Doc = Documents.Add(Template:=StrTmplt, Visible:=False)
                   With Doc
                       .Range.FormattedText = Rng.FormattedText
                       .SaveAs2 FileName:=StrPath & StrFlNm, _
                                FileFormat:=wdFormatXMLDocument, _
                                AddToRecentFiles:=False
                       .Close SaveChanges:=False
                   End With
                   .Collapse wdCollapseEnd
                   .Find.Execute
               Loop
           End With
       End With
       Set Doc = Nothing
       Set Rng = Nothing
       Application.ScreenUpdating = True
       MsgBox "Split completed successfully.", vbInformation, "Split by Heading 1"
   End Sub
   

3. Нажмите F5 или выберите пункт Выполнить, чтобы запустить код. Появится окно с запросом выбора папки. Выберите папку для сохранения разделённых файлов. См. скриншот:
   
4. Нажмите ОК, и Word немедленно создаст файл .docx для каждого раздела с заголовком первого уровня. Откройте папку, чтобы увидеть результат.
   

Способ 3: Разделение документа Word по заголовкам уровня 1 с помощью Kutools для Word

Хотя встроенные средства Word и VBA позволяют разделять документы, они требуют множества шагов, технических навыков и могут привести к потере форматирования. Kutools для Word предлагает более простое и эффективное решение. Благодаря функции «Разделить документ» вы можете мгновенно разделить файл по заголовкам уровня 1, разрывам страниц, разрывам разделов, отдельным страницам и другим критериям — одним щелчком мыши, без программирования, ручной работы и риска потери форматирования. Kutools сохраняет стили, макет, изображения, колонтитулы и верхние/нижние колонтитулы, делая его идеальным инструментом для всех, кто работает с большими документами.

После загрузки и установки Kutools для Wordвыполните следующие действия:

1. Перейдите в меню KUTOOLS PLUS > Разделить.
   
2. В диалоговом окне Разделить документукажите следующие параметры:

   2,1Выберите Заголовок 1в поле Разделить по(Вы также можете выбрать другие правила разделения, например Разрыв страницы, Разрыв раздела, страница, Каждые n страниц и другие.)

   2,2 Укажите папку для сохранения новых разделённых файлов.

   2,3 Нажмите кнопку ОК.

   Совет: Вы также можете добавить префикс к названию каждого разделённого файла, введя текст в поле Префикс документа.

   
   

Результат:
Kutools мгновенно создаст несколько файлов Word на основе структуры заголовков первого уровня, полностью сохранив колонтитулы.

Заключение

Связанные статьи: