จะค้นหาและแทนที่คำหลายคำพร้อมกันในเอกสาร Word ได้อย่างไร?

Word มีฟังก์ชันค้นหาและแทนที่เพื่อค้นหาอินสแตนซ์ทั้งหมดของคำหรือวลีและแทนที่ด้วยคำใหม่ในเวลาเดียวกัน แต่ถ้าคุณต้องการค้นหาและแทนที่คำต่างๆพร้อมกันฟังก์ชัน build-in นี้ไม่สามารถช่วยได้ ในบทความนี้เรากำลังพูดถึงวิธี VBA เพื่อค้นหาและแทนที่คำที่แตกต่างกันหลายคำในเวลาเดียวกันในเอกสาร Word

ค้นหาและแทนที่คำหลายคำในเวลาเดียวกันใน Word ด้วยรหัส VBA
ค้นหาและแทนที่คำหลายคำพร้อมกันใน Word ได้อย่างง่ายดายด้วยคุณสมบัติที่น่าทึ่ง

ค้นหาและแทนที่คำหลายคำในเวลาเดียวกันใน Word ด้วยรหัส VBA

โปรดทำดังนี้เพื่อค้นหาและแทนที่คำหลายคำในเวลาเดียวกันในเอกสาร Word

1. เปิดเอกสาร Word ที่คุณต้องการค้นหาและแทนที่คำหลายคำพร้อมกันจากนั้นกดปุ่ม อื่น ๆ + F11 คีย์เพื่อเปิด Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง

2 ใน Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่างคลิก สิ่งที่ใส่เข้าไป > โมดูล. จากนั้นคัดลอกโค้ด VBA ด้านล่างลงในหน้าต่างโมดูล

รหัส VBA: ค้นหาและแทนที่คำหลายคำพร้อมกันใน Word

Sub FindAndReplaceMultiItems()
'Update by ExtendOffice 2018/10/25
    Dim xFind As String
    Dim xReplace As String
    Dim xFindArr, xReplaceArr
    Dim I As Long
    Application.ScreenUpdating = False
    xFind = InputBox("Enter items to be found here,seperated by comma: ", "Kutools for Word")
    xReplace = InputBox("Enter new items here, seperated by comma: ", "Kutools for Word")
    xFindArr = Split(xFind, ",")
    xReplaceArr = Split(xReplace, ",")
    If UBound(xFindArr) <> UBound(xReplaceArr) Then
        MsgBox "Find and replace characters must be equal.", vbInformation, "Kutools for Word"
        Exit Sub
    End If
    For I = 0 To UBound(xFindArr)
        Selection.HomeKey Unit:=wdStory
        With Selection.Find
            .ClearFormatting
            .Replacement.ClearFormatting
            .Text = xFindArr(I)
            .Replacement.Text = xReplaceArr(I)
            .Format = False
            .MatchWholeWord = False
        End With
        Selection.Find.Execute Replace:=wdReplaceAll
    Next
    Application.ScreenUpdating = True
End Sub

3 กด F5 กุญแจสำคัญในการเรียกใช้รหัส

4. ในครั้งแรก Kutools for Word กล่องโต้ตอบป้อนคำหลายคำที่คุณจะพบและแทนที่ลงในกล่องข้อความและคั่นด้วยลูกน้ำจากนั้นคลิก OK ปุ่ม. ดูภาพหน้าจอ:

5. ในวินาทีที่ Kutools for Word กล่องโต้ตอบป้อนคำใหม่ที่คุณจะแทนที่ (คำเหล่านี้ต้องคั่นด้วยเครื่องหมายจุลภาค) จากนั้นคลิก OK ปุ่ม

หมายเหตุ ในกรณีนี้ทั้งหมด “ KTE” ในเอกสารนี้จะถูกแทนที่ด้วย "ใหม่", และ “ KTO” และ “ KTW” จะถูกแทนที่ด้วย "ทดสอบ" และ "เสร็จสิ้น". โปรดเปลี่ยนตามความต้องการของคุณ

ค้นหาและแทนที่คำหลายคำพร้อมกันใน Word ได้อย่างง่ายดายด้วยคุณสมบัติที่น่าทึ่ง

1. เปิดโปรแกรม Microsoft Word คลิก Kutools พลัส > ค้นหาแบทช์และแทนที่.

2 ใน ค้นหาแบทช์และแทนที่ หน้าต่างโปรดกำหนดค่าดังนี้

• 2.1 คลิกที่ไฟล์ ปุ่ม> เพิ่มไฟล์ or เพิ่มโฟลเดอร์ เพื่อเพิ่มเอกสารอย่างน้อยหนึ่งรายการซึ่งคุณจะค้นหาและแทนที่คำหลายคำ
  
• 2.2 คลิกปุ่ม เพิ่มแถว เพื่อแทรกช่องค้นหาและแทนที่ หากคุณต้องการค้นหาและแทนที่ข้อความที่แตกต่างกันสามข้อความในเวลาเดียวกันโปรดสร้างแถวสามแถว
• 2.3 ในแต่ละแถวป้อนคำที่มีอยู่ซึ่งคุณจะแทนที่ด้วยคำใหม่ใน หา จากนั้นป้อนคำใหม่ลงใน แทนที่ คอลัมน์.
• 2.4 ระบุไฟล์ ประเภทการสืบค้น สำหรับแต่ละแถว
• 2.5 ใน ค้นหาใน เลือกตำแหน่งที่จะใช้การค้นหาและแทนที่ ซึ่งรวมถึง เอกสารหลัก, ส่วนหัว และ ฟุตบอล ในส่วนนี้. คุณสามารถเลือกหนึ่งในสองรายการหรือทั้งหมดตามความต้องการของคุณ
• 2.6 คลิกที่ แทนที่ ปุ่มเพื่อเริ่มการทำงาน ดูภาพหน้าจอ:

จากนั้นคำเฉพาะจะถูกแทนที่ในเอกสารที่เลือกพร้อมกัน

เคล็ดลับ: คุณสามารถเน้นผลลัพธ์ด้วยสีพื้นหลังโดยระบุสีที่ต้องการในไฟล์ เน้น คอลัมน์สำหรับแถว

  หากคุณต้องการทดลองใช้ยูทิลิตีนี้ฟรี (60 วัน) กรุณาคลิกเพื่อดาวน์โหลดแล้วไปใช้การดำเนินการตามขั้นตอนข้างต้น

สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน

Kutools for Word - ยกระดับประสบการณ์คำศัพท์ของคุณด้วย Over 100 คุณสมบัติเด่น!

เจาะลึกคุณสมบัติเด่นด้านล่างหรือ คลิกที่นี่เพื่อสำรวจพลังทั้งหมดของ Kutools for Word.

📘 ความเชี่ยวชาญด้านเอกสาร: แยกหน้า  /  ผสานเอกสาร  /  ส่งออกตัวเลือกในรูปแบบต่างๆ (PDF/TXT/DOC/XLSX)  /  แบทช์แปลงเป็น PDF  /  ส่งออกเพจเป็นรูปภาพ  /  พิมพ์หลายไฟล์พร้อมกัน ...

✏ การแก้ไขเนื้อหา: ค้นหาแบทช์และแทนที่ ข้ามหลายไฟล์   /  ปรับขนาดรูปภาพทั้งหมด   /  ย้ายแถวและคอลัมน์ของตาราง  /  แปลงตารางเป็นข้อความ ...

🧹 ทำความสะอาดได้อย่างง่ายดาย: กวาดออกไป พื้นที่พิเศษ  /  แบ่งส่วน  /   ส่วนหัวทั้งหมด  /  กล่องข้อความ  /  เชื่อมโยงหลายมิติ  /  หากต้องการทราบเครื่องมือในการถอดเพิ่มเติม โปรดไปที่ Remove Group ของเรา

➕ ส่วนแทรกโฆษณา: สิ่งที่ใส่เข้าไป ตัวคั่นหลักพัน  /  กล่องกาเครื่องหมาย  /  ปุ่มวิทยุ  /  คิวอาร์โค้ด  /  บาร์โค้ด  /  ตารางเส้นทแยงมุม  /  คำอธิบายสมการ  /  คำบรรยายภาพ  /  คำบรรยายตาราง  /  รูปภาพหลายภาพ  /  ค้นพบเพิ่มเติมในกลุ่มแทรกของเรา

🔍 การเลือกที่แม่นยำ: ระบุหน้าเฉพาะ  /  ตาราง  /  รูปร่าง  /  หัวเรื่องย่อหน้า  /  นำทางอย่างง่ายดายโดยใช้กลุ่มที่เลือกของเรา

⭐ การปรับปรุงดาว: นำทางอย่างรวดเร็วไปยังสถานที่ใด ๆ  /  แทรกข้อความซ้ำอัตโนมัติ  /  สลับระหว่างหน้าต่างเอกสารได้อย่างราบรื่น  /  11 เครื่องมือการแปลง ...

แปลงงาน Word ของคุณด้วย Kutools 👉 ดาวน์โหลดพร้อมทดลองใช้ 30 วันทันที 🚀.

อ่านเพิ่มเติม       ดาวน์โหลดฟรี      การซื้อ