Tip: Andre sprog er Google-oversat. Du kan besøge English version af dette link.
Log på
x
or
x
x
Tilmeld
x

or

Hvordan søge og erstatte på tværs af flere filer i Word?

Hvis du har flere dusin ordfiler, der indeholder det samme indhold (f.eks. Header, footer, nogle specielle ord eller tal), og du skal erstatte det samme indhold på tværs af disse dokumenter i Word. Hvordan ville det være lettere for dig at få det gjort hurtigt? Du kan helt sikkert åbne disse filer en efter en for at erstatte det samme indhold, men det vil være tidskrævende og besværligt. Denne vejledning viser dig en vanskelig måde at erstatte det samme indhold i flere dokumenter i Word på én gang.

Find og erstat tekster på tværs af flere orddokumenter samtidig med VBA-kode


Kombiner / flett flere dokumenter til en enkelt:

Det Flette dokumenter nytte af Kutools for Word kan hjælpe dig med at kombinere flere dokumenter hurtigt til én. Du skal bare:

  • Vælg de dokumenter, du vil kombinere i en;
  • Angiv pause mellem hvert kombineret dokument;
  • Begynd sammenlægning. Se skærmbillede:

Kutools for Word: Med mere end 100 praktiske Word-tilføjelser kan du prøve uden begrænsning i 30 dage. Download og gratis prøveversion nu!

Kutools for Word: Tilføj 100 Nye avancerede funktioner til Word 2003 / 2007 / 2010 / 2013 / 2016 / 2019.
Office-fanen: Aktiver Tabbed redigering og browsing i Office, Ligesom Chrome, Firefox, IE 8 / 9 / 10.
Klassisk menu til Office: Tag det gamle look af Office 2003 tilbage til Office 2007, 2010, 2013, 2016 og 2019.

Find og erstat tekster på tværs af flere orddokumenter samtidig med VBA-kode

1. Trykke andre + F11 at åbne Microsoft Visual Basic til applikationer vindue.

2. i Microsoft Visual Basic til applikationer vindue, skal du klikke på indsatte > Moduler, og kopier derefter følgende VBA-kode til modulvinduet.

VBA-kode: Søgning og erstatning af samme indhold på tværs af flere dokumenter ad gangen

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. Tryk på F5 nøgle til at køre koden.

4. I åbningen Gennemse vindue, find og vælg de dokumenter, du finder og erstat tekst indeni, og klik derefter på OK knap. Se skærmbillede:

5. Først og fremmest Kutools for Word dialogboksen, skriv den tekst, du finder på tværs af dokumenter i Find hvad boks, og klik derefter på OK knappen.

6. I den anden Kutools for Word dialogboksen, indtast den tekst, du vil erstatte med, og klik på knappen OK knappen.

8. Klik på OK knappen i den næste Microsoft Word dialogboksen for at afslutte søgningen og erstatte.

I dette tilfælde erstattes alle ord "Word" i udvalgte dokumenter samtidigt med "Excel".


Office-fanen - Tabbed browsing, redigering og administration af flere dokumenter i Word:

Office-fanen bringer den fladede grænseflade som set i webbrowsere som Google Chrome, Internet Explorer-versioner og Firefox til Microsoft Word. Det vilje Vær et tidsbesparende værktøj og uerstatteligt i dit arbejde. Se nedenfor demo:

Klik for gratis prøveversion af Office-fanen!




Kutools for Word

Mere end 100 Avancerede funktioner til Word 2003, 2007, 2010, 2013, 2016 og 2019

shot-kutools-700-225-KTE

Flere funktioner | Gratis download | Kun $ 39.00 til hundredvis af funktioner

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.
    Merlin409 · 3 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.
    ------------------------------------------------------------
  • To post as a guest, your comment is unpublished.
    Milo · 3 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.
  • To post as a guest, your comment is unpublished.
    Mario · 3 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
  • To post as a guest, your comment is unpublished.
    Moh · 3 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?
  • To post as a guest, your comment is unpublished.
    Pia · 3 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.