วิธีค้นหาและแทนที่เนื้อหาในเอกสาร Word หลายชุด

ในบทความของวันนี้เรายินดีที่จะแจ้งให้คุณทราบถึงวิธีการค้นหาและแทนที่เนื้อหาในเอกสาร Word หลาย ๆ

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

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

ขั้นตอนในการติดตั้งและเรียกใช้มาโคร

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

Sub FindAndReplaceInFolder()
  Dim objDoc As Document
  Dim strFile As String
  Dim strFolder As String
  Dim strFindText As String
  Dim strReplaceText As String
 
  '  Pop up input boxes for user to enter folder path, the finding and replacing texts.
  strFolder = InputBox("Enter folder path here:")
  strFile = Dir(strFolder & "\" & "*.docx", vbNormal)
  strFindText = InputBox("Enter finding text here:")
  strReplaceText = InputBox("Enter replacing text here:")
 
  '  Open each file in the folder to search and replace texts. Save and close the file after the action.
  While strFile <> ""
    Set objDoc = Documents.Open(FileName:=strFolder & "\" & strFile)
    With objDoc
      With Selection
        .HomeKey Unit:=wdStory
        With Selection.Find
          .text = strFindText
          .Replacement.text = strReplaceText
          .Forward = True
          .Wrap = wdFindContinue
          .Format = False
          .MatchCase = False
          .MatchWholeWord = False
          .MatchWildcards = False
          .MatchSoundsLike = False
          .MatchAllWordForms = False
        End With
        Selection.Find.Execute Replace:=wdReplaceAll
      End With
      objDoc.Save
      objDoc.Close
      strFile = Dir()
    End With
  Wend
End Sub

8. สุดท้ายคลิก“ เรียกใช้”
9. ตอนนี้จะมีช่องป้อนข้อมูลโผล่ขึ้นมา ป้อนเส้นทางโฟลเดอร์ที่คุณจัดเก็บเอกสาร
10. จากนั้นคลิก "ตกลง" และมีช่องที่สอง ป้อนข้อความที่คุณต้องการค้นหา
11. คลิก“ ตกลง” ต่อไปเพื่อเปิดช่องป้อนข้อมูลที่สามซึ่งคุณป้อนข้อความแทนที่แล้วคลิกปุ่ม“ ตกลง” ที่นั่น มาโครจะแทนที่เนื้อหาทั้งหมดโดยอัตโนมัติและบันทึกการเปลี่ยนแปลง

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

สำหรับวิธีกำหนดปุ่มให้กับมาโครคุณสามารถอ่านบทความนี้: วิธีลบการจัดรูปแบบของข้อความที่วางด้วยมาโครและ VBA ใน Word ของคุณ

ปกป้องข้อมูลที่มีค่า

ข้อผิดพลาดและปัญหาอาจเกิดขึ้นได้ใน Word ส่งผลให้เอกสารมีค่าอาจเสียหายได้ ในขณะที่เผชิญหน้ากับ doc เสียหายขอแนะนำให้ใช้เครื่องมือการกู้คืนแบบมืออาชีพเพื่อดึงข้อมูล

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

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