2 Cara Cepat untuk Mengekstrak Halaman Individual dari Dokumen Word Anda

Pada postingan hari ini, kami ingin berbagi dengan Anda 2 cara cepat untuk mengekstrak halaman individual dari dokumen Word Anda.

Terkadang dalam dokumen Word, setiap halaman mungkin berisi konten yang cukup independen, seperti tabel. Dan Anda mungkin perlu mengirim tabel yang berbeda ke orang yang berbeda. Kemudian Anda harus menyimpan setiap tabel di setiap halaman, sebagai file terpisah.

Ide pertama yang muncul di benak kita seharusnya adalah salin dan tempel klasik. Namun, apa pun yang melibatkan seleksi kadang-kadang bisa mengganggu, karena menyeret dan memilih dapat dengan mudah mengakhiri tanpa seleksi sama sekali. Untuk alasan ini, kami menyarankan Anda 2 metode cepat menggunakan makro untuk melakukan pekerjaan itu.

Metode 1: Ekstrak Halaman Saat Ini dan Simpan sebagai Dokumen Baru

1. Pertama dan terpenting, posisikan kursor Anda di halaman yang ingin Anda ekstrak.
2. Klik tab "Pengembang" dan kemudian klik "Visual Basic" untuk memanggil editor VBA. Jika "Pengembang" tidak diaktifkan, cukup tekan "Alt + F11" sebagai gantinya.
3. Kedua, buka proyek "Normal" dengan mengkliknya.
4. Selanjutnya klik tab "Sisipkan" dan pilih "Modul".
5. Klik dua kali pada modul baru untuk membuka area pengeditan.
6. Kemudian tempel kode 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 tombol "Run".

Sekarang akan ada 2 kotak masukan. Masukkan jalur tempat Anda ingin menyimpan dokumen baru pada kotak input pertama. Dan masukkan nama dokumen baru pada yang kedua.

Metode 2: Ekstrak Setiap Halaman dan Simpan sebagai Dokumen Baru

Makro berikut akan memungkinkan Anda mengekstrak setiap halaman dokumen.

1. Pertama, tekan "Ctrl + Home" untuk pergi ke awal dokumen Anda.
2. Kemudian ikuti langkah-langkah yang sama di metode 1 untuk menginstal dan menjalankan makro.
3. Kali ini ganti makro dengan yang ini:

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

Atasi Masalah Word

Ada dan akan selalu ada berbagai masalah dengan Word. Intinya adalah belajar cara memperbaikinya dengan benar. Cara yang paling disarankan tentu saja adalah dengan mendapatkan perangkat lunak yang canggih. Pemulihan kata alat. Anda harus memanfaatkan setiap menit untuk memulihkan data Anda sebelum terlambat.

Pengantar Penulis:

Vera Chen adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk xlsx rusak ke pdf memperbaiki produk perangkat lunak. Untuk informasi lebih lanjut kunjungi www.datanumen.com