คุกกี้ช่วยให้เราสามารถนำเสนอบริการของเรา โดยการใช้บริการของเราคุณยินยอมที่จะใช้งานของเราคุกกี้
เคล็ดลับ: ภาษาอื่น ๆ ได้รับการแปลโดย Google คุณสามารถเยี่ยมชม English รุ่นของลิงก์นี้
เข้าสู่ระบบ
x
or
x
x
สมัครสมาชิก
x

or

วิธีการค้นหาและแทนที่ในหลายไฟล์ในคำ?

ถ้าคุณมีไฟล์ Word หลายโหลที่มีเนื้อหาเหมือนกัน (เช่นส่วนหัวส่วนท้ายคำหรือตัวเลขพิเศษบางคำ) และคุณต้องแทนที่เนื้อหาเดียวกันในเอกสารเหล่านั้นใน Word จะทำให้คุณทำได้ง่ายขึ้นแค่ไหน? แน่นอนคุณสามารถเปิดไฟล์เหล่านี้ทีละไฟล์เพื่อแทนที่เนื้อหาเดียวกัน แต่จะใช้เวลานานและลำบาก บทแนะนำนี้จะแสดงวิธีที่ยุ่งยากในการแทนที่เนื้อหาเดียวกันภายในเอกสารหลาย ๆ รายการใน Word พร้อมกัน

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


รวม / รวมเอกสารหลายอย่างเข้าด้วยกันได้อย่างง่ายดาย:

La ผสานเอกสาร ประโยชน์ของ Kutools for Word สามารถช่วยให้คุณสามารถรวมเอกสารหลายชุดเข้าด้วยกันได้อย่างรวดเร็ว คุณเพียงแค่ต้อง:

  • เลือกเอกสารที่คุณจะรวมเข้า;
  • ระบุช่วงพักระหว่างแต่ละเอกสาร
  • เริ่มการผสาน ดูภาพหน้าจอ:

Kutools for Word: มีโปรแกรมเสริม Word ที่มีประโยชน์มากกว่า 100 และทดลองใช้ฟรีโดยไม่มีข้อ จำกัด ใน 30 วัน ดาวน์โหลดและทดลองใช้ฟรี Now!

Kutools for Word: เพิ่ม 100 คุณลักษณะขั้นสูงใหม่ เป็น Word 2003 / 2007 / 2010 / 2013 / 2016 / 2019
แท็บ Office: เปิดใช้งาน การแก้ไขและเรียกดูแบบแท็บในที่ทำงานเช่นเดียวกับ Chrome, Firefox, IE 8 / 9 / 10
เมนูคลาสสิกสำหรับ Office: นำรูปลักษณ์แบบเดิม ๆ ของ Office 2003 กลับมา ไปที่ Office 2007, 2010, 2013, 2016 และ 2019

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

1 กด อื่น ๆ + F11 เพื่อเปิด Microsoft Visual Basic สำหรับแอ็พพลิเคชัน หน้าต่าง

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

VBA Code: การค้นหาและแทนที่เนื้อหาเดียวกันในเอกสารหลาย ๆ เอกสารพร้อมกัน

