2 greiti būdai ištraukti atskirus puslapius iš „Word“ dokumento

Šiandienos įraše norime pasidalyti su jumis dviem greitais būdais, kaip išgauti atskirus puslapius iš „Word“ dokumento.

Kartais Word dokumente kiekviename puslapyje gali būti gana nepriklausomo turinio, pavyzdžiui, lentelė. Ir tikriausiai reikės siųsti skirtingas lenteles skirtingiems žmonėms. Tada turėsite išsaugoti kiekvieną lentelę, kuri yra kiekvienas puslapis, kaip atskirą failą.

Pirmoji mintis, kuri mums ateina į galvą, turėtų būti klasikinis kopijavimas ir įklijavimas. Tačiau viskas, kas susiję su pasirinkimu, kartais gali erzinti, nes vilkdami ir pasirinkdami galite lengvai apsieiti be jokio pasirinkimo. Dėl šios priežasties rekomenduojame atlikti 2 greitus metodus naudojant makrokomandą.

1 būdas: ištraukite dabartinį puslapį ir išsaugokite jį kaip naują dokumentą

1. Visų pirma, užveskite žymeklį ant puslapio, kurį norite išskleisti.
2. Spustelėkite skirtuką „Kūrėjas“, tada spustelėkite „Visual Basic“, kad iškviestumėte VBA rengyklę. Jei „Kūrėjas“ nesuaktyvintas, tiesiog paspauskite „Alt+ F11“.
3. Antra, eikite į „Normalus“ projektą spustelėdami jį.
4. Tada spustelėkite skirtuką „Įterpti“ ir pasirinkite „Modulis“.
5. Dukart spustelėkite naują modulį, kad atidarytumėte redagavimo sritį.
6. Tada įklijuokite šiuos kodus:

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. Galiausiai spustelėkite mygtuką „Vykdyti“.

Dabar bus 2 įvesties dėžutės. Pirmame įvesties laukelyje įveskite kelią, kuriame norite išsaugoti naują dokumentą. Ir antrame įveskite naują dokumento pavadinimą.

2 būdas: ištraukite kiekvieną puslapį ir išsaugokite jį kaip naują dokumentą

Ši makrokomanda leis jums išskleisti kiekvieną atskirą dokumento puslapį.

1. Pirmiausia paspauskite „Ctrl+ Home“, kad pereitumėte į pačią dokumento pradžią.
2. Tada atlikite tuos pačius 1 metodo veiksmus, kad įdiegtumėte ir paleistumėte makrokomandą.
3. Šį kartą pakeiskite makrokomandą šia:

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

Spręskite Word problemas

Yra ir visada bus įvairių „Word“ problemų. Svarbiausia išmokti jas tinkamai ištaisyti. Žinoma, labiausiai rekomenduojamas būdas yra įsigyti sudėtingą Žodžių atkūrimas įrankis. Turėtumėte išnaudoti kiekvieną minutę, kad atkurtumėte duomenis, kol dar ne vėlu.

Autoriaus įvadas:

Vera Chen yra duomenų atkūrimo ekspertė DataNumen, Inc., kuri yra pasaulyje duomenų atkūrimo technologijų lyderė, įskaitant sugadintas xlsx bei pdf programinės įrangos gaminių taisymas. Norėdami gauti daugiau informacijos, apsilankykite WWW.datanumen.com