2 วิธีด่วนในการค้นหาหลายรายการในเอกสาร Word เดียวในเวลาเดียวกัน

แบ่งปันเลย:

ในบทความนี้ เราจะแสดง 2 วิธีง่ายๆ ในการค้นหาหลายรายการในเอกสาร Word เดียวกันพร้อมกัน

ใครก็ตามที่คุ้นเคยกับ Word จะต้องรู้จักตัวเลือก“ ค้นหาและแทนที่” เป็นอย่างดี ทำงานได้ดีเมื่อข้อความค้นหาเป็นสตริงที่ต่อเนื่องกัน แต่น่าเสียดายที่มันซับซ้อนเมื่อเราต้องการค้นหาคำแยกหลายคำในเวลาเดียวกัน และที่นั่นมีความต้องการอย่างมากในการกำหนดรายการคำหรือวลีในเอกสารเดียวในคราวเดียว ตัวอย่างเช่นหากคุณเป็นบรรณาธิการอาจมีคำสองสามคำที่ไม่ควรปรากฏในเอกสารใด ๆ ในกรณีนี้คุณจะต้องมีวิธีแก้ไขเพื่อระบุการเกิดขึ้นของคำเฉพาะบางคำ

มี 2 ​​วิธีแก้ไข:

วิธีที่ 1: นำเข้าคำไปยังพจนานุกรมที่ไม่รวม

เพิ่มคำหรือวลีจำนวนมากในพจนานุกรมที่ไม่รวมใน Word จากนั้นจะมีเส้นคลื่นสีแดงปรากฏใต้คำที่ตรงกันเพื่อตั้งค่าสถานะ

ขั้นตอนโดยละเอียดในการเพิ่มคำในพจนานุกรมยกเว้นอยู่ในบทความนี้: 4 เคล็ดลับที่เป็นประโยชน์สำหรับการสะกดคำและตัวตรวจสอบไวยากรณ์

วิธีที่ 2: ใช้ Word Macro

  1. อันดับแรกเลย ให้รวบรวมคำหรือวลีทั้งหมดที่คุณต้องการค้นหาไว้ในเอกสารเดียว โดยแต่ละคำหรือวลีควรอยู่ในย่อหน้าเดียว เราจะเรียกเอกสารนี้ว่า “เอกสารรายการ” จากนั้นบันทึกเอกสารรายการคำที่จะพบ
  2. ประการที่สองคลิกแท็บ "นักพัฒนา"
  3. จากนั้นคลิกที่“ Visual Basic” เพื่อเปิดตัวแก้ไข VBA อีกวิธีหนึ่งคือกด“ Alt + F11”คลิก "นักพัฒนา" -> คลิก "Visual Basic"
  4. จากนั้นคลิก "ปกติ" จากนั้นคลิกแท็บ "แทรก"
  5. และเลือก“ โมดูล” ในเมนูคลิก "Normal" -> คลิก "Insert" -> คลิก "Module"
  6. ดับเบิลคลิกที่โมดูลใหม่เพื่อเปิดพื้นที่แก้ไขและวางมาโครต่อไปนี้:
Sub FindMultiItemsInDoc()
  Dim objListDoc As Document
  Dim objTargetDoc As Document
  Dim objParaRange As Range, objFoundRange As Range
  Dim objParagraph As Paragraph
  Dim strFileName As String

  strFileName = InputBox("Enter the full name of the list document here:")
 
  Set objTargetDoc = ActiveDocument
  Set objListDoc = Documents.Open(strFileName)
  objTargetDoc.Activate
 
  For Each objParagraph In objListDoc.Paragraphs
    Set objParaRange = objParagraph.Range
    objParaRange.End = objParaRange.End - 1
 
      With Selection
        .HomeKey Unit:=wdStory
 
        '  Find target items.
        With Selection.Find
          .ClearFormatting
          .Text = objParaRange
          .MatchWholeWord = True
          .MatchCase = False
          .Execute
        End With
 
        '  Highlight the found items.
        Do While .Find.Found
          Set objFoundRange = Selection.Range
          objFoundRange.HighlightColorIndex = wdBrightGreen
          .Collapse wdCollapseEnd
          .Find.Execute
        Loop
      End With
  Next objParagraph
End Sub
  1. สุดท้ายคลิก“ เรียกใช้”วางรหัส -> คลิก "เรียกใช้"
  2. ตอนนี้มีกล่องแล้ว ป้อนเส้นทางและชื่อของเอกสารรายการที่คุณเพิ่งบันทึก จากนั้นคลิก“ ตกลง”ป้อนเส้นทางของเอกสารรายการ

สิ่งต่อไปที่คุณเห็นคือคำที่พบทั้งหมดอยู่ในการไฮไลต์เน้นคำที่พบ

รักษาความปลอดภัยเอกสาร Word ของคุณ

หนึ่งในมาตรการยอดนิยมที่สุดในการป้องกันเอกสาร Word ของคุณเสียหายคือการสำรองข้อมูล การสำรองข้อมูลจะช่วยให้คุณสบายใจได้เมื่อเกิดปัญหาขึ้น docx เสียหาย. ดังนั้นใช้เวลาสำรองไฟล์สำคัญของคุณตอนนี้

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

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

แบ่งปันเลย:

ความเห็นถูกปิด