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áljon 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.
A legjobb irodai hatékonyságnövelő eszközök
Kutools for Word - Növelje Word-élményét az Over segítségével 100 Figyelemre méltó tulajdonságok!
🤖 Kutools AI asszisztens: Alakítsa át írását mesterséges intelligencia segítségével - Tartalom létrehozása / Szöveg átírása / Összefoglalja a dokumentumokat / Információért érdeklődjön dokumentum alapján, mindezt a Word-en belül
📘 Dokumentummesterség: Felosztott oldalak / Dokumentumok egyesítése / Kijelölés exportálása különböző formátumokban (PDF/TXT/DOC/HTML...) / Kötegelt konvertálás PDF-be / Oldalak exportálása képként / Nyomtasson több fájlt egyszerre...
✏ Tartalom Szerkesztés: Kötegelt keresés és csere Több fájl között / Minden kép átméretezése / Transzponálja a táblázat sorait és oszlopait / Táblázat konvertálása szöveggé...
🧹 Könnyed tisztítás: Söpörj el Extra helyek / Szakaszszünetek / Minden fejléc / Szövegdobozok / Hiperhivatkozások / További eltávolító eszközökért látogasson el a mi oldalunkra Csoport eltávolítása...
➕ Kreatív betétek: Beszúrás Ezer elválasztó / Jelölőnégyzetek / Rádió gombok / QR-kód / Vonalkód / Átlós vonal táblázat / Egyenletfelirat / Képfelirat / Táblázat felirata / Több kép / Fedezzen fel többet a Csoport beszúrása...
???? Precíziós kiválasztás: Pontosan konkrét oldalak / asztalok / formák / címsor bekezdései / A navigáció javítása a következővel: több Jelölje ki a funkciókat...
⭐ Star Enhancements: Gyorsan navigáljon bármely helyre / ismétlődő szöveg automatikus beszúrása / zökkenőmentesen válthat a dokumentumablakok között / 11 Konverziós eszközök...