2 Cara Cepat Menghitung Jumlah Halaman dan Kata untuk Beberapa Dokumen Word

Pada artikel ini, kami akan menunjukkan kepada Anda 2 cara cepat dan efektif untuk menghitung jumlah halaman dan kata untuk beberapa dokumen Word.

Kadang-kadang, saat mengerjakan dokumen yang panjang, kita cenderung membagi konten menjadi beberapa file Word, seperti menempatkan bab berbeda dalam banyak dokumen. Kemudian ketika harus menghitung jumlah halaman dan kata, ini bisa sedikit melelahkan, karena Anda harus membuka setiap dokumen dan memeriksa informasinya.

Oleh karena itu, kami mencantumkan 2 metode cepat untuk membantu menghemat waktu Anda yang berharga.

Metode 1: Periksa Detail di Folder File

Dalam teks tersebut, kami akan memberikan contoh di bawah lingkungan Windows 7.

1. Pertama, atur semua dokumen untuk diperiksa dalam satu folder file.
2. Kemudian buka folder file dan klik tombol "Opsi lainnya" di samping "Ubah tampilan Anda".  
3. Selanjutnya klik "Detail".
4. Sekarang klik kanan pada baris header dan pilih "More".
5. Di kotak dialog "Pilih Detail", centang kotak "Halaman" dan "Jumlah kata".
6. Lalu klik "OK".

Sekarang akan ada 2 kolom baru yang menampilkan halaman dan kata dari setiap dokumen. Anda hanya perlu menjumlahkan angka-angka ini.

Namun, metode ini hanya memberi Anda perkiraan jumlah kata di setiap file. Jadi, untuk mendapatkan angka yang lebih akurat, Anda bisa memilih cara 2.

Metode 2: Buat Makro

1. Demikian pula, masukkan semua dokumen target ke dalam satu folder terlebih dahulu.
2. Kemudian buka Word dan klik tab "Pengembang".
3. Selanjutnya klik "Visual Basic" untuk membuka editor VBA. Atau Anda cukup menekan "Alt + F11".
4. Sekarang klik "Normal" dan "Sisipkan".
5. Kemudian pilih "Modul".
6. Selanjutnya, klik dua kali pada modul baru dan tempel kode berikut di area pengeditan:

Sub GetAllPageNumbers()
  Dim objWordApplication As Word.Application
  Dim nPageNumber As Long
  Dim nWordNumber As Long
  Dim objFile As Variant
  Dim objFileSystem As Object
  Dim objFolders As Object

  nPageNumber = 0
  Set objWordApplication = New Word.Application
  Set objFileSystem = CreateObject("scripting.filesystemobject")
  Set objFolders = objFileSystem.getfolder("C:\Users\Test\Desktop\files")  

  For Each objFile In objFolders.Files
    '  Only process non-hidden files
    If (objFile.Attributes And 2) = 0 Then
      With objWordApplication
        .Documents.Open (objFile)
        nPageNumber = nPageNumber + .ActiveDocument.ComputeStatistics(wdStatisticPages)
        nWordNumber = nWordNumber + .ActiveDocument.ComputeStatistics(wdStatisticWords)
        .ActiveDocument.Close (False)
      End With
    End If
  Next objFile

  MsgBox ("pages:" & nPageNumber & " " & "words:" & nWordNumber)

  Set objFile = Nothing
  Set objFileSystem = Nothing
  Set objFolders = Nothing
  Set objWordApplication = Nothing
End Sub

7. Terakhir, klik "Jalankan". Kemudian Anda akan disambut oleh kotak pesan, yang menunjukkan nomor halaman dan jumlah kata, seperti di bawah ini:

Catatan: "C: \ Users \ Test \ Desktop \ files" mengacu pada lokasi folder file.

Waspada Korupsi Dokumen

Karena kami harus menangani semua jenis laporan setiap hari, disarankan untuk mencadangkan beberapa file penting jika rusak karena pencadangan selalu menjadi bagian penting dari jaring pengaman untuk melindungi integritas file. Namun, faktanya backup juga bisa gagal menjadi korban korupsi. Dan saat itulah Anda membutuhkan yang unggul alat pemulihan file Word yang rusak

Pengantar Penulis:

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