Sut i ddod o hyd i eiriau lluosog a'u disodli ar yr un pryd mewn dogfen Word?

Mae Word yn darparu swyddogaeth Darganfod ac Amnewid i ddod o hyd i bob enghraifft o air neu ymadrodd a rhoi gair newydd yn eu lle ar yr un pryd. Ond os ydych chi am ddod o hyd i wahanol eiriau a'u disodli ar yr un pryd, ni all y swyddogaeth adeiladu hon helpu. Yn yr erthygl hon, rydym yn siarad am ddull VBA i ddarganfod a disodli sawl gair gwahanol ar yr un pryd yn nogfen Word.

Darganfyddwch a disodli geiriau lluosog ar yr un pryd yn Word gyda chod VBA
Hawdd dod o hyd i eiriau lluosog a'u disodli ar yr un pryd yn Word gyda nodwedd anhygoel

Darganfyddwch a disodli geiriau lluosog ar yr un pryd yn Word gyda chod VBA

Gwnewch fel a ganlyn i ddod o hyd i air lluosog a'i ddisodli ar yr un pryd mewn dogfen Word.

1. Agorwch y ddogfen Word rydych chi am ddod o hyd iddi a newid geiriau lluosog ar yr un pryd, yna pwyswch y Alt + F11 allweddi i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

2. Yn y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr, cliciwch Mewnosod > Modiwl. Yna copïwch isod god VBA i mewn i ffenestr y Modiwl.

Cod VBA: Darganfyddwch a disodli geiriau lluosog ar yr un pryd yn 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. Gwasgwch y F5 allwedd i redeg y cod.

4. Yn y cyntaf Kutools for Word blwch deialog, nodwch y geiriau lluosog y byddwch yn dod o hyd iddynt a'u disodli yn y blwch testun, a'u gwahanu â choma, yna cliciwch ar y OK botwm. Gweler y screenshot:

5. Yn yr ail Kutools for Word blwch deialog, nodwch y geiriau newydd y byddwch chi'n eu disodli (mae angen gwahanu'r geiriau hyn â choma hefyd), ac yna cliciwch ar y OK botwm.

Nodyn: Yn yr achos hwn, i gyd “KTE” yn y ddogfen hon bydd "Newydd", ac “KTO” ac “KTW” yn cael ei ddisodli gan “Prawf” ac "Gorffen". Os gwelwch yn dda eu newid i'ch anghenion.

Hawdd dod o hyd i eiriau lluosog a'u disodli ar yr un pryd yn Word gyda nodwedd anhygoel

1. Lansio cymhwysiad Microsoft Word, cliciwch Kutools Byd Gwaith > Swp Dod o Hyd i ac Amnewid.

2. Yn y Swp Dod o Hyd i ac Amnewid ffenestr, ffurfweddwch fel a ganlyn.

• 2.1 cliciwch y botwm> Ychwanegu Ffeil or Ychwanegu Ffolder i ychwanegu un neu fwy o ddogfennau lle byddwch chi'n dod o hyd i eiriau lluosog ac yn eu lle.
  
• 2.2 Cliciwch y Ychwanegu rhes botwm i fewnosod y meysydd darganfod a disodli. Os ydych chi am ddod o hyd i dri thestun gwahanol a'u disodli ar yr un pryd, crëwch dair rhes.
• 2.3 Ymhob rhes, nodwch y geiriau presennol y byddwch yn eu disodli gydag un newydd yn y Dod o hyd i colofn, ac yna rhowch y geiriau newydd i mewn i'r Disodli colofn.
• 2.4 Nodwch y Math Chwilio ar gyfer pob rhes.
• 2.5 Yn y Dewch o hyd i mewn colofn, dewiswch ble i gymhwyso'r darganfyddiad a'i ddisodli. Mae'n cynnwys Prif ddogfen, Pennawd ac Troedyn yn yr adran hon. Gallwch ddewis un ohonynt, dau ohonynt neu bob un ohonynt yn seiliedig ar eich anghenion.
• 2.6. Cliciwch ar y Disodli botwm i ddechrau'r llawdriniaeth. Gweler y screenshot:

Yna mae'r geiriau penodol yn cael eu disodli mewn dogfennau dethol ar yr un pryd.

Tip: Gallwch dynnu sylw at y canlyniad gyda lliw cefndir trwy nodi lliw penodol yn y Amlygu colofn am res.

  Os ydych chi am gael treial am ddim (60 diwrnod) o'r cyfleustodau hwn, cliciwch i'w lawrlwytho, ac yna ewch i gymhwyso'r llawdriniaeth yn ôl y camau uchod.

Offer Cynhyrchiant Swyddfa Gorau

Kutools for Word - Dyrchafu Eich Profiad Word gyda Dros 100 Nodweddion Rhyfeddol!

Plymiwch i mewn i'r nodweddion a amlygwyd isod neu cliciwch yma i archwilio grym llawn Kutools for Word.

📘 Meistrolaeth Dogfen: Tudalennau Hollti  /  Uno Dogfennau  /  Dewis Allforio mewn Fformatau Amrywiol (PDF/TXT/DOC/XLSX)  /  Trosi swp i PDF  /  Allforio Tudalennau fel Delweddau  /  Argraffu Ffeiliau Lluosog ar unwaith ...

✏ Golygu Cynnwys: Swp Dod o Hyd i ac Amnewid ar draws Ffeiliau Lluosog   /  Newid Maint Pob Llun   /  Trawsosod Rhesi Bwrdd a Cholofnau  /  Trosi Tabl i Testun ...

🧹 Ymdrech Glân: Sweap i ffwrdd Mannau Ychwanegol  /  Toriadau Adran  /   Pob Pennawd  /  Blychau Testun  /  hypergysylltiadau  /  I gael rhagor o offer tynnu, ewch i'n Grŵp Dileu

➕ Mewnosodiadau Creadigol: Mewnosod Mil o Wahanwyr  /  Blychau Gwirio  /  Botymau Radio  /  Cod QR  /  Cod Bar  /  Tabl Llinell Lletraws  /  Pennawd Hafaliad  /  Capsiwn Delwedd  /  Pennawd Tabl  /  Lluniau Lluosog  /  Darganfyddwch fwy yn ein Insert Group

🔍 Detholiadau Manwl: Nodwch dudalennau penodol  /  tablau  /  siapiau  /  paragraffau pennawd  /  Llywiwch yn rhwydd gan ddefnyddio ein Grŵp Dewis

⭐ Gwelliannau Seren: Llywiwch yn gyflym i unrhyw leoliad  /  auto-mewnosod testun ailadroddus  /  toglo'n ddi-dor rhwng ffenestri dogfennau  /  11 Offer Trosi ...

Trawsnewidiwch eich tasgau Word gyda Kutools. 👉 Dadlwythwch gyda threial 30 diwrnod Nawr 🚀.

Darllenwch fwy       Lawrlwythiad Am Ddim      prynu