2 kiiret viisi oma Wordi dokumendis esiletõstetud sõnade loendamiseks

Selles artiklis soovime teile pakkuda 2 kiiret viisi, kuidas lugeda Wordi dokumendis esiletõstetud sõnade arvu.

Aeg-ajalt tõstaksime erinevatel teemadel eri värviga tekste esile. Kui soovite loendada esiletõstetud sõnade koguarvu, peate mõistma, et Wordis pole otsest viisi selle ülesande täitmiseks. Kuid lahendusena saate erinevatel juhtudel valida ühe järgmistest meetoditest.

1. meetod: loendage kõik eri värvi esiletõstetud sõnad

1. Kõigepealt vajutage Wordis VBA redaktori avamiseks klahvikombinatsiooni Alt + F11.
2. Järgmisena klõpsake vasakpoolses veerus "Tavaline".
3. Seejärel klõpsake menüüribal nuppu "Lisa".
4. Valige rippmenüüst "Moodul".

5. Ja uue mooduli avamiseks topeltklõpsake seda.
6. Kleepige sinna järgmine makro:

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. Viimaseks, kuid mitte vähem tähtsaks, klõpsake koodide käivitamiseks nuppu "Käivita" või "F5".

Kuvatakse sõnumikast, näiteks allpool:

2. meetod: loendage kõik konkreetses värvitoonis esiletõstetud sõnad

Nagu me eespool mainisime, võib teie Wordi dokumendile rakendada mitut esiletõstmise värvi. Seetõttu on teatud värvi esiletõstetud sõnade sõnade arvu tuvastamine keeruline. Õnneks saime mõne kohandatud ülesande täitmisel alati makrole toetuda.

1. Kõigepealt korrake makro installimiseks ja käivitamiseks meetodi 1 samme.
2. Seejärel asendage see makroga:

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. Järgmisena sisestage väljale „Pick Highlight Color” värvi väärtus ja klõpsake „OK”. Näiteks sisestame siia "7", mis tähistab kollast värvi.
4. Nüüd on tulemus siin:

Lahendage nutikalt dokumentide korruptsiooniprobleem

Aeg-ajalt võite kokku puutuda Sõnakahjustus. Halvim on see, et see võib kaasa tuua dokumentide purunemise. Kuigi saate oma dokumendi taastamiseks kasutada Wordi sisseehitatud funktsiooni, võite kasutada ka teist nutikat valikut, milleks on hankida parandustööriist, mis toodab teie andmed võimalikult lühikese aja jooksul.

Autori sissejuhatus:

Vera Chen on andmete taastamise ekspert DataNumen, Inc., mis on maailmas juhtiv andmete taastamise tehnoloogiate, sealhulgas rikutud xls ja pdf tarkvaratooted. Lisateabe saamiseks külastage www.datanumenCom