Բաց թողնել հիմնական բովանդակությունը

Ինչպե՞ս որոնել և փոխարինել բազմաթիվ ֆայլեր բառով:

Եթե ​​ունեք մի քանի տասնյակ բառերի ֆայլեր, որոնք պարունակում են միևնույն բովանդակությունը (օրինակ ՝ Վերնագիր, էջատակ, որոշ հատուկ բառեր կամ համար), և անհրաժեշտ է նույն բովանդակությունը փոխարինել 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 for Word երկխոսության տուփ, մուտքագրեք այն տեքստը, որը կգտնեք փաստաթղթերի միջև Գտեք ինչ տուփը, ապա կտտացրեք OK կոճակը:

6. Երկրորդում Kutools for Word երկխոսության տուփ, մուտքագրեք այն տեքստը, որով դուք կփոխարինեք և կտտացրեք այն OK կոճակը:

8. Սեղմեք OK հաջորդ կոճակը Microsoft Word- ը երկխոսության տուփը ՝ գտնելու և փոխարինելու համար ավարտելու համար:

Այս դեպքում ընտրված փաստաթղթերում «Բառ» բոլոր բառերը միաժամանակ փոխարինվում են «Excel» բառերով:


Հեշտությամբ գտեք և փոխարինեք տարբեր տեքստեր մի քանի փաստաթղթերում միաժամանակ Kutools for Word

