2 быстрых способа извлечь разделы из документа Word

В этой статье мы предложим вам 2 быстрых и простых способа извлечь разделы из вашего документа Word в другой или несколько.

Довольно часто происходит извлечение содержимого из одного документа в другой. А в нашей предыдущей статье мы обсуждали, как извлечь страницы из документа. Для получения подробной информации вы можете обратиться к этой статье: 2 быстрых способа извлечь отдельные страницы из документа Word

Сегодня мы покажем вам, как извлечь по разделам.    

Метод 1: извлечь текущий раздел в новый документ

1. Прежде всего, поместите курсор в tarполучить раздел.
2. Затем нажмите «Alt + F11», чтобы вызвать редактор VBA в Word.
3. Затем в левом столбце нажмите «Обычный».
4. И в строке меню нажмите «Вставить».
5. Затем выберите «Модуль» в этом раскрывающемся меню.
6. Дважды щелкните, чтобы открыть новый модуль, и вставьте туда следующие коды:

Sub SaveCurrentSectionAsNewDoc()
  Dim strFolder As String
  Dim dlgFile As FileDialog
  Dim strNewFileName As String
  Dim objDocAdded As Document
  Dim objDoc As Document
 
  ' Initialization
  Set objDoc = ActiveDocument
 
  ' Pick a place to store the new file.
  Set dlgFile = Application.FileDialog(msoFileDialogFolderPicker)
 
  With dlgFile
    If .Show = -1 Then
      strFolder = .SelectedItems(1) & "\"
    Else
      MsgBox "Select a folder first!"
      Exit Sub
    End If
  End With
 
  strNewFileName = InputBox("Enter new file name here: ", "File Name")
 
  ' Select and copy current section range.
  objDoc.Bookmarks("\Section").Range.Select
  Selection.Copy
 
  ' Open a new document to paste the above selection.
  Set objDocAdded = Documents.Add
  Selection.Paste
 
  ' Save and close the new document.
  objDocAdded.SaveAs FileName:=strFolder & strNewFileName & ".docx"
  objDocAdded.Close
End Sub

7. Затем нажмите «Выполнить» в строке меню или нажмите «F5».
8. Затем появится окно «Обзор». Выберите место для хранения нового документа и нажмите «ОК».
9. И в поле «Имя файла» введите имя для нового файла и нажмите «ОК».

Теперь вы извлекли раздел в новый документ.

Способ 2: извлечение каждого раздела документа в отдельные новые

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

1. Для начала откройте tarполучить документ.
2. Затем выполните шаги метода 1, чтобы установить и запустить макрос.
3. Только на этот раз замените этот макрос на этот:

Sub SaveEachSectionAsADoc()
  Dim objDocAdded As Document
  Dim objDoc As Document
  Dim nSectionNum As Integer
  Dim strFolder As String

  Dim dlgFile As FileDialog
 
  ' Initialization
  Set objDoc = ActiveDocument
 
  Set dlgFile = Application.FileDialog(msoFileDialogFolderPicker)
 
  ' Pick a location to keep new files.
  With dlgFile
    If .Show = -1 Then
      strFolder = .SelectedItems(1) & "\"
    Else
      MsgBox "Select a folder first!"
      Exit Sub
    End If
  End With
 
  ' Step through each section in current document, copy and paste each to a new one.
  For nSectionNum = 1 To ActiveDocument.Sections.Count
    Selection.GoTo What:=wdGoToSection, Which:=wdGoToNext, Name:=nSectionNum
    ActiveDocument.Sections(nSectionNum).Range.Copy
 
    Set objDocAdded = Documents.Add
    Selection.Paste
 
    ' Save and close new documents.
    objDocAdded.SaveAs FileName:=strFolder & "Section " & nSectionNum & ".docx"
    objDocAdded.Close
  Next nSectionNum
End Sub

4. Тем не менее, в окне «Обзор» выберите путь хранения и нажмите «ОК».

Исправить раздражающие ошибки в словах

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

Об авторе:

Вера Чен — эксперт по восстановлению данных в DataNumen, Inc., которая является мировым лидером в области технологий восстановления данных, включая поврежденный xls и pdf ремонт программных продуктов. Для получения дополнительной информации посетите www.datanumen.com