2 rýchle spôsoby extrakcie sekcií z dokumentu Word

V tomto článku vám ponúkneme 2 rýchle a ľahké spôsoby extrakcie častí z dokumentu Word do iného alebo viacerých.

Extrahovať obsah z jedného dokumentu do druhého sa stáva pomerne často. A v našom predchádzajúcom článku sme diskutovali o tom, ako extrahovať stránky z dokumentu. Podrobné informácie nájdete v tomto článku: 2 rýchle spôsoby extrakcie jednotlivých stránok z dokumentu Word

Dnes si ukážeme, ako extrahovať po sekciách.    

Metóda 1: Extrakcia aktuálnej sekcie do nového dokumentu

1. Najskôr umiestnite kurzor do a tarzískať oddiel.
2. Ďalej stlačte „Alt + F11“, čím vyvoláte editor VBA v programe Word.
3. Potom v ľavom stĺpci kliknite na „Normálny“.
4. A na paneli s ponukami kliknite na „Vložiť“.
5. Potom v rozbaľovacej ponuke vyberte možnosť Modul.
6. Dvojitým kliknutím otvorte nový modul a vložte tam nasledujúce kódy:

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. Ďalej kliknite na paneli s ponukami na tlačidlo „Spustiť“ alebo stlačte kláves „F5“.
8. Potom sa zobrazí okno „Prehľadávať“. Vyberte miesto na uloženie nového dokumentu a kliknite na tlačidlo „OK“.
9. A do poľa „Názov súboru“ zadajte názov nového súboru a kliknite na tlačidlo „OK“.

Teraz ste oddiel extrahovali do nového dokumentu.

Metóda 2: Extrakcia každej sekcie v dokumente jednotlivým novým

Týmto spôsobom vám umožní dávkové spracovanie všetkých častí dokumentu. Samozrejme, budeme tiež potrebovať makro.

1. Na začiatok otvorte tarzískať dokument.
2. Potom postupujte podľa krokov v metóde 1 na inštaláciu a spustenie makra.
3. Iba tentoraz nahraďte dané makro týmto:

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. Napriek tomu v okne „Prehliadať“ vyberte cestu k úložisku a kliknite na tlačidlo „OK“.

Oprava dráždivých slovných chýb

Je bežné, že pri jeho používaní narazíte na niektoré chyby Wordu. Môže to byť nepríjemné, musíme si na to chvíľu vziať obnoviť slovo čo najskôr. Pretože čím dlhšie to oneskoríme, tým závažnejšia môže byť strata dát. Preto sa navrhuje zaobstarať si opravárenský nástroj vopred.

Úvod autora:

Vera Chen je expertka na obnovu dát v DataNumen, Inc., ktorá je svetovým lídrom v oblasti technológií obnovy dát, vrátane poškodené xls a pdf oprava softvérových produktov. Pre viac informácií navštívte www.datanumen. S