2 modi rapidi per contare il numero di parole evidenziate nel documento di Word

In questo articolo, vorremmo offrirti 2 modi rapidi per contare il numero di parole evidenziate nel tuo documento Word.

Di volta in volta, evidenziavamo testi in argomenti diversi con colori diversi. Nel caso in cui desideri contare il numero totale di parole evidenziate, devi capire che non esiste un modo diretto in Word per eseguire questa attività. Ma come soluzioni alternative, puoi scegliere di scegliere uno dei seguenti metodi in diversi casi.

Metodo 1: contare tutte le parole evidenziate in diversi colori

1. Prima di tutto, premi "Alt + F11" per aprire l'editor VBA in Word.
2. Quindi fai clic su "Normale" nella colonna di sinistra.
3. Quindi fare clic su "Inserisci" nella barra dei menu.
4. Nel menu a discesa, scegli "Modulo".

5. E fai doppio clic sul nuovo modulo per aprirlo.
6. Incolla lì la seguente macro:

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. Ultimo ma non meno importante, fai clic sul pulsante "Esegui" o premi "F5" per eseguire i codici.

Verrà visualizzata una finestra di messaggio, come di seguito:

Metodo 2: contare tutte le parole evidenziate in un colore specifico

Come accennato in precedenza, possono essere applicati diversi colori di evidenziazione al documento di Word. Pertanto, è piuttosto difficile ottenere il conteggio delle parole delle parole evidenziate in un particolare colore. Fortunatamente, potremmo sempre fare affidamento sulla macro per svolgere attività personalizzate.

1. Prima di tutto, ripeti i passaggi del metodo 1 per installare ed eseguire una macro.
2. Quindi sostituisci con questa macro:

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. Avanti nella casella "Scegli colore evidenziatore", inserisci un valore di colore e fai clic su "OK". Ad esempio, qui inseriamo "7", che rappresenta il colore giallo.
4. Ora ecco il risultato:

Risolvi in ​​modo intelligente il problema della corruzione dei documenti

Di tanto in tanto, puoi incontrare Danno di parole. La cosa peggiore è che può portare a documenti rotti. Mentre puoi utilizzare la funzionalità integrata in Word per recuperare il tuo documento, puoi anche ricorrere a un'altra scelta intelligente che consiste nell'ottenere uno strumento di riparazione per recuperare i tuoi dati nel minor tempo possibile.

Introduzione dell'autore:

Vera Chen è un'esperta di recupero dati in DataNumen, Inc., che è il leader mondiale nelle tecnologie di recupero dati, tra cui xls corrotto and pdf riparare prodotti software. Per maggiori informazioni visita www.datanumen.com