Kuidas leida ja asendada Wordi dokumendis mitut üksust

Tänases artiklis tahame teile selgitada, kuidas Wordi dokumendis mitut üksust leida ja asendada.

Wordi sisseehitatud funktsioon "Otsi ja asenda" võimaldab meil sõna või fraasi korraga leida ja asendada. See kindlasti ei suuda rahuldada meie vajadust partiitöötluse järele.

Tegelikult oleme ühes eelmises artiklis laiendanud funktsiooni, et leida korraga mitu üksust. Lisateabe saamiseks vaadake seda artiklit: 2 kiiret viisi ühest Wordist dokumendist korraga mitme üksuse leidmiseks

Ülaltoodud lingil käsitleti mitme üksuse samaaegset leidmist. Ja see artikkel näitab teile ka seda, kuidas iga üksust vastavalt uuega asendada.

Mitme üksuse otsimiseks ja asendamiseks käivitage Word VBA

Makro on ainus viis kohandatud ja paketttöötlustoimingute tegemiseks Wordis. Oma missiooni täitmiseks järgige lihtsalt alltoodud samme.

1. Esiteks ja eeskättost, ava oma tarsaada dokument.
2. Seejärel klõpsake vahekaarti „Arendaja”, kui see on lindil saadaval.
3. Ja Wordis VBA redaktori avamiseks klõpsake "Visual Basic". Või võite selle asemel vajutada klahvikombinatsiooni Alt + F11.
4. Järgmisena klõpsake vasakpoolses veerus "Tavaline".
5. Ja minge menüüribale ja klõpsake nuppu "Lisa".
6. Valige selle rippmenüüst "Moodul".
7. Seejärel topeltklõpsake uuel moodulil selle avamiseks.
8. Kleepige moodulisse järgmised koodid:

Sub FindAndReplaceMultiItems()
  Dim strFindText As String
  Dim strReplaceText As String
  Dim nSplitItem As Long
   
  Application.ScreenUpdating = False

  ' Enter items to be replaces and new ones.
  strFindText = InputBox("Enter items to be found here,seperated by comma: ", "Items to be found")
  strReplaceText = InputBox("Enter new items here, seperated by comma: ", "New items")
  nSplitItem = UBound(Split(strFindText, ","))

  ' Find each item and replace it with new one respectively.
  For nSplitItem = 0 To nSplitItem
    With Selection
      .HomeKey Unit:=wdStory
      With Selection.Find
        .ClearFormatting
        .Replacement.ClearFormatting
        .Text = Split(strFindText, ",")(nSplitItem)
        .Replacement.Text = Split(strReplaceText, ",")(nSplitItem)
        .Format = False
        .MatchWholeWord = False
      End With
    Selection.Find.Execute Replace:=wdReplaceAll
  End With
Next nSplitItem

  Application.ScreenUpdating = True

End Sub

9. Makro käivitamiseks vajutage "F5".
10. Nüüd on esimene sisestuskast. Sisestage leitavad üksused ja kasutage eraldamiseks koma. Ärge sisestage koma järele tühikut.
11. Seejärel klõpsake jätkamiseks "OK".
12. Sisestage teise sisestuskasti uued üksused ja eraldage need komaga.
13. Lõpuks klõpsake nuppu "OK".

Andmete kadumise ees

Andmekatastroofi ees, mis võib väärtuslikku teavet hävitada, on raske olla rõõmsameelne. Siiski pole põhjust paanikaks, sest võite saada a Sõnaparandus utiliit, makstes välja väikese summa raha.

Autori sissejuhatus:

Vera Chen on andmete taastamise ekspert DataNumen, Inc., mis on maailmas juhtiv andmete taastamise tehnoloogiate, sealhulgas Exceli korruptsioon ja pdf tarkvaratooted. Lisateabe saamiseks külastage www.datanumenCom