A sütik segítenek nekünk Szolgáltatásainkat. Segítségével szolgáltatásainkat, Ön elfogadja a cookie-k használatát.
Tipp: Az egyéb nyelvek a Google Fordítva vannak. Látogasson el a English a link verziója.
Belépek
x
or
x
x
Regisztráció
x

or

Hogyan kereshet és helyettesíthet több fájlt a szóban?

Ha több tucat szófájl van, amelyek ugyanazt a tartalmat tartalmazzák (például fejléc, lábléc, néhány speciális szó vagy szám), és ugyanazt a tartalmat kell kicserélnie az említett dokumentumokon a Wordben. Hogyan lenne könnyebb gyorsan elvégezni? Természetesen ezek a fájlok egyenként is megnyithatók ugyanazon tartalom helyett, de időigényes és problémás lesz. Ez a bemutató olyan bonyolult módon jeleníti meg Önt, amely egyszerre több dokumentumon belül helyet foglal a Word-ben.

Keresse meg és cserélje le a szövegeket több szó dokumentumon egyszerre a VBA kóddal


Kombináljon vagy egyesítsen több dokumentumot egy egyszerűen:

A Dokumentumok egyesítése hasznossága Kutools for Word segít Önnek abban, hogy egyszerre több dokumentumot egyesítsen. Csak meg kell:

  • Válassza ki azokat a dokumentumokat, amelyeket egyesít;
  • Adja meg az egyes kombinált dokumentumok közötti megszakítást;
  • Indítsa el az egyesülést. Lásd a képernyőképet:

Kutools for Word: több mint 100 praktikus Word bővítményekkel, szabadon próbálkozhat semmilyen korlátozással az 30 napokban. Töltse le és ingyen próbálja most!

Kutools for Word: Add hozzá az 100 új fejlett funkcióit a 2003 / 2007 / 2010 / 2013 / 2016 / 2019 szóhoz.
Office Tab: Engedélyezze Táblát szerkeszteni és böngészni az irodában, Csakúgy, mint a Chrome, a Firefox, az IE 8 / 9 / 10.
Klasszikus menü az Office számára: Hozd az Office 2003 Back Look-ot az Office 2007, az 2010, az 2013, az 2016 és az 2019.

Keresse meg és cserélje le a szövegeket több szó dokumentumon egyszerre a VBA kóddal

1. nyomja meg más + F11 megnyitni Microsoft Visual Basic for Applications ablak.

2. Ban,-ben Microsoft Visual Basic for Applications ablakban kattintson betétlap > Modulok, majd másolja a következő VBA kódot a Modul ablakba.

VBA kód: Egyszerre több dokumentumban keresni és kicserélni ugyanazt a tartalmat

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. megnyomni a F5 kulcs a kód futtatásához.

4. A nyitóban Tallózás ablakban keresse meg és válassza ki a talált dokumentumokat, majd helyezze be a szöveget, majd kattintson a OK gomb. Lásd a képernyőképet:

5. Az első Kutools for Word párbeszédpanelen írja be a dokumentumban található szövegeket a Mit keres mezőbe, majd kattintson a ikonra OK gombot.

6. A másodikban Kutools for Word párbeszédpanelen írja be a kicserélendő szöveget, majd kattintson a OK gombot.

8. Kattintson a OK gombot a következőben Microsoft Word párbeszédablakot a keresés és kicserélés befejezéséhez.

Ebben az esetben a kiválasztott szavakban a "Word" szavakat egy időben "Excel" -el helyettesítik.


Office Tab - A Word több dokumentumának böngészése, szerkesztése és kezelése:

Az Office-fül a webes böngészőkben, például a Google Chrome-ban, az Internet Explorer új verzióiban és a Firefox-ban a Microsoft Word-hez képest megjelenő lapolvasó felületet hozza. Azt lesz legyen időtakarékos eszköz, és helyettesíthetetlen a munkádban. Lásd az alábbi bemutatót:

Kattintson az Office Tab futtatására!




Kutools for Word

Több mint 100 Fejlett funkciók a Word 2003, 2007, 2010, 2013, 2016 és 2019

shot-kutools-700-225-KTE

További funkciók | ingyenes letöltés | Csak $ 39.00 több száz funkcióért

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.
    martinadam · 1 months ago
    Thanks for sharing this information with us.
    Word search and replace tool
  • To post as a guest, your comment is unpublished.
    ankit saini · 2 months ago
    This is really good
  • To post as a guest, your comment is unpublished.
    nathalie · 3 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 · 10 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. :(
  • To post as a guest, your comment is unpublished.
    Kath · 11 months ago
    Hi there, is there a code for replacing with text that is multiple sentences, with bullet points and quotation marks in MS word using this code - which is fantastic !