2種快速計算Word文檔中突出顯示的單詞數的方法

在本文中，我們想為您提供2種快速方法來計算Word文檔中突出顯示的單詞的數量。

我們會不時地用不同的顏色突出顯示不同主題的文本。 如果要計算突出顯示的單詞的總數，則必須了解Word中沒有直接方法可以執行此任務。 但是，作為解決方法，您可以選擇在不同情況下選擇以下任一方法。

方法1：計算所有用不同顏色突出顯示的單詞

1. 首先，按“ Alt + F11”以在Word中打開VBA編輯器。
2. 接下來，單擊左側列上的“普通”。
3. 然後在菜單欄上單擊“插入”。
4. 在下拉菜單上，選擇“模塊”。

5. 然後雙擊新模塊將其打開。
6. 在其中粘貼以下宏：

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. 最後但並非最不重要的一點是，單擊“運行”按鈕或單擊“ F5”以執行代碼。

將顯示一個消息框，如下所示：

方法2：計算特定顏色的所有突出顯示的單詞

如上所述，可以將幾種突出顯示顏色應用於您的Word文檔。 因此，很難獲得特定顏色的突出顯示單詞的單詞計數。 幸運的是，我們總是可以依靠宏來執行一些自定義任務。

1. 首先，重複方法1中的步驟以安裝和運行宏。
2. 然後替換為該宏：

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. 接下來，在“選擇突出顯示顏色”框中，輸入顏色值，然後單擊“確定”。 例如，在這裡我們輸入“ 7”，代表黃色。
4. 現在是結果：

巧妙地解決文檔損壞問題

有時，您會遇到 字損。 最糟糕的是它可能導致文檔損壞。 儘管您可以利用Word中的內置功能來恢復文檔，但是您也可以採用另一種明智的選擇，即選擇一種修復工具，以在最短的時間內檢索數據。

作者簡介：

陳薇薇（Vera Chen）是 DataNumen，Inc.是數據恢復技術的全球領導者，包括 損壞的XLS 以及 pdf 維修軟件產品。 欲了解更多信息，請訪問 萬維網。datanumen.COM