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. สุดท้าย แต่ไม่ท้ายสุดให้คลิกปุ่ม“ 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. ถัดไปในช่อง“ เลือกสีไฮไลต์” ป้อนค่าสีแล้วคลิก“ ตกลง” ตัวอย่างเช่นที่นี่เราป้อน“ 7” แทนสีเหลือง
4. นี่คือผลลัพธ์:

แก้ไขปัญหาการทุจริตของเอกสารอย่างชาญฉลาด

ตอนนี้คุณสามารถพบกับ ความเสียหายของคำ. ที่แย่ที่สุดคืออาจทำให้เอกสารเสียหายได้ ในขณะที่คุณสามารถใช้คุณสมบัติในตัวใน Word เพื่อกู้คืนเอกสารของคุณได้ แต่คุณยังสามารถใช้ทางเลือกที่ชาญฉลาดอีกทางหนึ่งนั่นคือการได้รับเครื่องมือซ่อมแซมเพื่อดึงข้อมูลของคุณโดยใช้เวลาน้อยที่สุด

บทนำผู้เขียน:

Vera Chen เป็นผู้เชี่ยวชาญด้านการกู้คืนข้อมูลใน DataNumen, Inc. ซึ่งเป็นผู้นำระดับโลกด้านเทคโนโลยีการกู้คืนข้อมูล ได้แก่ xls ที่เสียหาย และ pdf ซ่อมแซมผลิตภัณฑ์ซอฟต์แวร์ ดูข้อมูลเพิ่มเติมได้ที่ wwwdatanumenด้วย.