Այստեղ բարձր խորհուրդ են տալիս Խմբաքանակի որոնում և փոխարինում առանձնահատկությունը Kutools for Word, Այս հատկության միջոցով դուք կարող եք հեշտությամբ գտնել և փոխարինել տարբեր տեքստեր մի քանի Word փաստաթղթերում, միևնույն ժամանակ: Եկեք տեսնենք, թե ինչպես կիրառել այս հատկությունը `փաստաթղթերի տեքստերը գտնելու և փոխարինելու համար:

Kutools for Word : ավելի քան 100 հարմար բառերի հավելումներով, անվճար փորձելու առանց սահմանափակման 60 օր.

1. Խնդրում ենք կտտացնել Kutools Plus > Խմբաքանակի որոնում և փոխարինում գործառույթն ապահովելու համար:

2. Մեջ Խմբաքանակի որոնում և փոխարինում երկխոսության տուփ, խնդրում ենք կազմաձևել հետևյալը.

  • 2.1) Կտտացրեք այն Ավելացնել տող կոճակը տակ Գտնել եւ փոխարինել էջանիշ;
  • 2.2) Ստեղծված շարքի դաշտերում.
A. Մուտքագրեք տեքստը, որը կգտնեք տեքստային տուփի մեջ Գտնել սյունակ
Բ. Տեքստում մուտքագրեք այն տեքստը, որով դուք կփոխարինեք Փոխարինել սյունակ;
Գ. Նշեք որոնման տեսակը, որտեղ գտնել տեքստը և գույնը `տեքստը ըստ անհրաժեշտության ընդգծելու համար: Այս դեպքում ես ընտրում եմ Բառի ամբողջական համընկնում, Հիմնական փաստաթուղթ և որոշակի գույն ՝ Որոնման տեսակը, Գտեք և Առաջ քաշել սյուներ;
  • 2.3) Կրկնեք 2.1 և 2.2 քայլերը `ավելի շատ տեքստեր ավելացնելու համար, որոնք կգտնեք և կփոխարինեք.
  • 2.4) Կտտացրեք այն  կոճակը Ֆայլի տիպը, բաժին ՝ Word- ի փաստաթղթերը ավելացնելու համար, որոնցում դուք կգտնեք և կփոխարինեք տեքստերը.
  • 2.5) Կտտացրեք այն Փոխարինել or Գտնել կոճակ Տեսեք,

Notes:
1. Եթե կտտացնում ես Գտնել կոճակը, գտնելու բոլոր արդյունքները կցուցադրվեն տակ Նախադիտման արդյունք ներդիր Արդյունքները նախադիտելուց հետո, եթե ցանկանում եք փոխարինել բոլոր տեքստերը, սեղմեք այստեղ Գտնել եւ փոխարինել ներդիր Հակառակ դեպքում փակեք երկխոսությունը:

2. Եթե կտտացնում ես Փոխարինել կոճակը, նշված բոլոր տեքստերը անմիջապես կփոխարինվեն նորերով, և արդյունքները կցուցադրվեն նաև «տակ» -ի տակ Նախադիտման արդյունք էջանիշը.

3. Եթե 2-րդ քայլում նշեք լուսավորության գույները, բոլոր փոխարինված տեքստերը կարևորվում են նշված գույներով, և դրանք կարող եք հեշտությամբ գտնել հայացքից փաստաթղթերում:

3. Փակեք այն Խմբաքանակի որոնում և փոխարինում երկխոսության վանդակում

Այս հատկության մասին լրացուցիչ տեղեկություններ ստանալու համար խնդրում ենք խնդրում ենք Սեղմեք այստեղ....

Եթե ​​ցանկանում եք անվճար օգտվել այս օգտակար ծառայությունից, գնացեք այստեղ անվճար ներբեռնել ծրագրաշարը նախ և ապա անցեք գործողությունը կիրառելու համար ՝ համաձայն վերը նշված քայլերի:

Գրասենյակի արտադրողականության լավագույն գործիքները

Kutools for Word - Բարձրացրեք ձեր բառի փորձը Over-ի հետ 100 Ուշագրավ առանձնահատկություններ!

Սուզվեք ստորև նշված ընդգծված հատկանիշների մեջ կամ սեղմեք այստեղ՝ ուսումնասիրելու ամբողջ ուժը Kutools for Word.

📘 Փաստաթղթերի տիրապետում: Էջերի բաժանում  /  Միաձուլեք փաստաթղթերը  /  Արտահանել ընտրություն տարբեր ձևաչափերով (PDF/TXT/DOC/XLSX)  /  Խմբաքանակի փոխակերպում PDF-ի  /  Արտահանել էջերը որպես պատկերներ  /  Միանգամից մի քանի ֆայլ տպեք ...

Բովանդակության խմբագրում: Խմբաքանակի որոնում և փոխարինում Բազմաթիվ Ֆայլերի միջով   /  Չափափոխել բոլոր նկարները   /  Փոխադրել աղյուսակի տողերը և սյունակները  /  Աղյուսակը տեքստի վերափոխել ...

🧹 Անհեշտ մաքրությունՀեռացրու Լրացուցիչ տարածքներ  /  Բաժնի ընդմիջումներ  /   Բոլոր վերնագրերը  /  Տեքստային տուփեր  /  Hyperlinks  /  Հեռացման լրացուցիչ գործիքների համար այցելեք մեր Հեռացնել խումբը

Ստեղծագործական ներդիրներ: Տեղադրել Հազար բաժանիչներ  /  Նշեք վանդակները  /  Ռադիո կոճակներ  /  QR Code  /  Շտրիխ կոդ  /  Անկյունագծային աղյուսակ  /  Հավասարության վերնագիր  /  Նկարի վերնագիր  /  Աղյուսակի վերնագիր  /  Բազմաթիվ նկարներ  /  Բացահայտեք ավելին մեր Insert Group-ում

🔍 Ճշգրիտ ընտրանքներ: Նշեք կոնկրետ էջեր  /  սեղաններ  /  ձեւավորում  /  վերնագրի պարբերություններ  /  Հեշտությամբ նավարկեք՝ օգտագործելով մեր Ընտրել խումբը

Աստղերի բարելավումներ: Արագ նավարկեք ցանկացած վայր  /  կրկնվող տեքստի ավտոմատ տեղադրում  /  անխափան անցում փաստաթղթի պատուհանների միջև  /  11 Փոխակերպման գործիքներ ...

Փոխակերպեք ձեր Word-ի առաջադրանքները Kutools-ով: 👉 Ներբեռնեք հիմա 30-օրյա փորձաշրջանով 🚀.

 
Comments (70)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
thanks for -How To Search And Replace Across Multiple Files In Word?

what about from out side (by folder) ?

thanks gain
This comment was minimized by the moderator on the site
This is a great explanation.  Is there a way to change settings, e.g. page size, simultaneously? 
This comment was minimized by the moderator on the site
After pressing F5, I get the following error" "Compile error: User-defined type not defined." Can someone help?
This comment was minimized by the moderator on the site
Hi Monique,Please check if the Microsoft Office Object Library is enabled as shown in the screenshot below.
This comment was minimized by the moderator on the site
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?
This comment was minimized by the moderator on the site
I need to replace text in multiple Word files and have the replaced text highlighted. Is there a way to do this?
This comment was minimized by the moderator on the site
Hi Daphne,
Why not try the Batch Find and Replace feature of Kutools for Word? It can solve this issue with ease.
This comment was minimized by the moderator on the site
this was a lifesaver thank you so much
This comment was minimized by the moderator on the site
Is it possible to replace in the headers of the word doc?
This comment was minimized by the moderator on the site
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
This comment was minimized by the moderator on the site
Is that possible to replace in the header of the word doc?
This comment was minimized by the moderator on the site
Thanks for sharing this information with us.
Word search and replace tool
This comment was minimized by the moderator on the site
Works perfectly but is there a similar macro to change text in the header! because this does not work with this version!
thanks
This comment was minimized by the moderator on the site
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
This comment was minimized by the moderator on the site
Oh yeah! Thank you sooooo much! This is a life-saver!
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations