2 Cara Pantas untuk Menghitung Bilangan Kata Sorotan dalam Dokumen Word Anda

Dalam artikel ini, kami ingin menawarkan 2 cara cepat untuk menghitung jumlah kata yang disorot dalam dokumen Word anda.

Dari semasa ke semasa, kami akan menyoroti teks dalam topik yang berbeza dengan warna yang berbeza. Sekiranya anda ingin mengira jumlah kata yang disorot, anda mesti memahami bahawa tidak ada cara langsung di Word untuk melakukan tugas ini. Tetapi sebagai jalan penyelesaian, anda boleh memilih salah satu kaedah berikut dalam kes yang berbeza.

Kaedah 1: Hitung Semua Kata yang Diserlahkan dalam Warna Yang Berbeza

1. Pertama sekali, tekan "Alt + F11" untuk membuka editor VBA di Word.
2. Klik seterusnya "Normal" di lajur kiri.
3. Kemudian klik "Masukkan" pada bar menu.
4. Pada menu lungsur turun, pilih "Modul".

5. Dan klik dua kali pada modul baru untuk membukanya.
6. Tampal makro berikut di sana:

Sub CountAllWordsInHighlight()
    Dim objWord As Range
    Dim nHighlightedWords As Long
    Dim objDoc As Document
 
    Application.ScreenUpdating = False
    Set objDoc = ActiveDocument
 
    With Selection
         .HomeKey Unit:=wdStory
         With Selection.Find
              .Highlight = True
 
              Do While .Execute
                       nHighlightedWords = nHighlightedWords + Selection.Range.ComputeStatistics(wdStatisticWords)
                       Selection.Collapse wdCollapseEnd
              Loop
         End With
    End With
 
    MsgBox ("The total number of highlighted words is " & nHighlightedWords & " .")
 
    Application.ScreenUpdating = True
    Set objDoc = Nothing
End Sub

7. Akhir sekali, klik butang "Jalankan" atau tekan "F5" untuk melaksanakan kod.

Akan ada kotak mesej yang muncul, seperti di bawah:

Kaedah 2: Hitung Semua Kata Sorotan dalam Warna Tertentu

Seperti yang kami sebutkan di atas, ada beberapa warna sorotan yang diterapkan pada dokumen Word Anda. Oleh itu, agak sukar untuk mendapatkan jumlah perkataan yang diserlahkan dalam warna tertentu. Nasib baik, kita selalu bergantung pada makro untuk melakukan beberapa tugas yang disesuaikan.

1. Pertama sekali, ulangi langkah dalam kaedah 1 untuk memasang dan menjalankan makro.
2. Kemudian gantikan dengan makro ini:

Sub CountWordsInASpecificHighlightColor()
    Dim objDoc As Document
    Dim objWord As Object
    Dim nHighlightedWords As Long
    Dim strHighlightColor As String
 
    Application.ScreenUpdating = False
    Set objDoc = ActiveDocument
    nHighlightedWords = 0
    strHighlightColor = InputBox("Choose a Highlight colour (enter the value):" & vbNewLine & _
      vbTab & "Auto" & vbTab & vbTab & "0" & vbNewLine & _
      vbTab & "Black" & vbTab & vbTab & "1" & vbNewLine & _
      vbTab & "Blue" & vbTab & vbTab & "2" & vbNewLine & _
      vbTab & "BrightGreen" & vbTab & "4" & vbNewLine & _
      vbTab & "DarkBlue" & vbTab & vbTab & "9" & vbNewLine & _
      vbTab & "DarkRed" & vbTab & vbTab & "13" & vbNewLine & _
      vbTab & "DarkYellow" & vbTab & "14" & vbNewLine & _
      vbTab & "Gray25" & vbTab & vbTab & "16" & vbNewLine & _
      vbTab & "Gray50" & vbTab & vbTab & "15" & vbNewLine & _
      vbTab & "Green" & vbTab & vbTab & "11" & vbNewLine & _
      vbTab & "Pink" & vbTab & vbTab & "5" & vbNewLine & _
      vbTab & "Red" & vbTab & vbTab & "6" & vbNewLine & _
      vbTab & "Teal" & vbTab & vbTab & "10" & vbNewLine & _
      vbTab & "Turquoise" & vbTab & "3" & vbNewLine & _
      vbTab & "Violet" & vbTab & vbTab & "12" & vbNewLine & _
      vbTab & "White" & vbTab & vbTab & "8" & vbNewLine & _
      vbTab & "Yellow" & vbTab & vbTab & "7", "Pick Highlight Color")
 
    For Each objWord In objDoc.Words
        If objWord.HighlightColorIndex = strHighlightColor Then
           nHighlightedWords = nHighlightedWords + 1
        End If
    Next objWord
 
    MsgBox ("The number of highlighted words is " & nHighlightedWords & " .")
 
    Application.ScreenUpdating = True
    Set objDoc = Nothing
End Sub

3. Selanjutnya dalam kotak "Pilih Warna Sorotan", masukkan nilai warna dan klik "OK". Sebagai contoh, di sini kita memasukkan "7", mewakili warna kuning.
4. Inilah hasilnya:

Selesaikan Masalah Rasuah Dokumen dengan bijak

Sekarang dan seterusnya, anda boleh bertemu dengan Kerosakan perkataan. Yang paling teruk ialah ia boleh menyebabkan dokumen rosak. Walaupun anda dapat menggunakan fitur bawaan di Word untuk memulihkan dokumen anda, anda juga dapat menggunakan pilihan lain yang bijak iaitu dengan mendapatkan alat pembaikan untuk mengambil data anda dalam waktu yang paling singkat.

Pengenalan Pengarang:

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