จะค้นหาและแทนที่ไฟล์หลาย ๆ ไฟล์ใน Word ได้อย่างไร?

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

ค้นหาและแทนที่ข้อความในเอกสารหลายคำพร้อมกันด้วยรหัส VBA
ค้นหาและแทนที่ข้อความที่แตกต่างกันในเอกสารหลายฉบับพร้อมกันได้อย่างง่ายดายด้วย Kutools for Word

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

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

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

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

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 สำหรับ Word ให้ป้อนข้อความที่คุณจะพบในเอกสารต่างๆลงในไฟล์ สิ่งที่ค้นหา จากนั้นคลิกที่ไฟล์ OK ปุ่ม

6. ในวินาทีที่ Kutools สำหรับ Word กล่องโต้ตอบป้อนข้อความที่คุณจะแทนที่แล้วคลิกไฟล์ OK ปุ่ม

8 คลิกที่ OK ในปุ่มถัดไป Microsoft Word กล่องโต้ตอบเพื่อสิ้นสุดการค้นหาและแทนที่

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

ค้นหาและแทนที่ข้อความที่แตกต่างกันในเอกสารหลายฉบับพร้อมกันได้อย่างง่ายดายด้วย Kutools for Word

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

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

1. กรุณาคลิก Kutools Plus > ค้นหาแบทช์และแทนที่ เพื่อเปิดใช้คุณลักษณะนี้

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

2.1) คลิกปุ่ม เพิ่มแถว ใต้ปุ่ม ค้นหาและแทนที่ แท็บ;
2.2) ในฟิลด์แถวที่สร้างขึ้น:

A. ป้อนข้อความที่คุณจะพบในกล่องข้อความในไฟล์ หา คอลัมน์
B. ป้อนข้อความที่คุณจะแทนที่ลงในกล่องข้อความในไฟล์ แทนที่ คอลัมน์;
C. ระบุประเภทการค้นหาตำแหน่งที่จะค้นหาข้อความและสีเพื่อเน้นข้อความตามที่คุณต้องการ ในกรณีนี้ฉันเลือก การจับคู่คำเต็ม, เอกสารหลัก และสีบางสีจาก ประเภทการค้นหา ค้นหาใน และ เน้น คอลัมน์;

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

หมายเหตุ:

1. หากคุณคลิกไฟล์ หา ผลการค้นหาทั้งหมดจะแสดงอยู่ใต้ปุ่ม ดูตัวอย่างผลลัพธ์ แท็บ หลังจากดูผลลัพธ์แล้วหากคุณต้องการแทนที่ข้อความทั้งหมดโปรดคลิกที่ ค้นหาและแทนที่ แท็บ มิฉะนั้นให้ปิดกล่องโต้ตอบ

2. หากคุณคลิกไฟล์ แทนที่ ข้อความที่ระบุทั้งหมดจะถูกแทนที่ด้วยข้อความใหม่ทันทีและผลลัพธ์จะปรากฏใต้ปุ่ม ดูตัวอย่างผลลัพธ์ แถบ

3. หากคุณระบุสีไฮไลต์ในขั้นตอนที่ 2 ข้อความที่ถูกแทนที่ทั้งหมดจะถูกไฮไลต์ด้วยสีที่ระบุและคุณสามารถค้นหาได้อย่างรวดเร็วในเอกสาร

3 ปิด ค้นหาแบทช์และแทนที่ กล่องโต้ตอบ

สำหรับข้อมูลเพิ่มเติมเกี่ยวกับคุณลักษณะนี้โปรด คลิกที่นี่....

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

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

shot kutools word kutools plus แท็บ 1180x120

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

การดำเนินการที่ซับซ้อนและซ้ำ ๆ สามารถดำเนินการครั้งเดียวในไม่กี่วินาที
แทรกภาพหลาย ๆ โฟลเดอร์ลงในเอกสาร Word พร้อมกัน
ผสานและรวมไฟล์ Word หลาย ๆ ไฟล์ในโฟลเดอร์เข้าด้วยกันตามลำดับที่คุณต้องการ
แยกเอกสารปัจจุบันออกเป็นเอกสารแยกตามหัวข้อตัวแบ่งส่วนหรือเกณฑ์อื่น ๆ
แปลงไฟล์ระหว่าง Doc และ Docx, Docx และ PDF ชุดเครื่องมือสำหรับการแปลงและการเลือกทั่วไปและอื่น ๆ ...

