Ինչպե՞ս գտնել և փոխարինել միանգամից բազմաթիվ բառեր Word փաստաթղթում:

Word- ը տրամադրում է «Գտիր և փոխարինիր» գործառույթը `բառի կամ արտահայտության բոլոր օրինակները գտնելու և դրանք միաժամանակ նոր բառով փոխարինելու համար: Բայց եթե ուզում եք միաժամանակ գտնել և փոխարինել տարբեր բառեր, այս ներկառուցված գործառույթը չի կարող օգնել: Այս հոդվածում մենք խոսում ենք Word փաստաթղթում միանգամից մի քանի տարբեր բառեր գտնելու և փոխարինելու VBA մեթոդի մասին:

Word- ում միաժամանակ գտեք և փոխարինեք բազմաթիվ բառեր VBA կոդով
Word- ում միանգամից հեշտությամբ գտեք և փոխարինեք բազմաթիվ բառեր զարմանալի հատկությամբ

Word- ում միաժամանակ գտեք և փոխարինեք բազմաթիվ բառեր VBA կոդով

Խնդրում ենք արեք հետևյալը ՝ Word փաստաթղթում միաժամանակ գտնելու և փոխարինելու բազմաթիվ բառեր:

1. Բացեք Word փաստաթուղթը, որը ցանկանում եք գտնել և միաժամանակ փոխարինել բազմաթիվ բառեր, ապա սեղմել կոճակը ալտ + F11 բացել ստեղները Microsoft Visual Basic հավելվածների համար պատուհան.

2. Մեջ Microsoft Visual Basic հավելվածների համար պատուհանը, սեղմեք Տեղադրել > Մոդուլ. Դրանից հետո VBA կոդի ներքո պատճենեք Մոդուլի պատուհանում:

VBA կոդ. Word- ում միևնույն ժամանակ գտիր և փոխարինիր բազմաթիվ բառեր

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. Սեղմեք F5 ծածկագիրը գործելու համար:

4. Առաջինում Kutools բառի համար երկխոսության տուփ, մուտքագրեք ձեր գտած բազմաթիվ բառերը և փոխարինեք տեքստային տուփի մեջ և դրանք բաժանեք ստորակետով, ապա կտտացրեք այն OK կոճակ Տեսեք,

5. Երկրորդում Kutools բառի համար երկխոսության տուփ, մուտքագրեք նոր բառերը, որոնք դուք կփոխարինեք (այս բառերը նույնպես պետք է բաժանվեն ստորակետերով) և այնուհետև կտտացրեք այն OK կոճակը:

Նշում: Այս դեպքում բոլորը «KTE» այս փաստաթղթում կփոխարինվի «Նոր», և «KTO» և «KTW» կփոխարինվի "Փորձարկում" և «Ավարտել»: Խնդրում ենք փոխել դրանք ձեր կարիքների համար:

Word- ում միանգամից հեշտությամբ գտեք և փոխարինեք բազմաթիվ բառեր զարմանալի հատկությամբ

1. Գործարկել Microsoft Word ծրագիրը, կտտացրեք Kutools Plus > Խմբաքանակի որոնում և փոխարինում.

2. Մեջ Խմբաքանակի որոնում և փոխարինում պատուհանը, խնդրում ենք կազմաձևել հետևյալ կերպ.

• 2.1 կտտացրեք կոճակ> Ավելացնել Ֆայլեր or Երկապանակ ավելացնել ավելացնել մեկ կամ ավելի փաստաթղթեր, որոնցում դուք կգտնեք և կփոխարինեք բազմաթիվ բառեր:
  
• 2.2 սեղմեք Ավելացնել շարասյուն դաշտերը գտնելու և փոխարինելու համար տեղադրելու կոճակը: Եթե ​​ցանկանում եք գտնել և փոխարինել միաժամանակ երեք տարբեր տեքստեր, խնդրում ենք ստեղծել երեք տող:
• 2.3 Յուրաքանչյուր շարքում մուտքագրեք գոյություն ունեցող բառերը, որոնք դուք կփոխարինեք նոր բառերով Գտնել սյունակում, ապա մուտքագրեք նոր բառերը ՝ Փոխարինել սյունակ:
• 2.4 Նշեք Որոնման տեսակը յուրաքանչյուր շարքի համար:
• 2.5 Գտեք սյունակում ընտրեք, թե որտեղ կիրառել գտածոն և փոխարինել: Այն ներառում է Հիմնական փաստաթուղթ, Գլխավայր ցատկ և Google Խմբերի սկզբնական էջ այս բաժնում: Դուք կարող եք ընտրել դրանցից մեկը, երկուսը կամ բոլորը `ելնելով ձեր կարիքներից:
• 2.6. Սեղմեք Փոխարինել գործողությունը սկսելու կոճակը: Տեսեք,

