3 Kaedah Mengira Bilangan Kata untuk Bahagian dalam Dokumen Word Anda

Dalam artikel ini, akan ada 3 kaedah untuk anda menghitung jumlah kata untuk bahagian dalam dokumen Word anda.

Mendapatkan jumlah perkataan dokumen dengan mudah. Tetapi tidak ada fungsi di Word untuk memberitahu kita jumlah kata bahagian. Dan kerana kita lebih suka meletakkan isi topik yang sama dalam satu bahagian, seperti mengatur bab semasa menulis buku, kita perlu membuat penyelesaian untuk mendapatkan jumlah bahagian.   Berikut adalah 3 pendekatan yang memerlukan anda menjalankan makro.

Kaedah 1: Hitung Bilangan Perkataan untuk Bahagian Semasa

1. Pertama sekali, letakkan kursor di dalam bahagian sasaran.
2. Maka anda perlu membuka editor VBA di Word. Klik "Pembangun" dan kemudian perintah "Visual Basic". Sekiranya anda tidak dapat menemui "Pengembang" di Pita, kemudian tekan "Alt + F11" sebagai gantinya.
3. Klik seterusnya projek "Normal" di lajur kiri.
4. Kemudian klik tab "Masukkan".
5. Pada menu lungsur turun, pilih "Modul".
6. Buka modul baru dengan klik dua kali.
7. Sekarang di modul terbuka, tampal kod berikut:

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

8. Terakhir, klik "Jalankan" atau tekan "F5" untuk melaksanakan kod.

Anda akan menerima kotak mesej, yang menunjukkan jumlah bahagian semasa, seperti di bawah:

Kaedah 2: Hitung Bilangan Perkataan untuk Bahagian Tertentu

Katakan anda telah mengerjakan buku dan menetapkan setiap bab sebagai bahagian individu. Kemudian untuk mengetahui berapa banyak perkataan yang telah anda tulis dalam satu bab, anda boleh menggunakan kaedah ini.

1. Ikuti langkah di atas untuk memasang dan menjalankan makro.
2. Cukup ganti makro dengan yang berikut:

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. Dalam kotak "Masukkan Nombor Bahagian", masukkan nombor bahagian dan klik "OK" untuk melanjutkan.

Hasilnya ditunjukkan pada kotak mesej.

Kaedah 3: Hitung Bilangan Perkataan untuk Semua Bahagian dalam Dokumen

Seperti yang disarankan oleh sari kata, dengan cara ini anda akan mendapat jumlah perkataan setiap bahagian dalam dokumen dan menyenaraikannya pada kotak mesej.

1. Pertama sekali, buka dokumen sasaran.
2. Namun, anda perlu mengulangi langkah dalam kaedah 1 untuk memasang 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

Inilah kemungkinan hasilnya:

Simpan Data Berharga

Semasa berurusan dengan semua jenis dokumen, anda harus ingat keselamatannya. Oleh kerana anda tidak pernah dapat mengetahui kapan kehilangan data seterusnya akan berlaku, disarankan untuk membuat sandaran fail penting. Selain itu, selalu bagus untuk mendapatkan alat yang dapat pulih doc, sekiranya ada.

Pengenalan Pengarang:

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