วิธีการลบสีเน้นเฉพาะออกจากเอกสาร Word ของคุณ

ในบทความวันนี้ เรายินดีที่จะแบ่งปันวิธีการที่มีประสิทธิภาพในการลบสีไฮไลต์เฉพาะออกจากเอกสาร Word ของคุณ

ในบทความก่อนหน้านี้เราได้พูดถึงวิธีลบสีไฮไลต์ไปแล้ว สำหรับข้อมูลโดยละเอียดคุณสามารถอ้างถึงลิงค์นี้: 5 วิธีในการลบการเน้นหรือการแรเงาในเอกสาร Word ของคุณ

วันนี้มาดูอีกกรณีหนึ่งว่าเอกสารสามารถมีสีไฮไลต์หลายสีเพื่อให้เนื้อหาประเภทต่างๆโดดเด่น ในกรณีเช่นนี้วิธีปกติจะไม่สามารถจดจำสีไฮไลต์เฉพาะสีใดสีหนึ่งได้ ตามความเป็นจริงวิธีเดียวที่รวดเร็วและมีประสิทธิภาพคือการเรียกใช้แมโคร Word

ตอนนี้มาดูวิธีการร้อง

ลบสีไฮไลต์เฉพาะผ่าน VBA

1. อันดับแรก ให้คลิกแท็บ “นักพัฒนา” ในแถบ Ribbon
2. จากนั้นคลิก“ Visual Basic” เพื่อเรียกโปรแกรมแก้ไข VBA ใน Word และเนื่องจากคุณอาจยังไม่มีแท็บ“ นักพัฒนาซอฟต์แวร์” คุณสามารถกด“ Alt + F11” แทนได้
3. จากนั้นคลิกโครงการ "ปกติ" ที่คอลัมน์ด้านซ้ายในตัวแก้ไข
4. จากนั้นคลิกแท็บ“ แทรก” บนแถบเมนู
5. ในเมนูแบบเลื่อนลงเลือก "โมดูล"
6. ตอนนี้ดับเบิลคลิกที่โมดูลใหม่เพื่อเปิดพื้นที่การเข้ารหัส
7. วางมาโครต่อไปนี้บนโมดูล:

Sub RemoveSpecificHighlightColor()
  Dim objDoc As Document
  Dim objRange As Range
  Dim strHighlightColor As String
 
  Application.ScreenUpdating = False
 
  Set objDoc = ActiveDocument
  strHighlightColor = InputBox("Choose a Highlight colour to remove (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", "Highlight Color")
  With Selection
    .HomeKey Unit:=wdStory
    With Selection.Find
      .Highlight = True
 
      Do While .Execute
        If Selection.Range.HighlightColorIndex = strHighlightColor Then
          Set objRange = Selection.Range
          objRange.HighlightColorIndex = wdNoHighlight
          Selection.Collapse wdCollapseEnd
        End If
      Loop
    End With
  End With
 
  MsgBox ("The chosen highlight color has been removed in the document.")
 
  Application.ScreenUpdating = True
  Set objDoc = Nothing
End Sub

8. จากนั้นคลิกปุ่ม“ Run” หรือกด“ F5” เพื่อรันโค้ด
9. ถัดไปเป็นช่อง“ สีไฮไลต์” มีค่าสำหรับแต่ละสี เพียงแค่ป้อนค่าที่เกี่ยวข้องกับสีไฮไลต์ที่จะลบออก
10. สุดท้าย แต่ไม่ท้ายสุดให้คลิก“ ตกลง” เพื่อดำเนินการต่อ
11. เมื่อเสร็จแล้วคุณจะได้รับกล่องข้อความดังกล่าว:

นี่คือผลลัพธ์ที่เป็นไปได้:

รักษาข้อมูลของคุณให้ปลอดภัย

ความสมบูรณ์ของข้อมูลอาจถูกบุกรุกได้ง่าย ถึงเวลาแล้วที่จะต้องดำเนินการป้องกันก่อนที่จะสายเกินไป ตัวอย่างเช่น วิธีที่แนะนำมากที่สุดคือการสำรองไฟล์เป็นประจำ ตรวจสอบให้แน่ใจเสมอว่าคุณมีเวอร์ชันล่าสุดไว้ใช้งานหากเกิดเหตุการณ์ไม่คาดฝัน มิเช่นนั้นคุณจะต้องเริ่มต้นใหม่ทั้งหมด การกู้คืนคำ เพื่อรับข้อมูลกลับคืน

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

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