Ábending: Önnur tungumál eru Google-þýdd. Þú getur heimsótt English útgáfa af þessum tengil.
Skrá inn
x
or
x
x
Nýskráning
x

or

Hvernig á að leita og skipta yfir margar skrár í orði?

Ef þú hefur nokkrar tugi orðaskrár sem innihalda sama efni (svo sem Header, footer, nokkur sérstök orð eða númer), og þú þarft að skipta um sama efni yfir þessi skjöl í Word. Hvernig væri auðveldara fyrir þig að fá það fljótt? Vissulega getur þú opnað þær skrár einn í einu til að skipta um sama efni, en það verður tímafrekt og erfiður. Þessi kennsla mun sýna þér erfiður leið til að skipta um sama efni innan margra skjala í Word í einu.

Finndu og skiptu texta yfir mörg orð skjöl á sama tíma með VBA kóða


Sameina / sameina mörg skjöl í einn auðveldlega:

The Sameina skjöl gagnsemi Kutools fyrir Word getur hjálpað þér að sameina mörg skjöl í einn fljótt. Þú þarft bara að:

  • Veldu skjölin sem þú munt sameina í einn;
  • Tilgreindu hléið á milli hvert sameint skjal;
  • Byrja að sameina. Sjá skjámynd:

Kutools fyrir Word: með fleiri en 100 handhægum Word viðbótum, ókeypis að reyna án takmörkunar á 30 dögum. Niðurhal og ókeypis prufa núna!

Kutools fyrir Word: Bæta við 100 New Advanced Features til Orð 2003 / 2007 / 2010 / 2013 / 2016 / 2019.
Office flipi: Virkja Flipaútgáfa og vafra á skrifstofu, Rétt eins og Króm, Firefox, IE 8 / 9 / 10.
Classic valmynd fyrir skrifstofu: Komdu með gamla útlitið af Office 2003 Back til Office 2007, 2010, 2013, 2016 og 2019.

Finndu og skiptu texta yfir mörg orð skjöl á sama tíma með VBA kóða

1. Ýttu á Alt + F11 að opna Microsoft Visual Basic fyrir forrit gluggi.

2. Í Microsoft Visual Basic fyrir forrit glugga, smella Setja > Mát, afritaðu síðan eftirfarandi VBA kóða í Module gluggann.

VBA kóða: Leitað og skipta um sama efni á mörgum skjölum í einu

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. Ýttu á F5 lykillinn að því að keyra kóðann.

4. Í opnuninni Vafra gluggi skaltu finna og velja skjölin sem þú finnur og skipta um texta inni og smelltu síðan á OK takki. Sjá skjámynd:

5. Í fyrsta lagi Kutools fyrir Word valmynd, sláðu inn texta sem þú finnur yfir skjöl í Finndu hvað kassi og smelltu síðan á OK hnappinn.

6. Í seinni Kutools fyrir Word valmynd, sláðu inn textann sem þú verður að skipta með og smelltu á OK hnappinn.

8. Smelltu á OK hnappur í næsta Microsoft Word valmynd til að ljúka við að finna og skipta um.

Í þessu tilviki eru öll orðin "Orð" í völdum skjölum skipt út fyrir "Excel" á sama tíma.


Office flipi - Flipa, breyta og stjórna mörgum skjölum í Word:

Skrifstofa flipi færir flipa tengi eins og sést í vefur flettitæki eins og Google Chrome, nýjar útgáfur af Internet Explorer og Firefox í Microsoft Word. Það mun Vertu tímabundið tól og óbætanlega í vinnunni þinni. Sjá hér fyrir neðan kynningu:

Smelltu til að fá ókeypis próf á Office Tab!




Kutools fyrir Word

Meira en 100 Advanced Aðgerðir fyrir Word 2003, 2007, 2010, 2013, 2016 og 2019

skot-kutools-700-225-kte

Fleiri eiginleikar | Ókeypis niðurhal | Aðeins $ 39.00 fyrir hundruð virka

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.
    Tiago · 26 days ago
    Is it possible to replace in the headers of the word doc?
    • To post as a guest, your comment is unpublished.
      crystal · 22 days 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
  • To post as a guest, your comment is unpublished.
    dsadasd · 26 days ago
    Is that possible to replace in the header of the word doc?
  • To post as a guest, your comment is unpublished.
    martinadam · 3 months ago
    Thanks for sharing this information with us.
    Word search and replace tool
  • To post as a guest, your comment is unpublished.
    nathalie · 5 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.
      crystal · 22 days 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
  • To post as a guest, your comment is unpublished.
    blds · 1 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. :(