Note: The other languages of the website are Google-translated. Back to English

Hogyan lehet egyszerre több szót megtalálni és lecserélni egy Word dokumentumban?

A Word egy Keresés és csere funkciót kínál a szó vagy kifejezés összes példányának megkereséséhez és egyidejűleg új szóval történő helyettesítéséhez. De ha egyszerre szeretne különböző szavakat keresni és kicserélni, akkor ez a beépített funkció nem segíthet. Ebben a cikkben egy VBA módszerről beszélünk, amely egyszerre több különböző szót keres és cserél a Word dokumentumban.

Keressen és cseréljen le egyszerre több szót a Wordben VBA kóddal
Könnyen megtalálhatja és lecserélheti egyszerre több szót egy Word-ben egy csodálatos funkcióval


Keressen és cseréljen le egyszerre több szót a Wordben VBA kóddal

Kérjük, tegye a következőket, ha egyszerre több szót szeretne keresni és kicserélni egy Word dokumentumban.

1. Nyissa meg a keresni kívánt Word-dokumentumot, és cserélje ki egyszerre több szót, majd nyomja meg a gombot más + F11 billentyűk megnyitásához Microsoft Visual Basic for Applications ablak.

2. Ban,-ben Microsoft Visual Basic for Applications ablakban kattintson betétlap > Modult. Ezután másolja a VBA kód alatt a Modul ablakba.

VBA kód: Több szó keresése és cseréje egyszerre a Wordben

Sub FindAndReplaceMultiItems()
'Update by ExtendOffice 2018/10/25
    Dim xFind As String
    Dim xReplace As String
    Dim xFindArr, xReplaceArr
    Dim I As Long
    Application.ScreenUpdating = False
    xFind = InputBox("Enter items to be found here,seperated by comma: ", "Kutools for Word")
    xReplace = InputBox("Enter new items here, seperated by comma: ", "Kutools for Word")
    xFindArr = Split(xFind, ",")
    xReplaceArr = Split(xReplace, ",")
    If UBound(xFindArr) <> UBound(xReplaceArr) Then
        MsgBox "Find and replace characters must be equal.", vbInformation, "Kutools for Word"
        Exit Sub
    End If
    For I = 0 To UBound(xFindArr)
        Selection.HomeKey Unit:=wdStory
        With Selection.Find
            .ClearFormatting
            .Replacement.ClearFormatting
            .Text = xFindArr(I)
            .Replacement.Text = xReplaceArr(I)
            .Format = False
            .MatchWholeWord = False
        End With
        Selection.Find.Execute Replace:=wdReplaceAll
    Next
    Application.ScreenUpdating = True
End Sub

3. megnyomni a F5 gombot a kód futtatásához.

4. Az elsőben Kutools for Word párbeszédpanelen írja be a megtalált és kicserélt több szót a szövegmezőbe, és vesszővel válassza el őket, majd kattintson a gombra OK gomb. Lásd a képernyőképet:

5. A másodikban Kutools for Word párbeszédpanelen írja be az új szavakat, amelyekre cserélni kívánja (ezeket a szavakat vesszővel is el kell választani), majd kattintson a gombra OK gombot.

Jegyzet: Ebben az esetben mind „KTE” ebben a dokumentumban a következőre kerül: "Új", és a „KTO” és a „KTW” helyettesíteni fogják "Teszt" és a "Befejez". Kérjük, módosítsa őket az Ön igényeinek megfelelően.


Könnyen megtalálhatja és lecserélheti egyszerre több szót egy Word-ben egy csodálatos funkcióval

A Kötegelt keresés és csere jellemzője Kutools for Word segíthet a különböző szövegek egyszerű megtalálásában és cseréjében egy dokumentumban vagy több dokumentumban egyszerre.

Mielőtt alkalmazná ezt a funkciót, kérjük, szánjon néhány percet erre először töltse le és telepítse.

1. Indítsa el a Microsoft Word alkalmazást, kattintson a gombra Kutools Plus > Kötegelt keresés és csere.

