2 швидкі способи підрахувати кількість виділених слів у вашому документі Word

У цій статті ми хотіли б запропонувати вам 2 швидкі способи підрахунку кількості виділених слів у вашому документі Word.

Час від часу ми виділяли тексти на різні теми різними кольорами. Якщо ви хочете порахувати загальну кількість виділених слів, ви повинні розуміти, що в Word немає прямого способу виконати це завдання. Але в якості обхідних шляхів ви можете вибрати один із наведених нижче способів у різних випадках.

Спосіб 1: Підрахуйте всі виділені слова різними кольорами

1. Перш за все, натисніть “Alt + F11”, щоб відкрити редактор VBA у програмі Word.
2. Потім натисніть "Звичайний" у лівій колонці.
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. І останнє, але не менш важливе, натисніть кнопку «Виконати» або натисніть «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. Далі у полі «Виберіть колір виділення» введіть значення кольору та натисніть «OK». Наприклад, тут ми вводимо "7", представляючи жовтий колір.
4. Тепер ось результат:

Розумно вирішити проблему з корупцією документів

Час від часу ви можете зіткнутися з Пошкодження словом. Найгірше, що це може призвести до непрацюючих документів. Незважаючи на те, що ви можете використовувати вбудовану функцію в Word для відновлення документа, ви також можете вдатися до іншого розумного вибору, який полягає в тому, щоб отримати інструмент відновлення для отримання ваших даних за найменший час.

Вступ автора:

Віра Чень є експертом з відновлення даних у DataNumen, Inc., яка є світовим лідером у галузі технологій відновлення даних, в тому числі пошкоджений XLS та pdf ремонт програмних продуктів. Для отримання додаткової інформації відвідайте WWW.datanumen.com