2 kiiret viisi Wordi dokumendist üksikute lehtede eraldamiseks

Tänases postituses tahame teiega jagada kahte kiiret viisi, kuidas Wordi dokumendist üksikuid lehti eraldada.

Mõnikord võib Wordi dokumendis iga leht sisaldada üsna iseseisvat sisu, näiteks tabelit. Ja tõenäoliselt peate erinevatele inimestele saatma erinevaid tabeleid. Seejärel peate salvestama iga tabeli, mis on iga leht, eraldi failina.

Esimene mõte, mis meile pähe tuleb, peaks olema klassikaline kopeerimine ja kleepimine. Kuid kõik, mis hõlmab valikut, võib mõnikord olla tüütu, sest lohistamine ja valimine võib kergesti lõppeda ilma valikuta. Sel põhjusel soovitame teil kasutada 2 kiiret meetodit, mis kasutavad töö tegemiseks makrot.

1. meetod: ekstraktige praegune leht ja salvestage see uue dokumendina

1. Kõigepealt asetage kursor lehele, mida soovite ekstraktida.
2. Klõpsake vahekaarti "Arendaja" ja seejärel "Visual Basic", et käivitada VBA redaktor. Kui "Arendaja" pole aktiveeritud, vajutage selle asemel lihtsalt "Alt+ F11".
3. Teiseks minge projektile "Tavaline", klõpsates sellel.
4. Järgmisena klõpsake vahekaarti "Sisesta" ja valige "Moodul".
5. Redigeerimisala avamiseks topeltklõpsake uuel moodulil.
6. Seejärel kleepige sinna järgmised koodid:

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. Lõpuks klõpsake nuppu "Käivita".

Nüüd tuleb 2 sisestuskasti. Sisestage esimesse sisestuskasti tee, kuhu soovite uue dokumendi salvestada. Ja sisestage teisele dokumendile uus nimi.

2. meetod: ekstraheerige iga leht ja salvestage see uue dokumendina

Järgmine makro võimaldab teil eraldada dokumendi iga üksiku lehekülje.

1. Esiteks vajutage "Ctrl + Home", et minna oma dokumendi algusesse.
2. Seejärel järgige makro installimiseks ja käivitamiseks 1. meetodi samu samme.
3. Seekord asendage makro järgmisega:

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

Tegelege Wordi probleemidega

Wordi probleeme on ja tuleb alati. Asi on selles, et tuleb õppida neid õigesti parandama. Kõige soovitatavam viis on muidugi hankida keerukas Sõna taastamine tööriist. Andmete taastamiseks peaksite kasutama iga minut, enne kui on liiga hilja.

Autori sissejuhatus:

Vera Chen on andmete taastamise ekspert DataNumen, Inc., mis on maailmas juhtiv andmete taastamise tehnoloogiate, sealhulgas rikutud xlsx ja pdf tarkvaratooted. Lisateabe saamiseks külastage www.datanumenCom