Näpunäide. Teised keeled on Google'i tõlgitud. Võite külastada English selle lingi versioon.
Logi sisse
x
or
x
x
Regist.
x

or

Kuidas otsida ja asendada mitme sõna failide vahel?

Kui teil on mitu tosinat sõna-faili, mis sisaldavad sama sisu (näiteks päis, jalus, mõned erisõnad või number) ja peate asendama sama sisu Wordi nende dokumentide vahel. Kuidas saaksite seda kiiremini teha? Kindlasti saate neid faile ükshaaval avada, et asendada sama sisu, kuid see on aeganõudev ja häiriv. See juhendaja näitab teile keerulist viisi, kuidas sama sisu ühes dokumendis samaaegselt asendada mitme dokumendiga.

Tekstide leidmine ja asendamine mitme sõnastikuga samaaegselt VBA-koodiga


Lihtsalt ühendage / ühendage mitu dokumenti:

The Dokumentide ühendamine kasulikkus Kutools Wordile aitab teil kiiresti koondada mitu dokumenti. Sa pead lihtsalt:

  • Valige dokumendid, mida ühendate ühega;
  • Täpsustage iga kombineeritud dokumendi vaheline vahe;
  • Alustage ühinemist. Vaata pilti:

Kutools Wordile: rohkem kui 100i käepärased Wordi lisandmoodulid, mida saate tasuta proovida 30 päeva jooksul ilma piiranguteta. Laadige alla ja proovige kohe proovige nüüd!

Kutools Wordile: Lisage 100 uusi täiustatud funktsioone sõna 2003 / 2007 / 2010 / 2013 / 2016 / 2019.
Office'i vahekaart: Lubamine Tabeldusmärgi muutmine ja sirvimine kontoris, Just nagu Chrome, Firefox, IE 8 / 9 / 10.
Klassikaline menüü Office'i jaoks: Viige Office'i 2003i tagasi Office 2007, 2010, 2013, 2016 ja 2019.

Tekstide leidmine ja asendamine mitme sõnastikuga samaaegselt VBA-koodiga

1. press muu + F11 avada Microsoft Visual Basic rakenduste jaoks aken.

2. Aastal Microsoft Visual Basic rakenduste jaoks Klõpsake aknas Sisesta > moodulid, siis kopeerige mooduli aknasse järgmine VBA kood.

VBA kood: sama sisu leidmine ja asendamine mitme dokumendi korraga

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. Vajutage nuppu F5 koodi käivitamiseks klahv.

4. Avamisel Sirvi avanevas aknas leidke ja valige soovitud dokumendid ja asendage tekst sees ning seejärel klõpsake nuppu OK nuppu. Vaata pilti:

5. Esimesel Kutools Wordile dialoogiboksis sisestage tekst, mille leiate dokumentidest dokumendis Leia mida kast ja seejärel klõpsake nuppu OK nuppu.

6. Teises Kutools Wordile dialoogiboksis sisestage tekst, mida asendada, ja klõpsake nuppu OK nuppu.

8. Klõpsa OK järgmine nupp Microsoft Word dialoogiboks otsimise ja asendamise lõpetamiseks.

Sellisel juhul asendatakse kõik valitud dokumentide sõnad "Word" samaaegselt "Exceliga".


Office'i vahekaart - Mitme dokumendi vahelehtede sirvimine, redigeerimine ja haldamine Wordis:

Office'i vahekaart ühendab veebibrauseritega nagu Google Chrome, Internet Explorer uued versioonid ja Firefox Microsoft Wordis vahekaardiga liides. See will olema aja kokkuhoiu tööriist ja oma töös asendamatu. Vaadake demo allpoolt:

Klõpsake Office'i vahekaardi tasuta proovimiseks!




Kutools Wordile

100i, 2003i, 2007i, 2010i, 2013i ja 2016i 2019 täiustatud funktsioonide funktsioonid

shot-kutools-700-225-kte

Veel | Tasuta allalaadimine | Ainult $ 39.00 sadade funktsioonide jaoks

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