Үгийн баримт бичигт тодруулсан үгсийн тоог тоолох 2 хурдан арга

Энэ нийтлэлд бид танд Word баримт бичигт тодруулсан үгсийн тоог тоолох 2 хурдан аргыг санал болгож байна.

Бид үе үе янз бүрийн сэдвээр янз бүрийн өнгөөр ​​бичсэн текстүүдийг тодруулдаг байв. Хэрэв та тодруулсан үгсийн нийт тоог тоолохыг хүсч байгаа бол Word дээр энэ ажлыг хийх шууд арга байхгүй гэдгийг ойлгох ёстой. Гэхдээ шийдэлд хүрэхийн тулд та дараахь аргуудын аль нэгийг нь янз бүрийн тохиолдолд сонгож болно.

Арга 1: Бүх тодруулсан үгсийг өөр өөр өнгөөр ​​тоол

1. Юуны өмнө Word дээр VBA засварлагчийг нээхийн тулд “Alt + F11” товчийг дарна уу.
2. Дараа нь зүүн баганад "Normal" дээр дарна уу.
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. Хамгийн сүүлд гэхдээ "Run" товчийг дарж эсвэл "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. Дараа нь "Pick Highlight Color" нүдэнд өнгөний утгыг оруулаад "OK" дээр дарна уу. Жишээлбэл, энд бид шаргал өнгийг төлөөлж “7” орууллаа.
4. Одоо үр дүн энд байна:

Баримт бичгийн авлигын асуудлыг ухаалгаар шийдвэрлэх

Одоо, дараа нь та тулгарч болно Үгийн эвдрэл. Үүний хамгийн муу нь бичиг баримтыг эвдэхэд хүргэж болзошгүй юм. Баримтаа сэргээхэд Word дээр суурилуулсан функцийг ашиглахын зэрэгцээ өөр нэг ухаалаг сонголтыг ашиглаж, өгөгдлийг хамгийн богино хугацаанд сэргээн засварлах хэрэгсэл авах боломжтой болно.

Зохиогчийн танилцуулга:

Вера Чен бол мэдээлэл сэргээх мэргэжилтэн юм DataNumen, Үүнд мэдээлэл сэргээх технологиор дэлхийд тэргүүлэгч, Inc. гэмтсэн xls болон pdf програм хангамжийн бүтээгдэхүүнийг засах. Дэлгэрэнгүй мэдээллийг авна уу WWW.datanumen.com