2 schnelle Möglichkeiten, um die Anzahl der hervorgehobenen Wörter in Ihrem Word-Dokument zu zählen

In diesem Artikel möchten wir Ihnen zwei schnelle Möglichkeiten anbieten, um die Anzahl der hervorgehobenen Wörter in Ihrem Word-Dokument zu zählen.

Von Zeit zu Zeit haben wir Texte in verschiedenen Themen mit verschiedenen Farben hervorgehoben. Wenn Sie die Gesamtzahl der hervorgehobenen Wörter zählen möchten, müssen Sie verstehen, dass es in Word keine direkte Möglichkeit gibt, diese Aufgabe auszuführen. Als Problemumgehung können Sie jedoch in verschiedenen Fällen eine der folgenden Methoden auswählen.

Methode 1: Zählen Sie alle hervorgehobenen Wörter in verschiedenen Farben

1. Drücken Sie zunächst „Alt + F11“, um den VBA-Editor in Word zu öffnen.
2. Klicken Sie anschließend in der linken Spalte auf "Normal".
3. Klicken Sie dann in der Menüleiste auf "Einfügen".
4. Wählen Sie im Dropdown-Menü "Modul".

5. Und doppelklicken Sie auf das neue Modul, um es zu öffnen.
6. Fügen Sie dort das folgende Makro ein:

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. Last but not least klicken Sie auf die Schaltfläche "Ausführen" oder drücken Sie "F5", um die Codes auszuführen.

Es wird ein Meldungsfeld angezeigt, wie unten:

Methode 2: Zählen Sie alle hervorgehobenen Wörter in einer bestimmten Farbe

Wie oben erwähnt, können auf Ihr Word-Dokument mehrere Hervorhebungsfarben angewendet werden. Daher ist es schwierig, die Wortanzahl der hervorgehobenen Wörter in einer bestimmten Farbe zu ermitteln. Glücklicherweise konnten wir uns immer auf Makros verlassen, um eine benutzerdefinierte Aufgabe zu erledigen.

1. Wiederholen Sie zunächst die Schritte in Methode 1, um ein Makro zu installieren und auszuführen.
2. Dann ersetzen Sie durch dieses Makro:

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. Geben Sie als Nächstes im Feld „Markierungsfarbe auswählen“ einen Farbwert ein und klicken Sie auf „OK“. Zum Beispiel geben wir hier "7" ein, was die gelbe Farbe darstellt.
4. Hier ist das Ergebnis:

Lösen Sie das Problem der Dokumentbeschädigung intelligent

Ab und zu können Sie begegnen Wortschaden. Das Schlimmste ist, dass es zu fehlerhaften Dokumenten führen kann. Während Sie die in Word integrierte Funktion zum Wiederherstellen Ihres Dokuments verwenden können, können Sie auch auf eine andere clevere Option zurückgreifen, nämlich ein Reparaturwerkzeug zu erhalten, mit dem Sie Ihre Daten in kürzester Zeit abrufen können.

Einführung des Autors:

Vera Chen ist eine Datenrettungsexpertin in DataNumen, Inc., das weltweit führend bei Datenwiederherstellungstechnologien ist, einschließlich beschädigte xls und pdf Reparatur von Softwareprodukten. Für weitere Informationen besuchen Sie www.datanumen.com €XNUMX