2 rýchle spôsoby extrakcie jednotlivých stránok z dokumentu Word

V dnešnej strost, chceme sa s vami podeliť o 2 rýchle spôsoby, ako extrahovať jednotlivé stránky z dokumentu Word.

Niekedy v dokumente Word môže každá stránka obsahovať celkom nezávislý obsah, napríklad tabuľku. A pravdepodobne budete musieť poslať rôzne stoly rôznym ľuďom. Potom budete musieť každú tabuľku, ktorá predstavuje každú stránku, uložiť ako samostatný súbor.

Prvý nápad, ktorý by nás napadol, by mal byť klasický postup kopírovania a vkladania. Čokoľvek, čo zahŕňa výber, môže byť niekedy nepríjemné, pretože pretiahnutím a výberom môžete ľahko skončiť bez toho, aby ste museli vyberať vôbec. Z tohto dôvodu vám odporúčame vykonať dve rýchle metódy pomocou makra.

Metóda 1: Extrahujte aktuálnu stránku a uložte ju ako nový dokument

1. V prvom radeost, umiestnite kurzor na stránku, ktorú chcete extrahovať.
2. Kliknite na kartu „Vývojár“ a potom kliknutím na položku „Visual Basic“ vyvolajte editor VBA. Pokiaľ nie je aktivovaný „Developer“, jednoducho stlačte „Alt + F11“.
3. Ako druhé kliknite na projekt „Normálny“.
4. Ďalej kliknite na kartu „Vložiť“ a zvoľte „Modul“.
5. Dvojitým kliknutím na nový modul otvoríte oblasť úprav.
6. Potom tam vložte nasledujúce kódy:

Sub SaveCurrentPageAsANewDoc()
  Dim objNewDoc As Document
  Dim objDoc As Document
  Dim strFileName As String
  Dim strFolder As String
 
  '  Initialization
  Set objDoc = ActiveDocument
 
  strFolder = InputBox("Enter folder path here: ")
  strFileName = InputBox("Enter file name here: ")
 
  '  Copy current page.
  objDoc.Bookmarks("\Page").Range.Select
  Selection.Copy
 
  '  Open a new document to paste the selection.
  Set objNewDoc = Documents.Add
  Selection.Paste
 
  objNewDoc.SaveAs FileName:=strFolder & "\" & strFileName & ".docx"
  objNewDoc.Close
End Sub

7. Nakoniec kliknite na tlačidlo „Spustiť“.

Teraz budú 2 vstupné políčka. Do prvého vstupného poľa zadajte cestu, kam chcete uložiť nový dokument. A na druhý zadajte názov nového dokumentu.

Metóda 2: Extrahujte každú stránku a uložte ju ako nový dokument

Nasledujúce makro vám umožní extrahovať každú jednotlivú stránku dokumentu.

1. Najskôr stlačte „Ctrl + Home“, aby ste sa dostali na úplný začiatok dokumentu.
2. Potom postupujte podľa rovnakých krokov v metóde 1 na inštaláciu a spustenie makra.
3. Tentokrát nahraďte makro týmto:

Sub SaveEachPageAsADoc()
  Dim objNewDoc As Document
  Dim objDoc As Document
  Dim nPageNumber As Integer
  Dim strFolder As String
  Dim objFileName As Range
 
  '  Initialization
  Set objDoc = ActiveDocument
 
  strFolder = InputBox("Enter folder path here: ")
 
  '  Copy each page in the document to paste it into a new one.
  For nPageNumber = 1 To ActiveDocument.ComputeStatistics(wdStatisticPages)
    Application.Browser.Target = wdBrowsePage
    ActiveDocument.Bookmarks("\page").Range.Select
    Selection.Copy
 
    Set objNewDoc = Documents.Add
    Selection.Paste
 
    '  Save new doc with the name of "Page" & nPageNumber and get the first 20 characters of the new doc as part of the file name.
    Set objFileName = objNewDoc.Range(Start:=0, End:=20)
    objNewDoc.SaveAs FileName:=strFolder & "\" & "Page " & nPageNumber & " " & objFileName & ".docx"
    objNewDoc.Close
    Application.Browser.Next
  Next nPageNumber
End Sub

Riešenie slovných problémov

Existujú a vždy budú rôzne problémy s Wordom. Ide o to, naučiť sa ich správne opravovať. Most odporúčaným spôsobom je samozrejme získanie sofistikovaného riešenia Obnova slov nástroj. Mali by ste využiť každú minútu na obnovenie svojich údajov skôr, ako bude neskoro.

Ú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 skazený xlsx a pdf oprava softvérových produktov. Pre viac informácií navštívte www.datanumen. S