2. Ban,-ben Kötegelt keresés és csere ablakot, kérjük, konfigurálja a következőképpen.

  • 2.1 kattintson a gombra gomb> Fájl hozzáadása or Mappa hozzáadása egy vagy több dokumentum hozzáadásához, amelyben több szót is megtalál és kicserél.
  • 2.2 Kattintson a gombra Sor hozzáadása gombra a mezők megkereséséhez és cseréjéhez. Ha egyszerre három különböző szöveget szeretne megtalálni és kicserélni, kérjük, hozzon létre három sort.
  • 2.3 Minden sorba írja be a meglévő szavakat, amelyeket kicserél egy újakra a Találj oszlopban, majd írja be az új szavakat a Cserélje oszlop.
  • 2.4 Adja meg a Keresés típusa minden sorhoz.
  • 2.5 A Keresse meg oszlopban válassza ki a keresés és a csere helyét. Magába foglalja Fő dokumentum, Fejléc és a Lábléc ebben a részben. Választhat közülük egyet, kettőt vagy mindegyiket az igényeinek megfelelően.
  • 2.6. Kattintson a Cserélje gombot a művelet megkezdéséhez. Lásd a képernyőképet:

Ezután a konkrét szavakat egyszerre cserélik ki a kiválasztott dokumentumokba.

Tipp: Kiemelheti az eredményt háttérszínnel, ha megad egy bizonyos színt a Kiemel oszlopot egy sorhoz.

  Ha ingyenes (60 napos) próbaverziót szeretne kapni a segédprogramról, kattintson a letöltéshez, majd lépjen a művelet végrehajtására a fenti lépések szerint.


Ajánlott Word-termelékenységi eszközök

 

Kutools for Word - Több mint 100 speciális szolgáltatás a Word számára, takarítson meg 50% időt

  • A bonyolult és ismételt műveletek másodpercek alatt egyszeri feldolgozást végezhetnek.
  • Egyszerre több képet illesszen be a mappákba a Word dokumentumba.
  • Egyesítsen és egyesítsen több Word-fájlt a mappák között a kívánt sorrenddel.
  • Bontja az aktuális dokumentumot külön dokumentumokká címsor, szakasz törés vagy egyéb szempontok szerint.
  • Fájlok konvertálása a Doc és a Docx, a Docx és a PDF között, a közös konverzióhoz és kiválasztáshoz szükséges eszközök gyűjteménye stb.
