Word 문서에서 강조 표시된 단어 수를 세는 2 가지 빠른 방법

이 기사에서는 Word 문서에서 강조 표시된 단어 수를 계산하는 두 가지 빠른 방법을 제공합니다.

때때로, 우리는 다른 색으로 다른 주제의 텍스트를 강조 할 것입니다. 강조 표시된 단어의 총 수를 계산하려면 Word에서이 작업을 직접 수행 할 수있는 방법이 없다는 것을 이해해야합니다. 그러나 해결 방법으로 다른 경우에 다음 방법 중 하나를 선택할 수 있습니다.

방법 1 : 다른 색으로 강조 표시된 모든 단어 계산

1. 먼저 "Alt + F11"을 눌러 Word에서 VBA 편집기를 엽니 다.
2. 다음으로 왼쪽 열에서 "일반"을 클릭합니다.
3. 그런 다음 메뉴 표시 줄에서 "삽입"을 클릭합니다.
4. 드롭 다운 메뉴에서 "Module"을 선택합니다.

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. 다음으로“Pick Highlight Color”상자에서 색상 값을 입력하고“OK”를 클릭합니다. 예를 들어 여기에 노란색을 나타내는 "7"을 입력합니다.
4. 이제 결과는 다음과 같습니다.

문서 손상 문제를 현명하게 해결

이제 다음과 만날 수 있습니다. 단어 손상. 최악의 경우 문서가 손상 될 수 있다는 것입니다. Word의 기본 제공 기능을 활용하여 문서를 복구 할 수 있지만, 복구 도구를 사용하여 최소한의 시간에 데이터를 검색하는 또 다른 영리한 선택에 의지 할 수도 있습니다.

저자 소개 :

Vera Chen은 데이터 복구 전문가입니다. DataNumen, Inc.는 다음과 같은 데이터 복구 기술 분야의 세계적 리더입니다. 손상된 xls pdf 수리 소프트웨어 제품. 자세한 내용은 WWW.datanumen.COM