อ่านเพิ่มเติม ดาวน์โหลดเดี๋ยวนี้ ซื้อ

66 Comments
Login

Sort by Newest
- Best
- Popular
- Newest
- Oldest

You are guest

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.
T-H · 4 months ago
This is SUCH a time saving solution. THANK YOU!
One thing that may make it even better, is adding support for subdirectories. (That is: Files in multiple subdirectories)
I am an absolute newbie in this, and don't know the syntax, the parameter, or where to add that.

Could somebody help?
- Reply
To post as a guest, your comment is unpublished.
Daphne · 1 years ago
I need to replace text in multiple Word files and have the replaced text highlighted. Is there a way to do this?
- Reply
- To post as a guest, your comment is unpublished.
  crystal · 11 months ago
  
  Hi Daphne,
  Why not try the Batch Find and Replace feature of Kutools for Word? It can solve this issue with ease.
  
  Reply
To post as a guest, your comment is unpublished.
Justine Belle · 1 years ago
this was a lifesaver thank you so much
- Reply
To post as a guest, your comment is unpublished.
zofito · 2 years ago
Is it possible to replace in the headers of the word doc?
- Reply
- To post as a guest, your comment is unpublished.
  crystal · 2 years ago
  
  Hi Tiago,
  Please apply the below VBA code to include the content of headers and footers when finding and replacing texts in multiple documents at once.
  
  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"
  If MsgBox("Do you want to replace texts in headers and footers too? ", vbYesNo, "Kutools for Word") = vbYes Then
  ActiveWindow.View.SplitSpecial = wdPanePrimaryFooter
  Selection.Find.Execute Replace:=wdReplaceAll
  Application.Run macroname:="NEWMACROS"
  ActiveWindow.View.SplitSpecial = wdPanePrimaryHeader
  Selection.Find.Execute Replace:=wdReplaceAll
  Application.Run macroname:="NEWMACROS"
  End If
  ActiveDocument.Save
  ActiveWindow.Close
  Next
  Application.ScreenUpdating = True
  End With
  MsgBox "Operation end, please view", vbInformation
  End Sub
  
  Reply
To post as a guest, your comment is unpublished.
dsadasd · 2 years ago
Is that possible to replace in the header of the word doc?
- Reply
To post as a guest, your comment is unpublished.
martinadam · 2 years ago
Thanks for sharing this information with us.
Word search and replace tool
- Reply
To post as a guest, your comment is unpublished.
nathalie · 2 years ago
Works perfectly but is there a similar macro to change text in the header! because this does not work with this version!
thanks
- Reply
- To post as a guest, your comment is unpublished.
  crystal · 2 years ago
  
  Hi,
  Please apply the below VBA code to include the content of headers and footers when finding and replacing texts in multiple documents at once.
  
  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"
  If MsgBox("Do you want to replace texts in headers and footers too? ", vbYesNo, "Kutools for Word") = vbYes Then
  ActiveWindow.View.SplitSpecial = wdPanePrimaryFooter
  Selection.Find.Execute Replace:=wdReplaceAll
  Application.Run macroname:="NEWMACROS"
  ActiveWindow.View.SplitSpecial = wdPanePrimaryHeader
  Selection.Find.Execute Replace:=wdReplaceAll
  Application.Run macroname:="NEWMACROS"
  End If
  ActiveDocument.Save
  ActiveWindow.Close
  Next
  Application.ScreenUpdating = True
  End With
  MsgBox "Operation end, please view", vbInformation
  End Sub
  
  Reply
  
  To post as a guest, your comment is unpublished.
  
  Michael · 11 months ago
  
  Oh yeah! Thank you sooooo much! This is a life-saver!
  
  Reply
