2 швидкі способи вилучення розділів із документа Word

У цій статті ми запропонуємо вам 2 швидкі та прості способи витягти розділи з документа Word в інший або декілька.

Досить часто трапляється витяг вмісту з одного документа в інший. І в нашій попередній статті ми обговорили, як витягти сторінки з документа. Для отримання детальної інформації ви можете звернутися до цієї статті: 2 Швидкі способи вилучення окремих сторінок із документа Word

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

Спосіб 1: Витяг поточного розділу до нового документа

1. Перш за все, розташуйте курсор у цільовому розділі.
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. Потім з’явиться вікно “Огляд”. Виберіть місце для зберігання нового документа та натисніть “OK”.
9. А у полі “Ім'я файлу” введіть ім’я нового файлу та натисніть “OK”.

Тепер ви витягли розділ до нового документа.

Спосіб 2: Витягніть кожен розділ у документі на окремих нових

Цей спосіб може допомогти вам групово обробити всі розділи документа. Звичайно, нам знадобиться і макрос.

1. Для початку відкрийте цільовий документ.
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. Однак у вікні "Огляд" виберіть шлях до сховища та натисніть "OK".

Виправте дратуючі помилки в словах

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

Вступ автора:

Віра Чень є експертом з відновлення даних у DataNumen, Inc., яка є світовим лідером у галузі технологій відновлення даних, в тому числі пошкоджений XLS та pdf ремонт програмних продуктів. Для отримання додаткової інформації відвідайте WWW.datanumen.com