3 Cara Mendapatkan Statistik Jumlah Kata Terkait Kotak Teks, Catatan Kaki & Catatan Akhir di Dokumen Anda

Pada artikel hari ini, ada 3 cara cepat untuk mendapatkan statistik jumlah kata yang terkait dengan kotak teks, catatan kaki, dan catatan akhir di dokumen Anda.

Tidak sulit untuk mendapatkan jumlah total kata dalam sebuah dokumen. Tetapi jika Anda ingin mendapatkan jumlah kata dari berbagai jenis teks, maka diperlukan lebih banyak operasi. Berikut ini adalah 3 metode. Baca terus untuk melihat apa yang dapat Anda gunakan. 

Metode 1: Hitung Kata Termasuk Teks dari Kotak Teks, Catatan Kaki, dan Catatan Akhir

Secara default, Word menghitung semua kata yang muncul di dokumen, termasuk teks di kotak teks dan juga kata-kata dari catatan kaki dan catatan akhir.

1. Pertama dan terpenting, buka bilah status dan klik "Kata" untuk membuka kotak "Jumlah Kata".
2. Di sana Anda akan melihat semua jenis statistik. Pastikan Anda telah mencentang kotak "Sertakan kotak teks, catatan kaki, dan catatan akhir".
3. Kemudian klik "Tutup".
4. Jika Anda tidak dapat menemukan perintah "Words" di bilah status, klik kanan di sana.
5. Selanjutnya periksa "Jumlah Kata".

Metode 2: Kecualikan Teks dari Kotak Teks, Catatan Kaki, dan Catatan Akhir dari Jumlah Kata

Ini berlawanan dengan metode 1. Jadi, Anda hanya perlu menghapus centang pada kotak "Sertakan kotak teks, catatan kaki, dan catatan akhir".

Metode 3: Jalankan Word Macro untuk Mendapatkan Hitungan Kata Terpisah dari Kotak Teks, Catatan Kaki, dan Catatan Akhir

1. Pertama, picu kotak “Jumlah Kata” menggunakan cara di metode 1 dan pastikan kotak opsi dicentang.
2. Selanjutnya tekan "Alt + F11" untuk membuka editor VBA.
3. Kemudian masukkan modul baru di proyek "Normal" dengan mengklik "Normal" terlebih dahulu.
4. Dan klik "Sisipkan" selanjutnya.
5. Pilih "Modul" lalu.
6. Klik dua kali modul untuk membuka area pengkodean dan rekatkan kode berikut di sana:

Sub SeparateCountNumberOfTextboxFootnoteEndnote()
  Dim lTextboxWords As Long
  Dim lTextboxChars As Long
  Dim lDocumntWords As Long
  Dim lDocumntChars As Long
  Dim objTextboxShape As Shape
  Dim objTemp As Dialog
  Dim bDone As Boolean
  Dim objRange As Range
  Dim lFootnoteWords As Long
  Dim lFootnoteChars As Long
  Dim lEndnoteWords As Long
  Dim lEndnoteChars As Long
 
  Application.ScreenUpdating = False

 Do
   bDone = True
   For Each objTextboxShape In ActiveDocument.Shapes
     If objTextboxShape.Type = msoGroup Then
       objTextboxShape.Ungroup
       bDone = False
     End If
   Next objTextboxShape
 Loop Until bDone

 '  Count the words and characters in the whole document.
 Selection.HomeKey Unit:=wdStory
 Set objTemp = Dialogs(wdDialogToolsWordCount)
   objTemp.Update
   objTemp.Execute
   lDocumntWords = objTemp.Words
   lDocumntChars = objTemp.Characters
 
 With ActiveDocument
 '  Count the words and characters in all textboxes.
   lTextboxWords = 0
   lTextboxChars = 0
   If ActiveDocument.Shapes.Count > 0 Then
     For Each objTextboxShape In .Shapes
       objTextboxShape.Select
       objTemp.Execute
       lTextboxWords = lTextboxWords + objTemp.Words
       lTextboxChars = lTextboxChars + objTemp.Characters
     Next objTextboxShape
   Else
     MsgBox ("There is no text box in this document")
   End If

   '  Count the words and characters in all footnotes.
   lFootnoteWords = 0
   lFootnoteChars = 0
   If ActiveDocument.Footnotes.Count > 0 Then
     For Each objRange In .StoryRanges
       If objRange.StoryType = wdFootnotesStory Then
         objRange.Select
         objTemp.Execute
         lFootnoteWords = lFootnoteWords + objTemp.Words
         lFootnoteChars = lFootnoteChars + objTemp.Characters
       End If
     Next objRange
   Else
     MsgBox ("There is no footnote in this document")
   End If

   '  Count the words and characters in all endnotes. 
   lEndnoteWords = 0
   lEndnoteChars = 0
   If ActiveDocument.Endnotes.Count > 0 Then
     For Each objRange In .StoryRanges
       If objRange.StoryType = wdEndnotesStory Then
         objRange.Select
         objTemp.Execute
         lEndnoteWords = lEndnoteWords + objTemp.Words
         lEndnoteChars = lEndnoteChars + objTemp.Characters
       End If
     Next objRange
   Else
     MsgBox ("There is no Endnote in this document")
   End If
 End With
 
 Application.ScreenUpdating = True

 MsgBox (" In this document there are totally" & vbCr _
   & Str(lDocumntWords) & " word(s) and" & Str(lDocumntChars) & " characters" & vbCr & vbCr _
   & "Including:" & vbCr _
   & Str(ActiveDocument.Shapes.Count) & " textboxes contain(s)" & vbCr _
   & Str(lTextboxWords) & " word(s)," & Str(lTextboxChars) & " characters" & vbCr & vbCr _
   & Str(ActiveDocument.Footnotes.Count) & " footnotes contain(s)" & vbCr _
   & Str(lFootnoteWords) & " word(s)," & Str(lFootnoteChars) & " characters" & vbCr & vbCr _
   & Str(ActiveDocument.Endnotes.Count) & " Endnotes contain(s)" & vbCr _
   & Str(lEndnoteWords) & " word(s)," & Str(lEndnoteChars) & " characters")
End Sub

7. Terakhir, klik tombol "Run".

Jika tidak ada kotak teks, catatan kaki atau catatan akhir, Anda akan menerima kotak pesan seperti ini:

Cukup klik "OK" untuk melanjutkan. Kemudian Anda akan melihat kotak lain, mencantumkan semua detail jumlah kata.

Dapatkan Alat Pemulihan

Karena Word dapat runtuh secara tiba-tiba, disarankan untuk mendapatkan produk perbaikan tingkat lanjut untuk melakukan pekerjaan perbaikan. Alat seperti itu bisa menjadi penghemat yang bagus untuk Word yang rusak. Karena itu, manfaatkan waktu untuk mendapatkannya sesegera mungkin.

Pengantar Penulis:

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