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 ' Skriv inn elementer som skal erstattes og nye. strFindText = InputBox("Skriv inn elementer som skal finnes her, atskilt med komma: ", "Items to be found") strReplaceText = InputBox("Skriv inn nye elementer her, atskilt med komma: ", "Nye elementer") nSplitItem = UBound( Split(strFindText, ",")) ' Finn hvert element og erstatt det med henholdsvis nytt. For nSplitItem = 0 Til nSplitItem With Selection .HomeKey Unit:=wdStory With Selection.Find .ClearFormatting .Replacement.ClearFormatting .Text = Split(strFindText, ",")(nSplitItem) .Replacement.Text," =T Split )(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