Word sənədinizdə vurğulanan sözlərin sayını hesablamaq üçün 2 sürətli üsul

Bu yazıda sizə Word sənədinizdə vurğulanan sözlərin sayını hesablamaq üçün 2 sürətli üsul təklif etmək istərdik.

Zaman-zaman müxtəlif mövzularda olan mətnləri fərqli rənglərlə vurğulayardıq. Vurğulanmış sözlərin ümumi sayını hesablamaq istəyirsinizsə, Word-də bu tapşırığı yerinə yetirmək üçün birbaşa yol olmadığını başa düşməlisiniz. Ancaq həll yolu olaraq, müxtəlif hallarda aşağıdakı üsullardan birini seçə bilərsiniz.

Metod 1: Bütün Vurğulanmış Sözləri Fərqli Rənglərdə Sayın

1. Word-də VBA redaktorunu açmaq üçün ilk növbədə “Alt+ F11” düyməsini sıxın.
2. Sonra sol sütunda "Normal" düyməsini basın.
3. Sonra menyu çubuğunda "Daxil et" düyməsini basın.
4. Açılan menyuda "Modul" seçin.

5. Və onu açmaq üçün yeni modulun üzərinə iki dəfə klikləyin.
6. Aşağıdakı makronu oraya yapışdırın:

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. Sonuncu, lakin ən azı, kodları yerinə yetirmək üçün "Çalış" düyməsini və ya "F5" düyməsini basın.

Aşağıdakı kimi bir mesaj qutusu görünəcək:

Metod 2: Bütün vurğulanmış sözləri müəyyən bir rəngdə sayın

Yuxarıda qeyd etdiyimiz kimi, Word sənədinizə tətbiq olunan bir neçə vurğulama rəngi ola bilər. Buna görə də, müəyyən bir rəngdə vurğulanan sözlərin söz sayını əldə etmək bir növ çətindir. Xoşbəxtlikdən, bəzi fərdi tapşırıqları yerinə yetirmək üçün həmişə makroya etibar edə bilərik.

1. Əvvəlcə makronu quraşdırmaq və işə salmaq üçün 1-ci üsuldakı addımları təkrarlayın.
2. Sonra bu makro ilə əvəz edin:

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. Sonrakı "Vurğulanan Rəngi ​​Seçin" qutusuna rəng dəyərini daxil edin və "OK" düyməsini basın. Məsələn, burada sarı rəngi təmsil edən “7” daxil edirik.
4. İndi nəticə budur:

Sənədin Korrupsiya Problemini Ağılla Həll edin

İndi və sonra ilə qarşılaşa bilərsiniz Sözün zədələnməsi. Ən pisi odur ki, sənədlərin pozulmasına gətirib çıxara bilər. Sənədinizi bərpa etmək üçün Word-də quraşdırılmış xüsusiyyətdən istifadə edə bilsəniz də, məlumatlarınızı ən qısa müddətdə bərpa etmək üçün başqa bir ağıllı seçimə müraciət edə bilərsiniz.

Müəllif Giriş:

Vera Çen məlumatların bərpası üzrə mütəxəssisdir DataNumendaxil olmaqla məlumatların bərpası texnologiyaları üzrə dünya lideri olan , Inc xarab xls və pdf proqram məhsullarının təmiri. Ətraflı məlumat üçün ziyarət edin www.datanumen.com