Sut i chwilio a disodli ar draws ffeiliau lluosog yn Word?

Os oes gennych chi sawl dwsin o ffeiliau Word sy'n cynnwys yr un cynnwys, fel penawdau, troedynnau, neu eiriau neu rifau penodol, a bod angen i chi ddisodli'r cynnwys hwn ar draws pob dogfen, gall ei wneud â llaw fod yn llafurus ac yn feichus. Yn ffodus, mae yna ffyrdd mwy effeithlon o drin y dasg hon. Bydd y tiwtorial hwn yn dangos dulliau anodd o ddisodli'r un cynnwys mewn sawl dogfen Word ar unwaith, gan arbed amser ac ymdrech i chi:

Darganfod a disodli testunau ar draws sawl dogfen Word ar yr un pryd â chod VBA
Darganfod a disodli gwahanol destunau yn hawdd ar draws sawl dogfen ar yr un pryd â Kutools ar gyfer Word

Darganfod a disodli testunau ar draws sawl dogfen Word ar yr un pryd â chod VBA

Mae'r dull hwn yn esbonio sut i ddefnyddio cod VBA i chwilio am destun a'i ddisodli ar draws sawl dogfen Word ar yr un pryd, gan arbed amser ac ymdrech wrth ddelio â llawer iawn o ffeiliau.

1. 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 a gludwch y cod VBA canlynol i mewn i'r Modiwlau ffenestr.

   Sub CommandButton1_Click()
   'Updated by Extendoffice 20180625
   Dim xFileDialog As FileDialog, GetStr(1 To 100) As String '100 files is the maximum applying this code
   Dim xFindStr As String
   Dim xReplaceStr As String
   Dim xDoc As Document
   On Error Resume Next
   Set xFileDialog = Application.FileDialog(msoFileDialogFilePicker)
   With xFileDialog
       .Filters.Clear
       .Filters.Add "All WORD File ", "*.docx", 1
       .AllowMultiSelect = True
       i = 1
       If .Show = -1 Then
           For Each stiSelectedItem In .SelectedItems
               GetStr(i) = stiSelectedItem
               i = i + 1
           Next
           i = i - 1
       End If
       Application.ScreenUpdating = False
       xFindStr = InputBox("Find what:", "Kutools for Word", xFindStr)
       xReplaceStr = InputBox("Replace with:", "Kutools for Word", xReplaceStr)
       For j = 1 To i Step 1
           Set xDoc = Documents.Open(FileName:=GetStr(j), Visible:=True)
           Windows(GetStr(j)).Activate
           Selection.Find.ClearFormatting
           Selection.Find.Replacement.ClearFormatting
           With Selection.Find
               .Text = xFindStr  'Find What
               .Replacement.Text = xReplaceStr  'Replace With
               .Forward = True
               .Wrap = wdFindAsk
               .Format = False
               .MatchCase = False
               .MatchWholeWord = False
               .MatchByte = True
               .MatchWildcards = False
               .MatchSoundsLike = False
               .MatchAllWordForms = False
           End With
           Selection.Find.Execute Replace:=wdReplaceAll
           Application.Run macroname:="NEWMACROS"
           ActiveDocument.Save
           ActiveWindow.Close
       Next
       Application.ScreenUpdating = True
   End With
   MsgBox "Operation end, please view", vbInformation
   End Sub

3. Pwyswch F5 i redeg y cod.
4. Yn y Pori ffenestr, dewiswch y dogfennau yr ydych am ddod o hyd i destun a'i ddisodli, yna cliciwch OK.

   

5. Yn y cyntaf Kutools am Word blwch deialog, nodwch y testun rydych chi am ei ddarganfod yn y Dewch o hyd i beth maes a chlicio OK.

   

6. Yn yr ail Kutools am Word blwch deialog, nodwch y testun rydych chi am ei ddisodli a chliciwch OK.

   

7. Cliciwch OK yn y rownd derfynol Microsoft Word blwch deialog i orffen y broses.

   

Yn yr achos hwn, mae pob achos o "Word" yn y dogfennau a ddewiswyd yn cael eu disodli gan "Excel" ar yr un pryd.

Darganfod a disodli gwahanol destunau yn hawdd ar draws sawl dogfen ar yr un pryd â Kutools ar gyfer Word

Mae gan Swp Dod o Hyd i ac Amnewid nodwedd yn Kutools am Word yn caniatáu ichi ddod o hyd i wahanol destunau a'u disodli'n ddiymdrech ar draws sawl dogfen Word ar yr un pryd. Dilynwch y camau isod i gymhwyso'r nodwedd hon:

1. Cliciwch Kutools > Amnewid Swp.

   

2. Yn y Swp Dod o Hyd i ac Amnewid blwch deialog, ffurfweddu fel a ganlyn:
   1. Cliciwch ar y Ychwanegu Row botwm o dan y Dod o hyd ac yn ei le tab.
   2. Yn y meysydd rhes a grëwyd:
      1. Rhowch y testun i ddod o hyd iddo yn y Dod o hyd i colofn.
      2. Rhowch y testun newydd yn y Disodli colofn.
      3. Nodwch fath o chwiliad, lleoliad lle i ddod o hyd ac ailosod, amlygwch liw, ac opsiynau eraill yn ôl yr angen yn y colofnau priodol.
   3. Cliciwch ar y botwm yn y Math o ffeil adran i ychwanegu'r dogfennau Word i'w prosesu.
   4. Cliciwch ar y Disodli or Dod o hyd i botwm.
      Tip: Ailadroddwch gamau 1) a 2) i ychwanegu mwy o reolau darganfod a disodli.

      

3. Caewch y Swp Dod o Hyd i ac Amnewid blwch deialog.

Am fwy o wybodaeth am y Swp Dod o Hyd i ac Amnewid nodwedd, gweld y dudalen tiwtorial.

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