Hvordan raskt finne eller slette avsnitt som inneholder spesifikke tekster i Word-dokumentet ditt

I denne artikkelen vil vi fortsette å tilby deg måten å raskt finne eller slette avsnitt som inneholder spesifikke tekster i Word-dokumentet ditt.

I en av våre tidligere artikler har vi vist hvordan du finner eller sletter setninger som inneholder spesifikk tekst. For detaljert informasjon, kan du se denne lenken: 2 Raske måter å finne eller slette setninger som inneholder spesifikk tekst i Word

På samme måte vil vi denne gangen vise deg detaljene for å finne eller slette avsnitt som inneholder spesifikke tekster.

Finn eller slett avsnitt som inneholder spesifikke tekster via VBA

1. Først og fremstost, utløs VBA-editoren ved å klikke på "Utvikler"-fanen i båndet og deretter klikke på "Visual Basic". Eller hvis "Utvikleren" ikke er tilgjengelig ennå, kan du trykke "Alt + F11" i stedet.
2. Klikk deretter på "Normal" prosjekt.
3. Klikk deretter på "Sett inn"-fanen på menylinjen.
4. Og på rullegardinmenyen til "Sett inn", velg "Modul".
5. Dobbeltklikk på den modulen og lim inn følgende makro der:

Sub DeleteParagraphsContainingSpecificTexts() Dim strFindTexts As String Dim strButtonValue As String Dim nSplitItem As Long Dim objDoc As Document strFindTexts = InputBox("Skriv inn tekster som skal finnes her, og bruk kommaer for å skille dem: ", "Tekst er funnet") n UBound(Split(strFindTexts, ",")) With Selection .HomeKey Unit:=wdStory ' Finn de angitte tekstene én etter én. For nSplitItem = 0 Til nSplitItem Med Selection.Find .ClearFormatting .Text = Split(strFindTexts, ",")(nSplitItem) .Replacement.Text = "" .Forward = True .Wrap = wdFindMatchContinue .Format = FalseWord. MatchCase = False .MatchSoundsLike = False .MatchWildcards = False .MatchAllWordForms = False .Execute End With Do While .Find.Found = True ' Utvid utvalget til hele avsnittet. Selection.Expand Unit:=wdParagraph strButtonValue = MsgBox("Er du sikker på å slette avsnittet?", vbYesNo) If strButtonValue = vbYes Then Selection.Delete End If .Collapse wdCollapseEnd .Find.Execute Loop Next End With Ms ferdig med å finne alle innskrevne tekster.") Sett objDoc = Ingenting End Sub

6. Klikk deretter på "Kjør"-knappen eller trykk "F5" for å utføre kodene.
7. Nå i boksen "Tekster som skal finnes" som dukker opp, skriv inn tekster i tekstboksen. Denne makroen lar deg finne flere tekster samtidig. Du skriver bare inn tekster du vil finne og bruker kommaer for å skille hver. Husk å ikke angi mellomrom etter komma.
8. Klikk deretter "OK" for å gå videre.
9. Neste første avsnitt med tarfå tekst er i utvalg. Og det er også meldingsboksen som spør om du vil slette avsnittet. Klikk "Ja" for å slette avsnittet. Eller klikk "Nei" for å finne neste forekomst av teksten.
10. Etter å ha fullført søket gjennom dokumentet, er det en meldingsboks som nedenfor:

Håndter de ødelagte Word-dokumentene

Vi forstår at Word ikke er immun mot feil og korrupsjon. Det er denne mangelen som gjør dokumentet vårt til et hyppig offer for doc skade. Derfor, for å unngå å miste viktige data permanent, er det bedre å få et fikseringsverktøy på forhånd.

Forfatterintroduksjon:

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