To post as a guest, your comment is unpublished.
blds · 3 years 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. :(
- Reply
To post as a guest, your comment is unpublished.
Kath · 3 years 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 !
- Reply
To post as a guest, your comment is unpublished.
keyvan · 3 years ago
hi, i want to replace a number but i guess the problem that it's not working is that the number is not written in english it's in Persian. I would be so thankfull if someone can help me with it.
- Reply
- To post as a guest, your comment is unpublished.
  keyvan · 3 years ago
  
  sorry, i was wrong. the problem is that the number is in the header and it seems that the trick is not working in header. if i open one of the files and activate the header then run the module it works but just in that specific file ,even if i select all the files. thanks again.
  
  Reply
To post as a guest, your comment is unpublished.
Rav · 3 years ago
Hi, I new to VBA. I am able to get the data updated for only single file. How to select multiple files when the VBA script opens up ? The question might be simple to few, but it will help. Since i need to update a string in 175+ plus word files. Appreciate your quick response. Thanks ...
- Reply
- To post as a guest, your comment is unpublished.
  Asi · 3 years ago
  
  Put your files in one folder and select them all with a shift key. Hope this works.
  
  Reply
To post as a guest, your comment is unpublished.
darshan Jain · 3 years ago
Hi
this code is only editing 7 documents at a time... why?
- Reply
To post as a guest, your comment is unpublished.
Bryce · 3 years ago
I really appreciated this post. Thank you. It allowed me to spend 10 minutes implementing something that saved several hours of work.
- Reply
To post as a guest, your comment is unpublished.
tomukosuryadi3@gmail.com · 3 years ago
What if I want to find and replace multiple sentences in multiple documents?
- Reply
To post as a guest, your comment is unpublished.
3Cees · 3 years ago
Thank you so much. You win the internet!

This has saved me amending 360 documents.

You're my favourite :)
- Reply
To post as a guest, your comment is unpublished.
WAK · 3 years ago
worked like a charm for me. Thanks a billion!
- Reply
To post as a guest, your comment is unpublished.
CC · 4 years ago
Merlin 4099, I am having trouble with the following portion of your code. I am new to VBA.:

' --------------- --------------- --------------- ----------
' Beginning Header Updates
' --------------- --------------- --------------- ----------
Windows(GetStr(j)).Activate
Selection.Find.ClearFormatting
Selection.Find.Replacement.Cle arFormatting

If ActiveWindow.View.SplitSpecialwdPane None Then
ActiveWindow.Panes(2).Close
End If

If ActiveWindow.ActivePane.View.Type = wdNormalView Or ActiveWindow. _
ActivePane.View .Type = wdOutlineView Then

Can anyone help me? I think I fixed most
- Reply
- To post as a guest, your comment is unpublished.
  blue_crayon · 3 years ago
  
  Was figuring out this issue myself, today.
  
  First, make sure you fix the line:
  
  Selection.Find.Replacement.Cle arFormatting
  
  To be:
  
  Selection.Find.Replacement.ClearFormatting
  
  Then, change the following line:
  
  If ActiveWindow.View.SplitSpecialwdPane None Then
  
  To look like this:
  
  If ActiveWindow.View.SplitSpecial <> wdPaneNone Then
  
  The code should look like this in the end:
  
  Windows(GetStr(j)).Activate
  Selection.Find.ClearFormatting
  Selection.Find.Replacement.ClearFormatting
  
  If ActiveWindow.View.SplitSpecial <> wdPaneNone Then
  ActiveWindow.Panes(2).Close
  End If
  
  If ActiveWindow.ActivePane.View.Type = wdNormalView Or ActiveWindow. _
  ActivePane.View.Type = wdOutlineView Then
  ActiveWindow.ActivePane.View.Type = wdPrintView
  End If
  
  Reply
To post as a guest, your comment is unpublished.
CC · 4 years ago
Merlin4099, I am having trouble with the following portion of your code:

' --------------- --------------- --------------- ----------
' Beginning Header Updates
' --------------- --------------- --------------- ----------
Windows(GetStr(j)).Activate
Selection.Find.ClearFormatting
Selection.Find.Replacement.Cle arFormatting

If ActiveWindow.View.SplitSpecialwdPane None Then
ActiveWindow.Panes(2).Close
End If

If ActiveWindow.ActivePane.View.Type = wdNormalView Or ActiveWindow. _
ActivePane.View .Type = wdOutlineView Then

Can you or anyone else help me?

Thanks!
- Reply
To post as a guest, your comment is unpublished.
DaveW · 4 years ago
Thanks so much for posting this, absolute lifesaver!

I notice that there is a line "MatchWildcards = False", which implies that it's possible to use wildcards in the search text - is that possible and, if so, what's the protocol?

Thanks again!
- Reply
To post as a guest, your comment is unpublished.
Paul Oz · 4 years ago
Hi all,
I am new to the whole VBA thing and I Love love love this code!
I have 5000+ docs to review and if this works it will save heaps of time!
I have the code above running however i can see that it does not cater for replacing text in footers, Only headers and the body of the doc.
Can anyone assist in extending this to the entire document.
P.S. not sure if this is relevant but the list of words that i need to replace is the same for headers, footers and the body...
Any help would really be appreciated!
- Reply
- To post as a guest, your comment is unpublished.
  blue_crayon · 3 years ago
  
  You can edit the footer by using almost identical code that the header uses. Copy everything from "Begin Header Updates" to "End Header Updates" and paste it directly after.
  
  Then, in this pasted section, find the word "wdSeekCurrentPageHeader" and change it to "wdSeekCurrentPageFooter".
  
  Reply
To post as a guest, your comment is unpublished.
Terence · 4 years ago
Out of interest what does the line: Application.Run macroname:="NEW MACROS" do?
The rest of the code makes sense to me (used to VBA in Excel) but I can't figure out why you need to execute another piece of code here.
Thanks for the great tool though.
- Reply
To post as a guest, your comment is unpublished.
Mike · 4 years ago
This macro was amazing..is there any code to update multiple excel files,spss files.also is there is any macro to update the header and footer on multiple word documents .

Any help is appreciated .thanks !
- Reply
To post as a guest, your comment is unpublished.
Tracy · 4 years ago
Just brilliant, saved me lots of time, thank you
- Reply
To post as a guest, your comment is unpublished.
Exis · 5 years ago
You can always try a 3rd party tool to do this which makes it very easy: www.officefindreplace.com
- Reply
To post as a guest, your comment is unpublished.
Nick · 5 years ago
I am trying to add an entire section to a document that has three lines, bolding, and bullet points. Is there a way to keep that formatting when running the macro?
- Reply
To post as a guest, your comment is unpublished.
Tali1953 · 5 years ago
To Merlin4099
You have just saved my life (... time...) with you code !
THANK YOU !!!
- Reply
To post as a guest, your comment is unpublished.
Jelena · 5 years ago
Is it possible to change code and search and replace photo in multiply files?
- Reply
To post as a guest, your comment is unpublished.
fatma · 5 years ago
this was sooo helpful, thank you very much! I have just changed the contents in 90 word files. This is amazing! Just one more tip: at the beginning close all open word documents but one of your file to be change.
- Reply
To post as a guest, your comment is unpublished.
Exis,LLC · 5 years ago
You can use a program such as [url]www.officefindreplace.com[/url] to perform the same operation on multiple documents, or multiple operations on the same document. [url]www.officefindreplace.com[/url]
- Reply
To post as a guest, your comment is unpublished.
Merlin4099 · 5 years ago
' --- Beging body text replacemnt 3 ---
With Selection.Find
.Text = "leadership" ' Find What
.Replacement.Text = "supervision" ' Replace With
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
' --- End body text replacemnt 3 ---

Application.Run macroname:="NEWMACROS"
ActiveDocument.Save
ActiveWindow.Close
' -------------------------------------------------------
' End of Body Updates
' -------------------------------------------------------
Next

Application.ScreenUpdating = True

End With

MsgBox "operation end, please view", vbInformation

End Sub
- Reply
- To post as a guest, your comment is unpublished.
  Ravini · 4 years ago
  
  To Merlin4099
  Wonderful code - thank you!! worked perfectly in executing what I needed.
  
  Reply
To post as a guest, your comment is unpublished.
Merlin409 · 5 years ago
' --- Beging body text replacemnt 1 ---
With Selection.Find
.Text = "Body text 1" ' Find What
.Replacement.Text = "BT1" ' Replace With
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
' --- Beging body text replacemnt 1 ---

' --- Beging body text replacemnt 2 ---
With Selection.Find
.Text = "membership" ' Find What
.Replacement.Text = "team members" ' Replace With
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
' --- End body text replacemnt 2 ---
- Reply
To post as a guest, your comment is unpublished.
Merlin409 · 5 years ago
' --- Beging header text replacemnt 2 ---
With Selection.Find
.Text = "Header String 2" ' Find What
.Replacement.Text = "HReplacement 2" ' Replace With
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False

If .Found = True Then
ChangeMade = True
End If

End With
Selection.Find.Execute Replace:=wdReplaceAll
' --- Beging header text replacemnt 2 ---

ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
' ------------------------------------------------------
' End of Header Updates
' ------------------------------------------------------

' -------------------------------------------------------
' Beginning of Body Updates
' -------------------------------------------------------
Windows(GetStr(j)).Activate
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting

' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
' Delete additional body replacement blocks if
' not needed or copy/paste additional blocks if
‘ required.
' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
- Reply
To post as a guest, your comment is unpublished.
Merlin409 · 5 years ago
' --- Beging header text replacemnt 1 ---
With Selection.Find
.Text = "Header String 1" ' Find What
.Replacement.Text = "HReplacement 1" ' Replace With
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False

If .Found = True Then
ChangeMade = True
End If

End With
Selection.Find.Execute Replace:=wdReplaceAll
' --- End header text replacemnt 1 ---
- Reply
To post as a guest, your comment is unpublished.
Merlin409 · 5 years ago
Sub Search_and_Replace()

' 500 files is the maximum applying this code
Dim MyDialog As FileDialog, GetStr(1 To 500) As String

On Error Resume Next

Set MyDialog = Application.FileDialog(msoFileDialogFilePicker)

' ---------------------------------------------------------------
' *.doc? allows processing of *.doc and *.docx files.
' ---------------------------------------------------------------
With MyDialog
.Filters.Clear
.Filters.Add "All WORD File ", "*.doc?", 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

For j = 1 To i Step 1
Set Doc = Documents.Open(FileName:=GetStr(j), Visible:=True)

' -------------------------------------------------------
' Beginning Header Updates
' -------------------------------------------------------
Windows(GetStr(j)).Activate
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting

If ActiveWindow.View.SplitSpecial wdPaneNone Then
ActiveWindow.Panes(2).Close
End If

If ActiveWindow.ActivePane.View.Type = wdNormalView Or ActiveWindow. _
ActivePane.View.Type = wdOutlineView Then
ActiveWindow.ActivePane.View.Type = wdPrintView
End If

ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
- Reply
To post as a guest, your comment is unpublished.
Merlin409 · 5 years ago
I ran across this code while searching with DuckDuckGo. I modified it to suit my needs which were to other requests such as handling multiple search/replace in the header and multiple search/replace in the body. I also modified it handle the older .DOC format and the new .DOCX format. The modified code is pasted below. Feel free to use and improve!

It is being sent in multiple parts because comments to this site can only be 2000 characters or less.
------------------------------------------------------------
- Reply
To post as a guest, your comment is unpublished.
Milo · 6 years ago
This code has saved so much time for me... so, thanks!

One thing though - is there any way to increase the number of words that the macro finds/replaces? I need to find/replace multiple paragraphs at once and the macro seems to have a limit of approximately 200 characters.
- Reply
To post as a guest, your comment is unpublished.
Mario · 6 years ago
Is it possible to tweak this macro to perform multiple 'find and replace' stances at once? There are several words and phareses I need to replace and as of now I need to reinsert the VBA code for every instance.

I'm a noob regarding those things
- Reply
To post as a guest, your comment is unpublished.
Moh · 6 years ago
I've been testing it for the last few minutes and it's really a wonder, thank you!

I need to perform several 'find and replace' routines for several files. Dozens of routines for dozens of files.

Is there a way to 'save' the module so I don't need to paste it again on the VBA screen every time I need to perform a new routine?
- Reply
To post as a guest, your comment is unpublished.
Pia · 6 years ago
I am sorry but I have no idea re the headers or the format. It was not something I needed to include in my code. I had never used this before myself and the code I posted was taken from the original code above and then tweeked using code found in other searches until it worked. I am sorry I cant be of more help.
- Reply
To post as a guest, your comment is unpublished.
sathena99 · 6 years ago
Thanks for posting this! I've run a couple tests and gotten it to work for me; however, it's not working on text in headers and footers for some reason. Is there a fix for this?
- Reply
To post as a guest, your comment is unpublished.
WORDZ · 6 years ago
Big THX 4 the code... but also have that prblm with the headers... no change

Thanks in advance
- Reply
To post as a guest, your comment is unpublished.
Nilesh · 6 years ago
I want to change the format of the replaces text. i.e. "Pizza" has to be replaced with "[i]Burger[/i]".
How can it be achieved?
- Reply
To post as a guest, your comment is unpublished.
Judy · 6 years ago
Hello,
This worked great for the word in the body of the document but did not replace the same word in the header. Any ideas.

Thanks
- Reply
To post as a guest, your comment is unpublished.
Dani · 6 years ago
This worked perfectly and saved me so much time. Thank you!
- Reply
To post as a guest, your comment is unpublished.
Pia · 6 years ago
It only runs across selected files and files must be in one folder only. This is run as a macro in a word doc. It is run from clicking a button. It only updates word doc's Hope this helps.

Private Sub CommandButton1_Click()
Dim MyDialog As FileDialog, GetStr(1 To 100) As String '100 files is the maximum applying this code
On Error Resume Next
Set MyDialog = Application.FileDialog(msoFileDialogFilePicker)
With MyDialog
.Filters.Clear
'~~> Change this file extention to the relevant doc type.
.Filters.Add "All WORD File ", "*.doc", 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
For j = 1 To i Step 1
Set doc = Documents.Open(FileName:=GetStr(j), Visible:=True)
Windows(GetStr(j)).Activate
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting

For i = 1 To doc.Hyperlinks.Count
'If the hyperlink matches.
If LCase(doc.Hyperlinks(i).Address) = "http://www.yahoo.co.uk/" Then
'Change the links address.
doc.Hyperlinks(i).Address = "https://www.google.co.uk"
'Change the links display text if desired.
doc.Hyperlinks(i).TextToDisplay = "www.google.co.uk"
End If
Next
Application.Run macroname:="NEWMACROS"
ActiveDocument.Save
ActiveDocument.Close
Next
Application.ScreenUpdating = True
End With
MsgBox "operation end, please view", vbInformation
End Sub
- Reply
To post as a guest, your comment is unpublished.
Pia Wilson · 6 years ago
You then add one of the following two sections depending on if it is test or hyperlink to be replaced

'~~> This section if uncommented will replace text - ONLY ONE OF TWO SECTIONS CAN BE UNCOMMENTED AT ONCE

With Selection.Find
.Text = "www.google.co.uk" 'Find What
.Replacement.Text = "www.google.com" '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
ActiveDocument.Close
Next
Application.ScreenUpdating = True
End With
MsgBox "operation end, please view", vbInformation

'~~> This section if uncommented will replace hyperlinks
'For i = 1 To doc.Hyperlinks.Count
' 'If the hyperlink matches.
' If LCase(doc.Hyperlinks(i).Address) = "http://www.google.co.uk/" Then
' 'Change the links address.
' doc.Hyperlinks(i).Address = "https://www.google.com"
' 'Change the links display text if desired.
' doc.Hyperlinks(i).TextToDisplay = "www.google.com"
' End If
' Next
'Application.Run macroname:="NEWMACROS"
'ActiveDocument.Save
'ActiveDocument.Close
'Next
'Application.ScreenUpdating = True
'End With
'MsgBox "operation end, please view", vbInformation

End Sub
- Reply
- To post as a guest, your comment is unpublished.
  segarn · 6 years ago
  
  Hi Pia,
  I am trying to run your script for replacing hyperlinks but am getting errors. Any chance you can post the script for replacing hyperlinks all in 1 piece? I must be messing something up when trying to patch your code together.
  
  Reply
To post as a guest, your comment is unpublished.
Pia Wilson · 6 years ago
This is what finally worked for me. I hope it helps. I added this macro to a word file. It will run the replace any documents selected (you can select as many as you like) when the file dialoge is open. It wont work on sub folders so I did each folder in the file structure individually but it worked.It may not be the best fix but it works at least.

Private Sub CommandButton1_Click()
Dim MyDialog As FileDialog, GetStr(1 To 100) As String '100 files is the maximum applying this code
On Error Resume Next
Set MyDialog = Application.FileDialog(msoFileDialogFilePicker)
With MyDialog
.Filters.Clear
'~~> Change this file extention to the relevant doc type.
.Filters.Add "All WORD File ", "*.doc", 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
For j = 1 To i Step 1
Set doc = Documents.Open(FileName:=GetStr(j), Visible:=True)
Windows(GetStr(j)).Activate
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
'Section then either one or the other of sections of code to follow.
- Reply
To post as a guest, your comment is unpublished.
Greg Simonis · 6 years ago
I still cannot get this to work on my PC running Windows 7.
When I run it, I get an error msg at the line:
-Windows(GetStr(j)).Activate
The error msg. is:
-Compile error:
-Sub or Function not defined
Any idea why? And how to fix it?
- Reply
To post as a guest, your comment is unpublished.
Muralisk · 6 years ago
Worked like a charm and it did save a lot of time and effort for me. Thanks.
- Reply
To post as a guest, your comment is unpublished.
Greg Simonis · 7 years ago
When I run it, it gets hung up and stops at:
Application.Run macroname:="NEWMACROS"
and when I step into it, it tells me I have a Compile error: Named argument not found.
Now what?
- Reply

เข้าสู่ระบบบัญชีของคุณ

ตั้งค่ารหัสผ่าน