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

Ինչպե՞ս գտնել և փոխարինել միանգամից բազմաթիվ բառեր 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- ում միանգամից հեշտությամբ գտեք և փոխարինեք բազմաթիվ բառեր զարմանալի հատկությամբ

The Խմբաքանակի որոնում և փոխարինում առանձնահատկությունը Kutools բառի համար կարող է օգնել միանգամից գտնել և փոխարինել տարբեր տեքստեր փաստաթղթում կամ մի քանի փաստաթղթերում:

Այս գործառույթը կիրառելուց առաջ խնդրում ենք րոպեներ տրամադրել նախ ներբեռնեք և տեղադրեք այն.

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

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

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

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

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

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


Բառի արտադրողականության առաջարկվող գործիքներ

 

Kutools Word- ի համար. Word- ի ավելի քան 100 առաջադեմ առանձնահատկություններ, խնայեք ձեր 50% ժամանակը

  • Բարդ և կրկնվող գործողությունները կարող են կատարվել միանգամյա մշակմամբ վայրկյանների ընթացքում:
  • Տեղադրեք բազմաթիվ պատկերներ միանգամից թղթապանակների մեջ Word փաստաթղթում:
  • Միացրեք և միացրեք բազմաթիվ Word ֆայլեր թղթապանակների մեջ մեկում ՝ ձեր ցանկալի պատվերի հետ:
  • Ընթացիկ փաստաթուղթը բաժանեք առանձին փաստաթղթերի `ըստ վերնագրի, հատվածի ընդմիջման կամ այլ չափանիշների:
  • Փոխարկել ֆայլերը Doc- ի և Docx- ի, Docx- ի և PDF- ի միջև, ընդհանուր փոխակերպումների և ընտրության գործիքների հավաքածու և այլն ...
Տեսակավորել մեկնաբանությունները ըստ
մեկնաբանություններ (21)
Դեռևս գնահատականներ չկան: Եղիր առաջինը, ով կգնահատի:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Toto jsem hledal, jen potřebuji pro hledaný text přidat nějaké formátování: Յակ տոհո դոշանու՞ն։
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
կաշխատի գրասենյակ Excel 365-ում
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Այս գործը զգայուն դարձնելու որևէ ձև կա՞:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև, սա լավ է աշխատում անգլերեն բառերի հետ: Հիմա ես փաստաթուղթ եմ պատրաստում, որտեղ թարգմանում եմ անգլերենից գուջարաթի: Այսպիսով, երբ ես կիրառում եմ սա (Գտեք անգլերեն բառեր) և (Փոխարինեք գուջարաթի բառերով), այն փոխվում է, բայց կարծես «???» է: Արդյո՞ք գուջարաթի բառը ցույց չի տալիս, այլ պարզապես հարցական նշաններ: Որևէ լրացուցիչ օգնություն: Խնդրում եմ։
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջույն Շայլեշ, նույն խնդրի առաջ: Գտե՞լ եք դրա լուծումը։ Ես նաև փորձում եմ պարզել, թե ինչպես փոխել չինարենից անգլերեն:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ինչպես գտնել և ընտրել մի քանի բառ միաժամանակ
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջու՜յն,
Կոդը գործարկելուց հետո կհայտնվի Kutools Excel-ի համար երկխոսության տուփ, խնդրում ենք մուտքագրել այն հիմնաբառերը, որոնք դուք կգտնեք և դրանք բաժանեք ստորակետերով:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև, ինչպե՞ս կարելի է վերանայել այս մակրոն՝ ավելի շատ բանալի բառեր ընդունելու համար: Ես ունեմ մոտ 170 բառ, որոնք ես կցանկանայի գտնել և փոխարինել
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև JM,
Կոդը գործարկելուց հետո կհայտնվի Kutools Excel-ի համար երկխոսության տուփ, խնդրում ենք մուտքագրել այն հիմնաբառերը, որոնք դուք կգտնեք և դրանք բաժանեք ստորակետերով:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջու՜յն! Նախ, շնորհավորում եմ ձեր աշխատանքի համար. այս մակրոն շատ օգտակար և հետաքրքիր է: Կուզենայի, այնուամենայնիվ, օգնեք ինձ մի բանում. Ես սրբագրիչ եմ և կուզենայի, որ փոխարինողները ընդգծված լինեն կանաչ կամ կարմիր գույնով: Ինչպե՞ս կարող եմ դա անել: Կա՞ կոդի տող, որը ես կարող եմ օգտագործել:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջույն, Kutools-ի «Խմբաքանակի որոնում և փոխարինում» գործառույթը կարող է կատարելապես լուծել ձեր խնդիրը, կարող եք փորձել:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Փոխարինել սեղմելուց հետո այն պարզապես անցնում է Նախադիտում և այլևս ոչինչ չի անում:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջույն, Ajs, Բոլոր պահանջվող բառերը հաջողությամբ փոխարինվել են անմիջապես փոխարինել կոճակը սեղմելուց հետո: Այն գնում է «Նախադիտում» ներդիր՝ օգնելու ձեզ իմանալ, թե քանի բառ է հաջողությամբ փոխարինվել: Դրանից հետո փակեք երկխոսության տուփը:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Իսկ եթե ես փորձում եմ փոխարինել ստորակետները:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
VBA կոդը չի կարող օգնել փոխարինել ստորակետերը: Դուք կարող եք դիմել Kutools-ին հասնելու համար:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Առաջին հրահանգում (Գտեք և փոխարինեք մի քանի բառեր միաժամանակ Word-ում VBA կոդով), այն չի գտնում դեպքեր, երբ փոխարինվող բառը ընկնում է բառի մեջտեղում (օրինակ՝ .com կայքի անվան հետքերով) . Կարո՞ղ է սա փոփոխվել՝ դա անելու համար:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Շնորհակալություն նախագծի համար, կարո՞ղ եք այն դարձնել այնպես, ինչպես մենք կարող ենք փոխարինել տառերը բառերով: Օրինակ, եթե ես ուզում եմ փոխել դոլարը որպես DoLLar, այն չի գործում:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Cha cha ế cụt nhềt nhềt nhềt nhềt nhềt nhềug từ cụt nhều t ụ cụm từ tờt từt thờt thờt thờt thờt file trong từ nguồn và cụt 2 là cụm từ đích được không? rất cám ơn bạn.
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև Նգույան Ֆուկ Լամ,
Այս խնդիրը լուծելու համար խորհուրդ եմ տալիս կիրառել Kutools-ի «Խմբաքանակի գտնել և փոխարինել» գործառույթը (այս գրառման երկրորդ մեթոդը):
Գտնել և փոխարինել երկխոսության վանդակում, ձեզ անհրաժեշտ երկու սյունակներ ստեղծելուց հետո, կարող եք պահպանել ընթացիկ կարգավորումները որպես ապագա օգտագործման սցենար:
https://www.extendoffice.com/images/stories/comments/comment-picture-zxm/find_and_replace.png
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Cám ơn crystal, cách này có thể áp dụn tụ lượn, բայց nếu với số lượn (hơn 1000, hơn 10000 .. Vậy có cách nào khác không bạn? Cám ơn bạn đã trả lời
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև Նգույան Ֆուկ Լամ,
Ժամանակավորապես անհնար է լուծել այս խնդիրը VBA կոդով, քանի որ այն մի փոքր բարդ է: Այս հատկությունը կդիտարկվի նորացման համար հաջորդ թողարկումում: Ներողություն անհանգստության համար.
Առայժմ ոչ մի մեկնաբանություն չկա
Թողեք ձեր մեկնաբանությունները
Հրապարակում որպես հյուր
×
Գնահատեք այս գրառումը.
0   Անձնավորություններ
Առաջարկվող վայրեր