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

Mae darganfod ac amnewid geiriau mewn dogfen Word yn dasg gyffredin, yn enwedig pan fydd angen i chi wneud newidiadau cyson trwy gydol dogfen hir. Fodd bynnag, os oes angen i chi ddod o hyd i eiriau lluosog a'u disodli ar yr un pryd, gall ei wneud fesul un gymryd llawer o amser. Yn ffodus, mae yna ffyrdd effeithlon o gyflawni'r dasg hon.

Yn y tiwtorial hwn, byddwn yn dangos i chi sut i ddarganfod a disodli geiriau lluosog ar yr un pryd mewn dogfen Word gan ddefnyddio dau ddull:

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

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

Gallwch ddefnyddio cod VBA i ddarganfod a disodli geiriau lluosog ar unwaith mewn dogfen Word. Dilynwch y camau isod:

1. Agorwch y ddogfen Word lle rydych chi am ddarganfod a disodli geiriau lluosog, yna pwyswch Alt + F11 i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.
2. Yn y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr, cliciwch Mewnosod > Modiwlau. Yna copïwch y cod VBA canlynol i'r Modiwlau ffenestr:

   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, separated by comma: ", "Kutools for Word")
       xReplace = InputBox("Enter new items here, separated 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. Pwyswch F5 i redeg y cod.
4. Yn y cyntaf Kutools am Word blwch deialog, nodwch y geiriau lluosog rydych chi am eu darganfod a'u disodli, wedi'u gwahanu gan atalnodau, yna cliciwch OK.

   

5. Yn yr ail Kutools am Word blwch deialog, rhowch y geiriau amnewid, hefyd wedi'u gwahanu gan atalnodau, yna cliciwch OK.

   

Yn Hawdd Darganfod ac Amnewid Geiriau Lluosog ar yr Un Amser mewn Word gyda Nodwedd Rhyfeddol

Mae gan Swp Dod o Hyd i ac Amnewid nodwedd o Kutools am Word yn arf pwerus sy'n symleiddio'r broses o ddarganfod ac ailosod testunau lluosog ar yr un pryd mewn un ddogfen neu ar draws sawl dogfen. Yn wahanol i swyddogaeth safonol Word, mae'r nodwedd hon yn eich galluogi i swp-brosesu amnewidiadau yn fwy effeithlon, gan arbed amser ac ymdrech sylweddol i chi.

Dilynwch y camau hyn i berfformio swp-ddarganfod a disodli:

1. Lansio Microsoft Word, yna cliciwch Kutools > Amnewid Swp.

   

2. Yn y Swp Dod o Hyd i ac Amnewid ffenestr, ffurfweddwch y gosodiadau fel a ganlyn:
   1. Cliciwch ar y Ychwanegu Row botwm i fewnosod meysydd darganfod ac ailosod. Er enghraifft, os oes angen i chi ddisodli tri thestun gwahanol, creu tair rhes.
   2. Ym mhob rhes, rhowch y testun i'w ddisodli yn y Dod o hyd i golofn a'r testun newydd yn y Disodli colofn.
      Tip: Gallwch hefyd nodi'r math o chwiliad, dod o hyd i gwmpas, lliw amlygu, a fformat ar gyfer pob rheol darganfod-ac-amnewid, fel y nodir gan yr uchafbwyntiau oren yn y sgrin isod.
   3. Cliciwch ar y botwm a dewiswch Ychwanegu Ffeil or Ychwanegu Ffolder i ychwanegu un neu fwy o ddogfennau lle rydych chi am berfformio'r gweithrediad darganfod a disodli.
   4. Cliciwch ar y Disodli botwm i gyflawni'r llawdriniaeth.

      

Unwaith y bydd wedi'i gwblhau, bydd y geiriau penodedig yn cael eu disodli ar draws y dogfennau a ddewiswyd ar yr un pryd.

Offer Cynhyrchiant Swyddfa Gorau

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

🤖 Nodweddion Kutools AI: Cynhyrchu Cynnwys / Ailysgrifennu Testun / Dogfen Holi ac Ateb / Cael Atebion Cyflym / Cyfieithu dogfennau / Dogfen Bwyleg (Fformat Cadw)...

📘 Meistrolaeth Dogfen: Tudalennau Hollti / Uno Dogfennau / Dewis Allforio mewn Fformatau Amrywiol (PDF/TXT/DOC/HTML...) / Trosi swp i PDF...

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

🧹 Ymdrech Glân: swap i ffwrdd Mannau Ychwanegol / Toriadau Adran / Blychau Testun / hypergysylltiadau / Am fwy o offer tynnu, ewch i'r Dileu grŵp...

➕ Mewnosodiadau Creadigol: mewnosod Mil o Wahanwyr / Blychau Gwirio / Botymau Radio / Cod QR / Cod Bar / Lluniau Lluosog / Darganfod mwy yn y Mewnosod grŵp...

🔍 Detholiadau Manwl: pinbwynt Tudalennau Penodol / Tablau / Siapiau / Pennawd Paragraffau / Gwella llywio gyda mwy dewiswch Nodweddion...

⭐ Gwelliannau Seren: Llywiwch i Unrhyw Leoliad / Awto-Mewnosod Testun Ailadroddus / Toglo Rhwng Windows Document / 11 Trosi offer...

???? Eisiau rhoi cynnig ar y nodweddion hyn? Dadlwythwch Kutools ar gyfer Word nawr! 🚀

Lawrlwythiad Am Ddim     Prynu Nawr     Dysgwch fwy am Kutools ar gyfer Word

 

Offer Cynhyrchiant Swyddfa Gorau

Kutools am Word - 100+ Offer ar gyfer Word

• 🤖 Nodweddion Kutools AI: cynhyrchu, Ailysgrifennu, Crynhowch, cyfieithu Dogfennau / Cael Atebion Cyflym / Dogfen Bwyleg (Fformat Cadw)
• 📘 Meistrolaeth Dogfen: Tudalennau Hollti / Uno Dogfennau / Trosi swp i PDF
• ✏ Golygu Cynnwys: Swp Dod o Hyd i ac Amnewid / Newid Maint Pob Llun
• 🧹 Ymdrech Glân: Tynnwch Fannau Ychwanegol / Dileu Toriadau Adran
• ➕ Mewnosodiadau Creadigol: Mewnosod Mil o Wahanwyr / Mewnosod Blychau Gwirio / Creu Codau QR

Lawrlwythiad Am Ddim Prynu Nawr Dysgwch fwy am Kutools