2 Mabilis na Mga Paraan upang Kumuha ng Indibidwal na Mga Pahina mula sa Iyong Dokumentong Word

Sa post natin ngayon, gusto naming ibahagi sa inyo ang 2 mabilis na paraan para mag-extract ng mga indibidwal na pahina mula sa inyong Word document.

Minsan sa isang dokumento ng Word, ang bawat pahina ay maaaring maglaman ng mga independiyenteng nilalaman, tulad ng isang talahanayan. At malamang na kakailanganin mong magpadala ng iba't ibang mga talahanayan sa iba't ibang mga tao. Pagkatapos ay kakailanganin mong i-save ang bawat talahanayan na bawat pahina, bilang isang hiwalay na file.

Ang unang ideya ay nangyayari sa aming isipan ay dapat na ang klasikong kopya-at-i-paste. Gayunpaman, ang anumang bagay na nagsasangkot ng pagpili ay maaaring nakakainis minsan, sapagkat ang pag-drag at pagpili ay madaling makagawa ng isang dulo na walang pagpipilian. Para sa kadahilanang ito, inirerekumenda namin sa iyo ang 2 mabilis na pamamaraan gamit ang macro upang gawin ang trabaho.

Paraan 1: I-extract ang Kasalukuyang Pahina at i-save ito bilang isang Bagong Dokumento

1. Una sa lahat, iposisyon ang iyong cursor sa pahinang gusto mong kunin.
2. I-click ang tab na "Developer" at pagkatapos ay i-click ang "Visual Basic" upang mahiling ang VBA editor. Kung ang "Developer" ay hindi naaktibo, pindutin lamang ang "Alt + F11" sa halip.
3. Pangalawa, pumunta sa "Normal" na proyekto sa pamamagitan ng pag-click dito.
4. Susunod na pag-click sa tab na "Ipasok" at piliin ang "Modyul".
5. Mag-double click sa bagong module upang buksan ang lugar ng pag-edit.
6. Pagkatapos i-paste ang mga sumusunod na code doon:

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. Panghuli, i-click ang pindutang "Run".

Ngayon magkakaroon ng 2 mga kahon ng pag-input. Ipasok ang landas kung saan mo nais na iimbak ang bagong dokumento sa unang kahon ng pag-input. At ipasok ang bagong pangalan ng dokumento sa pangalawa.

Paraan 2: I-extract ang bawat Pahina at i-save ito bilang isang Bagong Dokumento

Papayagan ka ng sumusunod na macro na kumuha ng bawat indibidwal na pahina ng isang dokumento.

1. Una, pindutin ang "Ctrl + Home" upang pumunta sa pinakadulo simula ng iyong dokumento.
2. Pagkatapos ay sundin ang parehong mga hakbang sa pamamaraan 1 upang mai-install at magpatakbo ng isang macro.
3. Sa oras na ito palitan ang macro ng isang ito:

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

Makitungo sa Mga Isyu sa Salita

Mayroong at palaging magkakaroon ng iba't ibang mga isyu sa Word. Ang punto ay matutunan kung paano maayos ang mga ito. Ang pinaka-inirerekomendang paraan ay, siyempre, ang kumuha ng sopistikadong Pagbawi ng salita kasangkapan Dapat mong sakupin ang bawat minuto upang mabawi ang iyong data bago huli na.

Panimula ng May-akda:

Si Vera Chen ay isang dalubhasa sa pagbawi ng data sa DataNumen, Inc., na pinuno ng mundo sa mga teknolohiya sa pagbawi ng data, kasama ang sira xlsx at pdf pagkumpuni ng mga produktong software. Para sa karagdagang impormasyon pagbisita www.datanumen. Sa