Hvordan finne og erstatte flere elementer i Word-dokumentet ditt

I dagens artikkel vil vi gjerne forklare deg hvordan du finner og erstatter flere elementer i Word-dokumentet ditt.

Den innebygde funksjonen i Word, "Finn og erstatt", lar oss finne og erstatte et ord eller en setning om gangen. Dette kan absolutt ikke dekke vårt behov for batchbehandling.

Faktisk har vi utvidet funksjonen til å finne flere elementer på en gang i en av våre tidligere artikler. For mer informasjon, kan du se denne artikkelen: 2 raske måter å finne flere elementer i ett Word-dokument på samme tid

Linken ovenfor diskuterte hvordan du finner flere elementer samtidig. Og denne artikkelen vil også vise deg hvordan du erstatter hver vare med en annen ny.

Kjør Word VBA for å finne og erstatte flere elementer

Makro er den eneste måten å utføre tilpassede og batchbehandlingsoppgaver i Word. Bare følg trinnene nedenfor for å fullføre oppdraget ditt.

1. Først og fremstost, åpne din tarfå dokument.
2. Klikk deretter "Utvikler"-fanen hvis den er tilgjengelig i båndet.
3. Og klikk "Visual Basic" ved siden av for å åpne VBA-editoren i Word. Eller du kan velge å trykke "Alt+ F11" i stedet.
4. Klikk deretter på "Normal" i venstre kolonne.
5. Og gå til menylinjen for å klikke "Sett inn".
6. På rullegardinmenyen velger du "Modul".
7. Dobbeltklikk deretter på den nye modulen for å åpne den.
8. Lim inn følgende koder på modulen:

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. Trykk "F5" for å kjøre makroen.
10. Nå vil det være den første inndataboksen. Skriv inn elementer som skal finnes og bruk komma for å skille. Ikke skriv inn et mellomrom etter komma.
11. Klikk deretter "OK" for å fortsette.
12. I den andre inntastingsboksen skriver du inn nye elementer og skiller dem med komma.
13. Til slutt klikker du "OK".

I møte med tap av data

Det er vanskelig å være glad i møte med en datakatastrofe som kan ødelegge verdifull informasjon. Imidlertid er det ingen grunn til å være panikk siden du kan få en Ordreparasjon nytte ved å skyte ut en liten sum penger.

Forfatterintroduksjon:

Vera Chen er en datagjenopprettingsekspert innen DataNumen, Inc., som er verdensledende innen datagjenopprettingsteknologier, inkludert Excel-korrupsjon og pdf reparere programvareprodukter. For mer informasjon besøk www.datanumen. Med