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

Словесные решения 28 сентября, 2025
Поделись сейчас:

В этой статье мы хотели бы предложить вам 2 быстрых способа подсчета количества выделенных слов в документе Word.

Подсчитайте количество выделенных слов в документе Word

Время от времени мы выделяли тексты на разные темы разными цветами. Если вы хотите подсчитать общее количество выделенных слов, вы должны понимать, что в Word нет прямого способа выполнить эту задачу. Но в качестве обходного пути вы можете выбрать один из следующих методов в разных случаях.

Способ 1: подсчитать все выделенные слова разными цветами

  1. Прежде всего, нажмите «Alt + F11», чтобы открыть редактор VBA в Word.
  2. Затем нажмите «Обычный» в левом столбце.
  3. Затем нажмите «Вставить» в строке меню.
  4. В выпадающем меню выберите «Модуль».

Вставить новый модуль

  1. И дважды щелкните новый модуль, чтобы открыть его.
  2. Вставьте туда следующий макрос:
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
  1. И последнее, но не менее важное: нажмите кнопку «Выполнить» или нажмите «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
  1. Затем в поле «Выбрать цвет выделения» введите значение цвета и нажмите «ОК». Например, здесь мы вводим «7», обозначая желтый цвет.Введите значение цвета и нажмите «ОК».
  2. Теперь вот результат:Подсчитайте выделенные слова желтым цветом

Умное решение проблемы с повреждением документов

Время от времени вы можете столкнуться с Повреждение слова. Хуже всего то, что это может привести к повреждению документов. Хотя вы можете использовать встроенную функцию Word для восстановления вашего документа, вы также можете прибегнуть к другому разумному выбору — получить инструмент восстановления для восстановления ваших данных в кратчайшие сроки.

Об авторе:

Вера Чен — эксперт по восстановлению данных в DataNumen, Inc., которая является мировым лидером в области технологий восстановления данных, включая поврежденный xls и pdf ремонт программных продуктов. Для получения дополнительной информации посетите www.datanumen.com

Поделись сейчас:

Комментарии закрыты.