A megjegyzések rendezése szerint
Hozzászólások (21)
Még nincs értékelés. Legyen Ön az első, aki értékel!
A weboldal moderátora ezt a megjegyzést minimalizálta
Toto jsem hledal, jen potřebuji pro hledaný text přidat nějaké formátování. Jak toho dosáhnu?
A weboldal moderátora ezt a megjegyzést minimalizálta
működni fog ez az Office Excel 365-ben
A weboldal moderátora ezt a megjegyzést minimalizálta
Valami módon kényessé teheti ezt az esetet?
A weboldal moderátora ezt a megjegyzést minimalizálta
Szia! Ez jól működik az angol szavakkal. Most készítek egy dokumentumot, ahol angolról gudzsarátira fordítok. Tehát amikor ezt alkalmazom (Angol szavak keresése) és (Csere gudzsaráti szavakkal), akkor megváltozik, de úgy tűnik, hogy "???". Nem a gudzsaráti szót mutatja, hanem csak kérdőjeleket? További segítség? Kérem.
A weboldal moderátora ezt a megjegyzést minimalizálta
Szia Shailesh, ugyanezzel a problémával küzdünk. Találtál rá megoldást. Azt is próbálom kitalálni, hogyan váltsak kínairól angolra.
A weboldal moderátora ezt a megjegyzést minimalizálta
Hogyan lehet egyszerre több szót keresni és kiválasztani
A weboldal moderátora ezt a megjegyzést minimalizálta
Szia,
A kód futtatása után egy Kutools for Excel párbeszédpanel jelenik meg, kérjük adja meg a megtalált kulcsszavakat, és válassza el őket vesszővel.
A weboldal moderátora ezt a megjegyzést minimalizálta
Szia, hogyan lehet ezt a makrót felülvizsgálni, hogy több kulcsszót tartalmazzon? Körülbelül 170 szavam van, amit szeretnék megtalálni és lecserélni
A weboldal moderátora ezt a megjegyzést minimalizálta
Szia JM!
A kód futtatása után egy Kutools for Excel párbeszédpanel jelenik meg, kérjük adja meg a megtalált kulcsszavakat, és válassza el őket vesszővel.
A weboldal moderátora ezt a megjegyzést minimalizálta
Szia! Először is gratulálok a munkájához: ez a makró nagyon hasznos és érdekes! Ennek ellenére szeretném, ha egy dologban segítene. Lektor vagyok, és szeretném, ha a pótlásokat zöld vagy piros színnel emelnék ki. Hogyan tudom ezt megtenni? Van olyan kódsor, amelyet használhatok?
A weboldal moderátora ezt a megjegyzést minimalizálta
Szia! A Kutools for Word Batch Find and Replace funkciója tökéletesen megoldja a problémát, próbálkozhat.
A weboldal moderátora ezt a megjegyzést minimalizálta
A Csere gomb megnyomása után csak az Előnézetbe kerül, és nem csinál semmit.
A weboldal moderátora ezt a megjegyzést minimalizálta
Szia Ajs! A Csere gomb megnyomása után minden szükséges szót sikeresen lecseréltünk. Az Előnézet lapra kerül, hogy megtudja, hány szót sikerült lecserélni. Ezt követően zárja be a párbeszédpanelt.
A weboldal moderátora ezt a megjegyzést minimalizálta
Mi van, ha vesszőt próbálok helyettesíteni?
A weboldal moderátora ezt a megjegyzést minimalizálta
A VBA-kód nem tud segíteni a vesszők cseréjében. Akkor alkalmazza Kutools elérni.
A weboldal moderátora ezt a megjegyzést minimalizálta
Az első utasításban (Több szó keresése és cseréje egyszerre a Wordben VBA-kóddal) nem találja azokat az eseteket, amikor a lecserélendő szó egy szó közepére esik (például a webhely nevét követő .com). . Lehet ezt úgy módosítani?
A weboldal moderátora ezt a megjegyzést minimalizálta
Köszönjük a projektet, meg tudná tenni úgy, hogy a betűket szavakban is helyettesítsük. Például, ha a dollárt Dollarra akarom váltani, ez nem működik.
A weboldal moderátora ezt a megjegyzést minimalizálta
Chào bạn, có cách nào thay thế RẤT NHIỀU cụm từ bằng RẤT NHIỀU cụm từ khác (nhập từng cụm từ rất mất thời gian) bằng cách m lập một file trong đó có 2 cột, 1 cột là cụm từ nguồn và cột 2 là cụm từ đích được không? rất cám ơn bạn.
A weboldal moderátora ezt a megjegyzést minimalizálta
Szia Nguyễn Phúc Lâm!
Azt javaslom, hogy alkalmazza a Kutools for Word Batch Find and Replace funkcióját (a második módszer ebben a bejegyzésben) a probléma megoldásához.
A Keresés és csere párbeszédpanelen, miután létrehozta a két szükséges oszlopot, elmentheti az aktuális beállításokat forgatókönyvként későbbi felhasználás céljából.
https://www.extendoffice.com/images/stories/comments/comment-picture-zxm/find_and_replace.png
A weboldal moderátora ezt a megjegyzést minimalizálta
Cám ơn kristály, cách này có thể áp dụng với một số lượng nhỏ các cụm từ, nếu với số lượng các cụm từ lớn (hơn 1000, hơn 10000 .. cụm từ) thì rấ ể ể ể co thể coTg. Vậy có cách nào khác không bạn? Cám ơn bạn đã trả lời
A weboldal moderátora ezt a megjegyzést minimalizálta
Szia Nguyễn Phúc Lâm!
Átmenetileg nem tudom kezelni ezt a problémát a VBA-kóddal, mivel az kissé összetett. Ez a funkció a következő kiadásban frissítésre kerül. Elnézést a kellemetlenségért.
Még senki sem írt megjegyzést
Hagyja meg észrevételeit
Feladás vendégként
×
Értékeld ezt a bejegyzést:
0   Karakterek
Javasolt helyek

Kövess minket

Copyright © 2009 - www.extendoffice.com. | Minden jog fenntartva. Powered by ExtendOffice. | Oldaltérkép
A Microsoft és az Office logó a Microsoft Corporation védjegyei vagy bejegyzett védjegyei az Egyesült Államokban és / vagy más országokban.
Sectigo SSL védi