2 Cara Pantas untuk Mengekstrak Halaman Individu dari Dokumen Word Anda

Dalam catatan hari ini, kami ingin berkongsi dengan anda 2 cara cepat untuk mengekstrak halaman individu daripada dokumen Word anda.

Kadang-kadang dalam dokumen Word, setiap halaman mungkin mengandungi kandungan yang agak bebas, seperti jadual. Dan anda mungkin perlu menghantar jadual yang berbeza kepada orang yang berbeza. Maka anda harus menyimpan setiap jadual yang ada di setiap halaman, sebagai fail yang berasingan.

Idea pertama yang muncul dalam fikiran kita adalah copy-and-paste klasik. Namun, apa-apa yang melibatkan pemilihan kadang-kadang menjengkelkan, kerana menyeret dan memilih dengan mudah dapat membuat ujung tanpa pilihan sama sekali. Atas sebab ini, kami mengesyorkan anda 2 kaedah cepat menggunakan makro untuk menjalankan tugas.

Kaedah 1: Ekstrak Halaman Semasa dan Simpan sebagai Dokumen Baru

1. Pertama sekali, letakkan kursor anda pada halaman yang ingin anda ekstrak.
2. Klik tab "Pembangun" dan kemudian klik "Visual Basic" untuk memanggil editor VBA. Sekiranya "Pengembang" tidak diaktifkan, tekan "Alt + F11" sebagai gantinya.
3. Kedua, pergi ke projek "Normal" dengan mengkliknya.
4. Klik seterusnya "Masukkan" tab dan pilih "Module".
5. Klik dua kali pada modul baru untuk membuka kawasan penyuntingan.
6. Kemudian tampal kod berikut di sana:

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. Terakhir, klik butang "Jalankan".

Sekarang akan ada 2 kotak input. Masukkan jalan di mana anda ingin menyimpan dokumen baru pada kotak input pertama. Dan masukkan nama dokumen baru pada yang kedua.

Kaedah 2: Ekstrak Setiap Halaman dan Simpan sebagai Dokumen Baru

Makro berikut akan membolehkan anda mengekstrak setiap halaman satu dokumen.

1. Pertama, tekan "Ctrl + Home" untuk pergi ke awal dokumen anda.
2. Kemudian ikuti langkah yang sama dalam kaedah 1 untuk memasang dan menjalankan makro.
3. Kali ini ganti makro dengan yang berikut:

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

Tangani Masalah Word

Terdapat dan akan sentiasa ada pelbagai masalah Word. Intinya adalah untuk belajar memperbaikinya dengan betul. Cara yang paling disyorkan adalah, sudah tentu, untuk mendapatkan yang canggih Pemulihan perkataan alat. Anda harus merebut setiap minit untuk memulihkan data anda sebelum terlambat.

Pengenalan Pengarang:

Vera Chen adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk xlsx rosak dan pdf membaiki produk perisian. Untuk maklumat lebih lanjut, lawati www.datanumen.com