4 วิธีที่เป็นประโยชน์ในการค้นหาและแทนที่ข้อความในส่วนหนึ่งของเอกสาร Word

ในเอกสารนี้ เรายินดีที่จะแสดงวิธีการที่มีประโยชน์ 4 วิธีในการค้นหาและแทนที่ข้อความในส่วนของเอกสาร Word

โดยปกติเมื่อเราทำ "ค้นหาและแทนที่" ใน Word ผลกระทบจะเกิดขึ้นทั่วโลก ดังนั้น วันนี้ เราขอเสนอวิธีค้นหาและแทนที่ข้อความในบางส่วนของเอกสาร เช่น ในส่วนที่เลือก หน้าเดียว หรือเฉพาะส่วน

วิธีที่ 1: ใช้คุณลักษณะ "ค้นหาและแทนที่" ในส่วนที่เลือก

1. ประการแรกเลือก tarรับข้อความ
2. ประการที่สองกด "Ctrl + H" เพื่อเปิดกล่อง "ค้นหาและแทนที่"
3. จากนั้นป้อนข้อความค้นหาในกล่องข้อความ "ค้นหาอะไร" และข้อความแทนที่ในกล่อง "แทนที่ด้วย"
4. จากนั้นคลิกปุ่ม "แทนที่ทั้งหมด"
5. กล่องจะปรากฏขึ้นเพื่อถามว่าคุณต้องการค้นหาเอกสารที่เหลือต่อหรือไม่ ตรวจสอบให้แน่ใจว่าคุณคลิก “ไม่”

วิธีที่ 2: เรียกใช้รหัส VBA เพื่อค้นหาและแทนที่ข้อความในส่วนที่เลือก

1. ก่อนอื่น เลือกช่วงของเนื้อหาเอกสาร
2. เรียกใช้ตัวแก้ไข VBA ถัดไปโดยกด “Alt+ F11”
3. จากนั้นคลิก "ปกติ" และคลิก "แทรก"
4. เลือก“ โมดูล” ในเมนู
5. ตอนนี้เปิดโมดูลโดยดับเบิลคลิก
6. คัดลอกและวางรหัสต่อไปนี้ที่นั่น:

Sub FindAndReplaceInSelection()
  Dim strFindText As String
  Dim strReplaceText As String
 
  strFindText = InputBox("Enter finding text here:")
  strReplaceText = InputBox("Enter replacing text here:")

  With Selection.Find
    .Text = strFindText
    .Replacement.Text = strReplaceText
    .Forward = True
    .Wrap = wdFindStop
    .Format = False
    .MatchCase = False
    .MatchWholeWord = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
  End With
  Selection.Find.Execute Replace:=wdReplaceAll
End Sub

7. ถัดไปกด “F5”
8. จะมีช่องใส่สองช่องแจ้งขึ้นมา ป้อนข้อความค้นหาและแทนที่ตามลำดับในสองช่อง
9. คลิก“ ตกลง” เพื่อดำเนินการต่อ

คุณจะได้ผลเช่นเดียวกับวิธีที่ 1

วิธีที่ 3: เรียกใช้แมโคร Word เพื่อค้นหาและแทนที่ข้อความในหน้าที่กำหนด

มาโครต่อไปนี้ช่วยให้คุณค้นหาและแทนที่ข้อความในหน้าใดหน้าหนึ่ง

1. ขั้นแรก ติดตั้งและเรียกใช้แมโครตามขั้นตอนในวิธีที่ 2
2. จากนั้นแทนที่มาโครนั้นด้วยอันนี้:

Sub FindAndReplaceInSpecificPage()
  Dim strFindText As String
  Dim strReplaceText As String
  Dim strPageNum As String
  Dim nPageNum As Integer
 
  strPageNum = InputBox("Enter a page number: ")
  nPageNum = Int(strPageNum)
 
  Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:=nPageNum
  ActiveDocument.Bookmarks("\page").Range.Select
  strFindText = InputBox("Enter finding text here:")
  strReplaceText = InputBox("Enter replacing text here:")

  With Selection.Find
    .Text = strFindText
    .Replacement.Text = strReplaceText
    .Forward = True
    .Wrap = wdFindStop
    .Format = False
    .MatchCase = False
    .MatchWholeWord = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
  End With
  Selection.Find.Execute Replace:=wdReplaceAll
End Sub

3. หลังจากเรียกใช้รหัสเหล่านี้ จะมีช่องใส่ข้อมูล 3 ช่อง ป้อนหมายเลขหน้าในช่องแรก และป้อนข้อความค้นหาในช่องที่สอง และพิมพ์แทนที่ข้อความในช่องที่สาม
4. อย่าลืมคลิก “ตกลง” เพื่อดำเนินการต่อ

วิธีที่ 4: เรียกใช้แมโคร Word เพื่อค้นหาและแทนที่ข้อความในส่วน

1. ในทำนองเดียวกัน ทำตามขั้นตอนเดียวกันในวิธีที่ 2 เพื่อติดตั้งและเรียกใช้แมโคร
2. คราวนี้ใช้มาโครนี้แทน:

Sub FindAndReplaceInSection()
  Dim strFindText As String
  Dim strReplaceText As String
  Dim strSectionNum As String
  Dim nSectionNum As Integer
 
  strSectionNum = InputBox("Enter a section number: ")
  nSectionNum = Int(strSectionNum)
 
  Selection.GoTo What:=wdGoToSection, Which:=wdGoToFirst, Count:=1, Name:=nSectionNum
  ActiveDocument.Sections(nSectionNum).Range.Select
  strFindText = InputBox("Enter finding text here:")
  strReplaceText = InputBox("Enter replacing text here:")

  With Selection.Find
    .Text = strFindText
    .Replacement.Text = strReplaceText
    .Forward = True
    .Wrap = wdFindStop
    .Format = False
    .MatchCase = False
    .MatchWholeWord = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
  End With
  Selection.Find.Execute Replace:=wdReplaceAll
End Sub

3. อย่าลืมใส่หมายเลขหัวข้อในช่องแรก และป้อนการค้นหาและแทนที่ข้อความในสองช่องต่อไปนี้
4. ยังคงคลิก "ตกลง" เพื่อดำเนินการต่อ

รับมือกับปัญหาของ Word

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

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

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