3 Metode untuk Menghitung Jumlah Kata untuk Bagian dalam Dokumen Word Anda

Pada artikel ini, akan ada 3 metode bagi Anda untuk menghitung jumlah kata untuk bagian dalam dokumen Word Anda.

Sangat mudah untuk mendapatkan jumlah kata dari sebuah dokumen. Tetapi tidak ada fungsi di Word untuk memberi tahu kami jumlah kata dari suatu bagian. Dan mengingat fakta bahwa kami lebih suka menempatkan konten dari topik yang sama dalam satu bagian, seperti mengatur bab sambil menulis buku, penting bagi kami untuk menemukan solusi agar bagian tersebut dihitung.   Berikut adalah 3 pendekatan yang mengharuskan Anda menjalankan makro.

Metode 1: Hitung Jumlah Kata untuk Bagian Saat Ini

1. Pertama, letakkan kursor di dalam bagian target.
2. Maka Anda perlu membuka editor VBA di Word. Klik "Pengembang" dan kemudian perintah "Visual Basic". Jika Anda tidak dapat menemukan "Pengembang" di Pita, tekan "Alt + F11" sebagai gantinya.
3. Selanjutnya klik proyek "Normal" di kolom kiri.
4. Kemudian klik tab "Sisipkan".
5. Pada menu drop-down tersebut, pilih "Module".
6. Buka modul baru dengan klik dua kali.
7. Sekarang di modul terbuka, tempel kode di bawah ini:

Sub CountWordsOfCurrentSection()
  MsgBox ("There are " & Selection.Sections(1).Range.ComputeStatistics(wdStatisticWords) _
         & " words in current section.")
End Sub

8. Terakhir, klik "Run" atau tekan "F5" untuk menjalankan kode.

Anda akan menerima kotak pesan yang menunjukkan jumlah total bagian saat ini, seperti di bawah ini:

Metode 2: Hitung Jumlah Kata untuk Bagian Tertentu

Katakanlah Anda telah mengerjakan sebuah buku dan menetapkan setiap bab sebagai bagian individual. Kemudian untuk mengetahui berapa banyak kata yang Anda tulis dalam satu bab, Anda dapat menggunakan cara ini.

1. Ikuti langkah-langkah di atas untuk menginstal dan menjalankan makro.
2. Ganti saja makro dengan yang ini:

Sub CountWordsOfSpecificSection()
  Dim strSecNum As String
  Dim objDoc As Document
 
  Application.ScreenUpdating = False
 
  Set objDoc = ActiveDocument
  strSecNum = InputBox("Enter a section number here:", "Enter Section Number") 
  MsgBox ("There are " & objDoc.Sections(strSecNum).Range.ComputeStatistics(wdStatisticWords) _
          & " words in section " & strSecNum & ".")
  Application.ScreenUpdating = True
End Sub

3. Dan menjalankannya, akan ada kotak input. Di kotak "Masukkan Nomor Bagian", masukkan nomor bagian dan klik "OK" untuk melanjutkan.

Hasilnya ditampilkan di kotak pesan.

Metode 3: Hitung Jumlah Kata untuk Semua Bagian dalam Dokumen

Seperti yang disarankan subtitle, cara ini akan memberi Anda jumlah kata dari setiap bagian dalam dokumen dan mencantumkannya di kotak pesan.

1. Pertama-tama, buka dokumen target.
2. Namun, Anda harus mengulangi langkah-langkah di metode 1 untuk menginstal dan menjalankan makro.
3. Dan kali ini, ubah dengan makro ini:

Sub CountWordsOfEachSectionInDoc()
  Dim objDoc As Document
  Dim nNumberOfSection As Long
  Dim strText As String
 
  Application.ScreenUpdating = False
  Set objDoc = ActiveDocument
  nNumberOfSection = objDoc.Sections.Count
 
  For nNumberOfSection = 1 To nNumberOfSection
    strText = strText & "There are " & objDoc.Sections(nNumberOfSection) _
              .Range.ComputeStatistics(wdStatisticWords) & " words in section " & nNumberOfSection & "; " _
              & vbNewLine
  Next nNumberOfSection
 
  MsgBox strText
 
  Application.ScreenUpdating = True
End Sub

Berikut adalah hasil yang mungkin:

Simpan Data Berharga

Saat menangani semua jenis dokumen, Anda harus memperhatikan keamanannya. Karena Anda tidak pernah tahu kapan kehilangan data berikutnya akan terjadi, disarankan untuk membuat cadangan file penting. Selain itu, selalu bagus untuk mendapatkan alat yang bisa pulihkan dok, jika ada.

Pengantar Penulis:

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