2 brza načina za izdvajanje pojedinačnih stranica iz vašeg Word dokumenta

U današnjoj objavi želimo s vama podijeliti 2 brza načina za izdvajanje pojedinačnih stranica iz vašeg Word dokumenta.

Ponekad u Word dokumentu svaka stranica može sadržavati prilično nezavisan sadržaj, poput tablice. I vjerojatno ćete morati poslati različite tablice različitim ljudima. Tada ćete morati spremiti svaku tablicu koja je svaka stranica, kao zasebnu datoteku.

Prva ideja koja nam padne na pamet trebala bi biti klasična kopija i lijepljenje. Ipak, sve što uključuje odabir ponekad može biti neugodno, jer povlačenjem i odabirom možete lako završiti bez ikakvog odabira. Iz tog razloga, preporučujemo vam 2 brze metode pomoću makroa za obavljanje posla.

Metoda 1: izdvojite trenutnu stranicu i spremite je kao novi dokument

1. Prvo i najvažnije, postavite kursor na stranicu koju želite izdvojiti.
2. Pritisnite karticu “Developer” i zatim kliknite “Visual Basic” da pozovete VBA editor. Ako “Developer” nije aktiviran, umjesto toga jednostavno pritisnite “Alt+ F11”.
3. Drugo, idite na "Normalni" projekt klikom na njega.
4. Zatim kliknite karticu "Umetni" i odaberite "Modul".
5. Dvaput kliknite na novi modul da biste otvorili područje za uređivanje.
6. Zatim tamo zalijepite sljedeće kodove:

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. Na kraju kliknite gumb "Pokreni".

Sada će biti 2 okvira za unos. Unesite stazu na koju želite pohraniti novi dokument u prvi okvir za unos. I unesite novi naziv dokumenta na drugi.

Metoda 2: izdvojite svaku stranicu i spremite je kao novi dokument

Sljedeća makronaredba omogućit će vam izdvajanje svake pojedinačne stranice dokumenta.

1. Najprije pritisnite “Ctrl+ Home” za odlazak na sam početak dokumenta.
2. Zatim slijedite iste korake u metodi 1 da biste instalirali i pokrenuli makro.
3. Ovaj put makronaredbu zamijenite ovom:

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

Pozabavite se problemima s riječima

Uvijek postoje i uvijek će postojati razni problemi s Wordom. Poanta je naučiti ih pravilno ispravljati. Najpreporučljiviji način je, naravno, nabaviti sofisticirani Oporavak riječi alat. Trebali biste iskoristiti svaku minutu za oporavak podataka prije nego što bude prekasno.

Uvod za autora:

Vera Chen stručnjakinja je za oporavak podataka u DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući pokvaren xlsx i pdf popraviti softverske proizvode. Za više informacija posjetite www.datanumen.com