Sub CommandButton1_Click()
'Updated by Extendoffice 20180625
Dim xFileDialog As FileDialog, GetStr(1 To 100) As String '100 files is the maximum applying this code
Dim xFindStr As String
Dim xReplaceStr As String
Dim xDoc As Document
On Error Resume Next
Set xFileDialog = Application.FileDialog(msoFileDialogFilePicker)
With xFileDialog
    .Filters.Clear
    .Filters.Add "All WORD File ", "*.docx", 1
    .AllowMultiSelect = True
    i = 1
    If .Show = -1 Then
        For Each stiSelectedItem In .SelectedItems
            GetStr(i) = stiSelectedItem
            i = i + 1
        Next
        i = i - 1
    End If
    Application.ScreenUpdating = False
    xFindStr = InputBox("Find what:", "Kutools for Word", xFindStr)
    xReplaceStr = InputBox("Replace with:", "Kutools for Word", xReplaceStr)
    For j = 1 To i Step 1
        Set xDoc = Documents.Open(FileName:=GetStr(j), Visible:=True)
        Windows(GetStr(j)).Activate
        Selection.Find.ClearFormatting
        Selection.Find.Replacement.ClearFormatting
        With Selection.Find
            .Text = xFindStr  'Find What
            .Replacement.Text = xReplaceStr  'Replace With
            .Forward = True
            .Wrap = wdFindAsk
            .Format = False
            .MatchCase = False
            .MatchWholeWord = False
            .MatchByte = True
            .MatchWildcards = False
            .MatchSoundsLike = False
            .MatchAllWordForms = False
        End With
        Selection.Find.Execute Replace:=wdReplaceAll
        Application.Run macroname:="NEWMACROS"
        ActiveDocument.Save
        ActiveWindow.Close
    Next
    Application.ScreenUpdating = True
End With
MsgBox "Operation end, please view", vbInformation
End Sub

3 กด F5 คีย์เพื่อเรียกใช้รหัส

4 ในการเปิด เรียกดู โปรดค้นหาและเลือกเอกสารที่คุณจะพบและแทนที่ข้อความภายในจากนั้นคลิกที่ OK ปุ่ม. ดูภาพหน้าจอ:

5 ในครั้งแรก Kutools for Word กล่องโต้ตอบให้ป้อนข้อความที่คุณจะพบในเอกสารลงใน สิ่งที่ค้นหา แลวคลิกปุ the ม OK ปุ่ม

6 ในช่วงที่สอง Kutools for Word ใหปอนขอความที่คุณตองการแทนที่และคลิกปุ. ม OK ปุ่ม

8 คลิกที่ OK ในครั้งต่อไป Microsoft Word เพื่อเสร็จสิ้นการค้นหาและแทนที่

ในกรณีนี้คำทั้งหมด "Word" ในเอกสารที่เลือกจะถูกแทนที่ด้วย "Excel" ในเวลาเดียวกัน


แท็บ Office - การเรียกดูแบบแท็บการแก้ไขและการจัดการเอกสารหลาย ๆ รูปใน Word:

แท็บ Office นำส่วนติดต่อแบบแท็บที่เห็นในเว็บเบราเซอร์เช่น Google Chrome, Internet Explorer เวอร์ชันใหม่และ Firefox ไปยัง Microsoft Word มัน จะ เป็นเครื่องมือที่ช่วยประหยัดเวลาและไม่สามารถเปลี่ยนแปลงได้ในงานของคุณ ดูตัวอย่างด้านล่าง:

คลิกเพื่อทดลองใช้ Office Tab ฟรี!




Kutools for Word

มากกว่า 100 ฟังก์ชันขั้นสูงสำหรับ Word 2003, 2007, 2010, 2013, 2016 และ 2019

ยิง kutools-700-225-Kte

คุณสมบัติอื่น ๆ | ดาวน์โหลดฟรี | เพียง $ 39.00 สำหรับหลายร้อยฟังก์ชัน

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    martinadam · 1 months ago
    Thanks for sharing this information with us.
    Word search and replace tool
  • To post as a guest, your comment is unpublished.
    ankit saini · 2 months ago
    This is really good
  • To post as a guest, your comment is unpublished.
    nathalie · 3 months ago
    Works perfectly but is there a similar macro to change text in the header! because this does not work with this version!
    thanks
  • To post as a guest, your comment is unpublished.
    blds · 10 months ago
    Doesn't work for me on footers. e.g find FFSOSxxxx and replace with GGSOSxxxx, i can see this code is great for others pls help. :(
  • To post as a guest, your comment is unpublished.
    Kath · 11 months ago
    Hi there, is there a code for replacing with text that is multiple sentences, with bullet points and quotation marks in MS word using this code - which is fantastic !