Դրանից հետո հատուկ բառերը միաժամանակ փոխարինվում են ընտրված փաստաթղթերում:

Ձեր պատասխանը ուղարկված չէ: Արդյունքը կարող եք ընդգծել ֆոնի գույնով ՝ նշելով որոշակի գույն Առաջ քաշել անընդմեջ սյունակ:

  Եթե ​​ցանկանում եք ունենալ այս օգտակար ծառայության անվճար փորձարկում (60-օրյա), խնդրում ենք կտտացնել այն ներբեռնելու համար, և այնուհետև անցեք գործողությունը կիրառելու վերը նշված քայլերին համապատասխան:

Գրասենյակի արտադրողականության լավագույն գործիքները

Kutools բառի համար - Բարձրացրեք ձեր բառի փորձը Over-ի հետ 100 Ուշագրավ առանձնահատկություններ!

🤖 Kutools AI օգնականՓոխակերպեք ձեր գրածը AI-ի միջոցով - Ստեղծեք բովանդակություն  /  Վերաշարադրել տեքստը  /  Ամփոփել փաստաթղթերը  /  Հարցրեք տեղեկատվության համար Փաստաթղթի հիման վրա, բոլորը Word-ի շրջանակներում

📘 Փաստաթղթերի տիրապետում: Էջերի բաժանում  /  Միաձուլեք փաստաթղթերը  /  Արտահանել ընտրություն տարբեր ձևաչափերով (PDF/TXT/DOC/HTML...)  /  Խմբաքանակի փոխակերպում PDF-ի  /  Արտահանել էջերը որպես պատկերներ  /  Միանգամից մի քանի ֆայլ տպեք...

✏ Բովանդակության խմբագրում: Խմբաքանակի որոնում և փոխարինում Բազմաթիվ Ֆայլերի միջով  /  Չափափոխել բոլոր նկարները  /  Փոխադրել աղյուսակի տողերը և սյունակները  /  Աղյուսակը տեքստի վերափոխել...

🧹 Անհեշտ մաքրություն:Հեռացրու Լրացուցիչ տարածքներ  /  Բաժնի ընդմիջումներ  /  Բոլոր վերնագրերը  /  Տեքստային տուփեր  /  Hyperlinks  / Լրացուցիչ հեռացման գործիքների համար այցելեք մեր Հեռացնել խումբը...

➕ Ստեղծագործական ներդիրներՆերդիր Հազար բաժանիչներ  /  Նշեք վանդակները  /  Ռադիո կոճակներ  /  QR Code  /  Շտրիխ կոդ  /  Անկյունագծային աղյուսակ  /  Հավասարության վերնագիր  /  Նկարի վերնագիր  /  Աղյուսակի վերնագիր  /  Բազմաթիվ նկարներ  / Բացահայտեք ավելին Տեղադրեք խումբը...

🔍 Ճշգրիտ ընտրանքներ: Մատնանշել կոնկրետ էջեր  /  սեղաններ  /  ձեւավորում  /  վերնագրի պարբերություններ  / Ընդլայնել նավարկությունը ավելին Ընտրեք հատկանիշներ...

⭐ Աստղերի բարելավումներ: Արագ նավարկեք ցանկացած վայր  /  կրկնվող տեքստի ավտոմատ տեղադրում  /  անխափան անցում փաստաթղթի պատուհանների միջև  /  11 Փոխակերպման գործիքներ...

???? Ցանկանու՞մ եք փորձել այս հնարավորությունները: Kutools-ը Word-ի համար առաջարկում է ա 60 օր անվճար դատավարություն, առանց սահմանափակումների! 🚀

Անվճար ներբեռնում     Կարդալ ավելին     Գնել հիմա XNUMX