Note: The other languages of the website are Google-translated. Back to English
Logga in  \/ 
x
or
x
Registrera  \/ 
x

or

Hur söker jag och ersätter flera filer i Word?

Om du har flera dussin ordfiler som innehåller samma innehåll (som sidhuvud, sidfot, några specialord eller nummer) och du måste ersätta samma innehåll över dessa dokument i Word. Hur skulle det vara lättare för dig att få det gjort snabbt? Visst kan du öppna dessa filer en efter en för att ersätta samma innehåll, men det kommer att vara tidskrävande och besvärande. Denna handledning visar dig ett knepigt sätt att ersätta samma innehåll i flera dokument i Word samtidigt.

Hitta och ersätt texter över flera orddokument samtidigt med VBA-kod
Hitta och ersätt enkelt olika texter i flera dokument samtidigt med Kutools for Word


Hitta och ersätt texter över flera orddokument samtidigt med VBA-kod

1. Tryck andra + F11 att öppna Microsoft Visual Basic för applikationer fönster.

2. I Microsoft Visual Basic för applikationer fönstret klickar InsertModulernaoch kopiera sedan följande VBA-kod till modulfönstret.

VBA-kod: Söka och ersätta samma innehåll i flera dokument samtidigt

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. tryck på F5 för att köra koden.

4. I öppningen Bläddra fönstret, välj och välj de dokument du hittar och ersätt texten inuti och klicka sedan på OK knapp. Se skärmdump:

5. I den första Kutools för Word dialogrutan, ange texten som du hittar över dokument i Hitta det och klicka sedan på OK knapp.

6. På sekunden Kutools för Word dialogrutan, ange texten du ska ersätta med och klicka på OK knapp.

8. Klicka på OK knappen i nästa Microsoft Word dialogrutan för att avsluta sökningen och ersätt.

I det här fallet ersätts alla ord "Word" i valda dokument samtidigt med "Excel".


Hitta och ersätt enkelt olika texter i flera dokument samtidigt med Kutools for Word

Här rekommenderar starkt Batch Find and Replace egenskap av Kutools för Word. Med den här funktionen kan du enkelt hitta och ersätta olika texter över flera Word-dokument samtidigt. Låt oss se hur du använder den här funktionen för att hitta och ersätta texter över dokument.

Kutools för Word : med mer än 100 praktiska Word-tillägg, gratis att prova utan begränsning på 60 dagar.

1. Klicka på Kutools Plus > Batch Find and Replace för att aktivera funktionen.

2. I Batch Find and Replace dialogrutan, konfigurera så här.

  • 2.1) Klicka på Lägg till rad knapp under Sök och ersätt flik;
  • 2.2) I de skapade radfälten:
A. Ange texten som du hittar i textrutan i hitta kolumn
B. Ange texten du ska ersätta med i textrutan i ersätta kolumn;
C. Ange en söktyp, var du hittar texten och en färg för att markera texten efter behov. I det här fallet väljer jag Fullständig ordmatchning, Huvuddokument och en viss färg från Söktyp, Hitta i och Markera kolumner;
  • 2.3) Upprepa steg 2.1 och 2.2 för att lägga till fler texter du hittar och ersätter;
  • 2.4) Klicka på  knapp i Filtyp avsnitt för att lägga till Word-dokument där du hittar och ersätter texter;
  • 2.5) Klicka på ersätta or hitta knapp. Se skärmdump:

Anmärkningar:
1. Om du klickar på hitta -knappen visas alla sökresultat under Förhandsgranska resultat flik. När du har förhandsgranskat resultaten, om du vill ersätta alla texter, klicka på Sök och ersätt flik. Annars stänger du dialogrutan.

2. Om du klickar på ersätta knappen kommer alla angivna texter att ersättas med nya omedelbart och resultaten kommer också att visas under Förhandsgranska resultat fliken.

3. Om du anger markeringsfärger i steg 2 markeras alla ersatta texter med angivna färger och du kan enkelt hitta dem med en överblick i dokument.

3. Stäng Batch Find and Replace dialogrutan

För mer information om den här funktionen, vänligen Klicka här....

Om du vill ha en gratis testversion av det här verktyget, gå till ladda ner programvaran gratis först och sedan tillämpa operationen enligt ovanstående steg.



Rekommenderade Word-produktivitetsverktyg

 

Kutools för Word - Mer än 100 avancerade funktioner för Word, spara 50% tid

  • Komplicerade och upprepade operationer kan göras engångsbehandling på några sekunder.
  • Infoga flera bilder över mappar i Word-dokumentet samtidigt.
  • Slå ihop och kombinera flera Word-filer över mappar till en med önskad ordning.
  • Dela upp det aktuella dokumentet i separata dokument enligt rubrik, avsnittbrytning eller andra kriterier.
  • Konvertera filer mellan Doc och Docx, Docx och PDF, samling verktyg för vanliga konverteringar och val, och så vidare ...

Say something here...
symbols left.
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.
    Jebidiah Springfield · 7 years ago
    Wow you are a saint for putting this macro together! I am listening to 'Epic Battle Music' on Songza because I am such an amatuer Macro-smith and it's the only way I can make it through the pain and agony of crafting programming spells.

    Anyway, my point I am going to make is a spent a lot of time on Friday troubleshooting the part where you actually put in the text you want to find and putting in the text you want to replace - I did not quite understand this part in terms of where I put my "find" word text and "replace" word text:

    [quote]Note:you can change the Text = "search”, Replacement.Text = "find” to specify the content to be searched and the content to be applied for replacement.
    [/quote]

    I read over this again today and I wish to respectfully clarify for other programming non-initiates - in the section of VBA where you have copied and pasted the original programming language, make sure you put an end ' after the [i]what [/i] and a ' after the [i]with[/i] (see example below) - in my example, I am looking for multiple documents to replace Pizza with Stromboli:

    .Text = "Pizza" 'Find What'
    .Replacement.Text = "Stromboli" 'Replace With'
  • To post as a guest, your comment is unpublished.
    James R · 7 years ago
    Could this VBA technique be adapted to work for Publisher files? For example by changing *.docx to *.pub ?
  • To post as a guest, your comment is unpublished.
    Patrick · 7 years ago
    When you run the macro, the "Open" window will open. Navigate to the folder that contains the files you need to make the change to, then click once on the first one, then, while holding down the "Ctrl" key, click on the other files also requiring the find/replace. If all files in the folder need the action, just press the "Ctrl" and "A" keys. Then click on "Open" or press the "Enter" key, and the macro will begin.

    I should warn you, as I've performed this dozens of times at work: The macro will result in the changes being made only to the *body* of the Word document; headers, footers, and title text/alt-text will be excluded. If you have text in the aforementioned portions that needs replacing, you will have to perform a standard find/replace across individual documents.
  • To post as a guest, your comment is unpublished.
    Alison Pepper · 7 years ago
    Yes I have the same question as i think this would be useful but want to tell it to only look in certain folders.
  • To post as a guest, your comment is unpublished.
    Bobette · 7 years ago
    Will it ask where the documents in question are located? Or do all the documents need to be open?
    • To post as a guest, your comment is unpublished.
      PatrickRsGhost · 6 years ago
      When you run it, by default it will open up the "Open File" dialogue window to "My Documents". Navigate to the folder that contains the Word files you wish to make the changes to. You can press "Ctrl" + "A" to select all files, or hold down the "Ctrl" key while selecting certain files. Click on "Open" or press "Enter" and watch the magic happen.