Note: The other languages of the website are Google-translated. Back to English
English English

จะค้นหาและแทนที่คำหลายคำพร้อมกันในเอกสาร 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 สำหรับ Word กล่องโต้ตอบป้อนคำหลายคำที่คุณจะพบและแทนที่ลงในกล่องข้อความและคั่นด้วยลูกน้ำจากนั้นคลิก OK ปุ่ม. ดูภาพหน้าจอ:

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

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


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

พื้นที่ ค้นหาแบทช์และแทนที่ คุณลักษณะของ Kutools สำหรับ Word สามารถช่วยในการค้นหาและแทนที่ข้อความต่างๆในเอกสารหรือหลาย ๆ เอกสารในเวลาเดียวกันได้อย่างง่ายดาย

ก่อนใช้คุณลักษณะนี้โปรดสละเวลาสักครู่เพื่อ ดาวน์โหลดและติดตั้งในตอนแรก.

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

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

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

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

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

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


เครื่องมือเพิ่มประสิทธิภาพคำแนะนำ

 

Kutools For Word - คุณสมบัติขั้นสูงมากกว่า 100 รายการสำหรับ Word ประหยัดเวลา 50%

  • การดำเนินการที่ซับซ้อนและซ้ำ ๆ สามารถดำเนินการครั้งเดียวในไม่กี่วินาที
  • แทรกภาพหลาย ๆ โฟลเดอร์ลงในเอกสาร Word พร้อมกัน
  • ผสานและรวมไฟล์ Word หลาย ๆ ไฟล์ในโฟลเดอร์เข้าด้วยกันตามลำดับที่คุณต้องการ
  • แยกเอกสารปัจจุบันออกเป็นเอกสารแยกตามหัวข้อตัวแบ่งส่วนหรือเกณฑ์อื่น ๆ
  • แปลงไฟล์ระหว่าง Doc และ Docx, Docx และ PDF ชุดเครื่องมือสำหรับการแปลงและการเลือกทั่วไปและอื่น ๆ ...
จัดเรียงความคิดเห็นโดย
ความคิดเห็น (21)
ยังไม่มีการให้คะแนน เป็นคนแรกที่ให้คะแนน!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
Toto jsem hledal, jen potřebuji pro hledaný text přidat nějaké รูปแบบ. จัก โทโฮ โดซานู?
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
นี้จะทำงานใน office Excel 365
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
มีวิธีใดที่จะทำให้กรณีนี้ละเอียดอ่อน?
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี ใช้งานได้ดีกับคำศัพท์ภาษาอังกฤษ ตอนนี้ฉันกำลังทำเอกสารที่ฉันแปลภาษาอังกฤษเป็นภาษาคุชราต ดังนั้น เมื่อฉันใช้สิ่งนี้ (Find English Words) และ (Replace with Gujarati words) มันจะเปลี่ยนไปแต่ดูเหมือนว่า "???" ไม่แสดงคำคุชราตแต่เพียงเครื่องหมายคำถาม? ความช่วยเหลือเพิ่มเติมหรือไม่? โปรด.
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี Shailesh กำลังเผชิญกับปัญหาเดียวกัน คุณพบวิธีแก้ปัญหาหรือไม่ ฉันกำลังพยายามหาวิธีเปลี่ยนจากภาษาจีนเป็นภาษาอังกฤษ
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
วิธีค้นหาและเลือกคำหลายคำพร้อมกัน
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี
หลังจากรันโค้ดแล้ว กล่องโต้ตอบ Kutools สำหรับ Excel จะปรากฏขึ้น โปรดป้อนคำหลักที่คุณจะพบและคั่นด้วยเครื่องหมายจุลภาค
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี เราจะแก้ไขมาโครนี้เพื่อให้มีคีย์เวิร์ดมากขึ้นได้อย่างไร ฉันมีคำศัพท์ประมาณ 170 คำที่อยากค้นหาและแทนที่
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี เจเอ็ม
หลังจากรันโค้ดแล้ว กล่องโต้ตอบ Kutools สำหรับ Excel จะปรากฏขึ้น โปรดป้อนคำหลักที่คุณจะพบและคั่นด้วยเครื่องหมายจุลภาค
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี! ก่อนอื่น ขอแสดงความยินดีกับงานของคุณ: มาโครนี้มีประโยชน์และน่าสนใจมาก! ฉันอยากให้คุณช่วยฉันอย่างหนึ่ง ฉันเป็นผู้ตรวจทานและต้องการให้การแทนที่นั้นสูงด้วยสีเขียวหรือสีแดง ฉันจะทำสิ่งนี้ได้อย่างไร มีสายรหัสที่ฉันสามารถใช้ได้หรือไม่?
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี คุณลักษณะ Batch Find and Replace ของ Kutools for Word สามารถแก้ปัญหาของคุณได้อย่างสมบูรณ์แบบ คุณสามารถลองใช้ได้
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
หลังจากกดปุ่มแทนที่ มันจะไปที่การแสดงตัวอย่างและจะไม่ดำเนินการใดๆ เพิ่มเติม
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี Ajs คำที่จำเป็นทั้งหมดได้รับการแทนที่เรียบร้อยแล้วในครั้งเดียวหลังจากกดปุ่มแทนที่ ไปที่แท็บแสดงตัวอย่างเพื่อช่วยให้คุณทราบจำนวนคำที่ถูกแทนที่ได้สำเร็จ หลังจากนั้น ปิดกล่องโต้ตอบ
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
จะเกิดอะไรขึ้นหากฉันพยายามแทนที่เครื่องหมายจุลภาค
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
รหัส VBA ไม่สามารถช่วยแทนที่เครื่องหมายจุลภาคได้ คุณสามารถใช้ Kutools เพื่อให้บรรลุ
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ในคำสั่งแรก (ค้นหาและแทนที่คำหลายคำพร้อมกันใน Word ด้วยรหัส VBA) จะไม่พบกรณีที่คำที่จะแทนที่อยู่ตรงกลางของคำ (เช่น .com ต่อจากชื่อเว็บไซต์) . สามารถแก้ไขได้หรือไม่
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ขอบคุณสำหรับโครงการ คุณช่วยทำให้เป็นวิธีที่เราสามารถแทนที่ตัวอักษรในคำได้ ตัวอย่างเช่น ถ้าฉันต้องการเปลี่ยน Dollar เป็น DoLLar จะไม่ทำงาน
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
Chào bạn, có cách nào thay thế RẤT NHIỀU cụm từ bằng RẤT NHIỀU cụm từ khác (nhập từng cụm từ rất mất thời gian) bằng càp m ộ cụm từ đích được không ? rất cám ơn bạn
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดีค่ะ คุณ Nguyễn Phúc Lâm
ฉันแนะนำให้คุณใช้คุณลักษณะ Batch Find and Replace ของ Kutools for Word (วิธีที่สองในโพสต์นี้) เพื่อแก้ปัญหานี้
ในกล่องโต้ตอบ ค้นหาและแทนที่ หลังจากสร้างสองคอลัมน์ที่คุณต้องการแล้ว คุณสามารถบันทึกการตั้งค่าปัจจุบันเป็นสถานการณ์จำลองสำหรับใช้ในอนาคตได้
https://www.extendoffice.com/images/stories/comments/comment-picture-zxm/find_and_replace.png
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
Cám ơn Crystal, cách này có thể áp dụng với một số lượng nhỏ các cụm từ, nếu với số lượng các cụm từ lớn (hơn 1000, hơm t.hơn th 10000n th XNUMXn th XNUMXn th XNUMXn tể tể từ từ từ tể tể từ từ từ từ từ từ từ từ từ từ từ từ từ từ từ từ từ từ từ từ từ từ từ từ từ từ t t từ từ t t t t hn th ) Vậy có cách nào khác không bạn? Cám ơn bạn đã trả lời . คัม ơn bạn đã trả lời
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดีค่ะ คุณ Nguyễn Phúc Lâm
ไม่สามารถจัดการกับปัญหานี้ได้ชั่วคราวกับโค้ด VBA เนื่องจากค่อนข้างซับซ้อน ฟีเจอร์นี้จะได้รับการพิจารณาให้อัปเกรดในรุ่นถัดไป ขออภัยในความไม่สะดวก.
มีความคิดเห็นยังไม่มีการโพสต์ที่นี่
แสดงความคิดเห็นของคุณ
โพสต์ในฐานะแขก
×
ให้คะแนนโพสต์นี้:
0   ตัวอักษร
สถานที่แนะนำ