Cum să găsiți sau să ștergeți rapid paragrafe care conțin texte specifice în documentul dvs. Word

În acest articol, vom continua să vă oferim modalitatea de a găsi sau șterge rapid paragrafe care conțin texte specifice în documentul dvs. Word.

Într-unul dintre articolele noastre anterioare, am arătat cum să găsiți sau să ștergeți propoziții care conțin un anumit text. Pentru informații detaliate, puteți consulta acest link: 2 moduri rapide de a găsi sau șterge propoziții care conțin text specific în cuvântul tău

În mod similar, de această dată vă vom expune detaliile privind găsirea sau ștergerea paragrafelor care conțin texte specifice.

Găsiți sau ștergeți paragrafe care conțin texte specifice prin VBA

1. În primul rând și înainteost, declanșați editorul VBA făcând clic pe fila „Dezvoltator” din Panglică și apoi faceți clic pe „Visual Basic”. Sau dacă „Dezvoltatorul” nu este încă disponibil, puteți apăsa „Alt+ F11”.
2. Apoi faceți clic pe proiect „Normal”.
3. Apoi, în bara de meniu, faceți clic pe fila „Inserare”.
4. Și în meniul drop-down al „Inserare”, alegeți „Modul”.
5. Faceți dublu clic pe modulul respectiv și inserați următoarea macrocomandă acolo:

Sub DeleteParagraphsContainingSpecificTexts() Dim strFindTexts As String Dim strButtonValue As String Dim nSplitItem As Long Dim objDoc As Document strFindTexts = InputBox("Introduceți texte pentru a fi găsite aici și utilizați virgule pentru a le separa: ", "Text") nSplit to be found") UBound(Split(strFindTexts, ",")) Cu selecție .HomeKey Unit:=wdStory ' Găsiți textele introduse unul câte unul. Pentru nSplitItem = 0 To nSplitItem With Selection.Find .ClearFormatting .Text = Split(strFindTexts, ",")(nSplitItem) .Replacement.Text = "" .Forward = True .Wrap = wdMatchContinue .Format = FalseW .sau . MatchCase = Fals .MatchSoundsLike = Fals .MatchWildcards = Fals .MatchAllWordForms = Fals .Execute End With Do While .Find.Found = True ' Extinde selecția la întregul paragraf. Selection.Expand Unit:=wdParagraph strButtonValue = MsgBox(„Sunteți sigur că veți șterge paragraful?”, vbYesNo) Dacă strButtonValue = vbYes, atunci Selection.Delete End If .Collapse wdCollapseEnd .Find.Execute With M Loop Hasg NextBox a terminat de găsit toate textele introduse.") Set objDoc = Nothing End Sub

6. Apoi faceți clic pe butonul „Run” sau apăsați „F5” pentru a executa codurile.
7. Acum, în caseta care apare „Texte de găsit”, introduceți texte în caseta de text. Această macrocomandă vă permite să găsiți mai multe texte în același timp. Doar introduceți textele pe care doriți să le găsiți și utilizați virgule pentru a le separa pe fiecare. Nu uitați să nu introduceți spațiu după virgulă.
8. Apoi faceți clic pe „OK” pentru a continua.
9. Urmează primul paragraf cu tarObține text este în selecție. Și există și caseta de mesaj, în care se întreabă dacă doriți să ștergeți paragraful. Faceți clic pe „Da” pentru a șterge paragraful. Sau faceți clic pe „Nu” pentru a găsi următoarea apariție a textului.
10. După ce ați terminat căutarea prin document, există o casetă de mesaj precum mai jos:

Ocupați-vă de documentele Word ruinate

Înțelegem că Word nu este imun la erori și corupții. Acest neajuns face din documentul nostru o victimă frecventă doc deteriorare. Astfel, pentru a preveni pierderea definitivă a datelor noastre importante, este mai bine să obțineți un instrument de reparare în avans.

Introducerea autorului:

Vera Chen este expertă în recuperarea datelor DataNumen, Inc., care este lider mondial în tehnologiile de recuperare a datelor, inclusiv repara Excel și pdf repararea produselor software. Pentru mai multe informații vizitați www.datanumen.com