Ako rýchlo vyhľadať alebo odstrániť odseky obsahujúce konkrétne texty v dokumente Word

V tomto článku vám budeme naďalej ponúkať spôsob, ako rýchlo nájsť alebo odstrániť odseky obsahujúce konkrétne texty vo vašom dokumente Word.

V jednom z našich predchádzajúcich článkov sme si ukázali, ako vyhľadať alebo vymazať vety obsahujúce konkrétny text. Podrobné informácie nájdete na tomto odkaze: 2 rýchle spôsoby vyhľadania alebo odstránenia viet obsahujúcich konkrétny text vo vašom slove

Podobne vám tentokrát ukážeme podrobnosti o vyhľadaní alebo odstránení odsekov obsahujúcich konkrétne texty.

Vyhľadajte alebo odstráňte odseky obsahujúce konkrétne texty pomocou VBA

1. V prvom radeost, spustite editor VBA kliknutím na kartu „Vývojár“ na páse s nástrojmi a potom na položku „Visual Basic“. Alebo ak „Developer“ ešte nie je k dispozícii, môžete namiesto toho stlačiť „Alt + F11“.
2. Potom kliknite na „Normálny“ projekt.
3. Ďalej na paneli s ponukami kliknite na kartu „Vložiť“.
4. A v rozbaľovacej ponuke „Vložiť“ vyberte „Modul“.
5. Dvakrát kliknite na tento modul a vložte tam nasledujúce makro:

Sub DeleteParagraphsContainingSpecificTexts () Dim strFindTexts As String Dim strButtonValue As String Dim nSplitItem As Long Dim objDoc As Document strFindTexts = InputBox ("Zadajte texty, ktoré sa tu majú nájsť, a oddeľte ich čiarkami:", "Texty, ktoré sa majú nájsť") nSplitItem = UBound (Split (strFindTexts, ",")) With Selection .HomeKey Unit: = wdStory 'Nájsť zadané texty jeden po druhom. Pre nSplitItem = 0 Na nSplitItem so Selection.Find .ClearFormatting .Text = Split (strFindTexts, ",") (nSplitItem) .Replacement.Text = "". Forward = True .Wrap = wdFindContinue .Format = False .MatchWholeWord MatchCase = False .MatchSoundsLike = False .MatchWildcards = False .MatchAllWordForms = False. Execute End With Do While .Find.Found = True 'Rozbalí výber na celý odsek. Selection.Expand Unit: = wdParagraph strButtonValue = MsgBox ("Naozaj chcete odstráni» odstavec? ", VbYesNo) Ak strButtonValue = vbYes Potom Selection.Delete Koniec Ak .Collapse wdCollapseEnd .Find.Execute Smyčka Ďalej Koniec s MsgBox (" Slovo má dokončené hľadanie všetkých zadaných textov. ") Nastaviť objDoc = Nič Koniec Sub

6. Ďalej kliknite na tlačidlo „Spustiť“ alebo na spustenie kódu stlačte kláves „F5“.
7. Teraz do vyskakovacieho okna „Texty, ktoré sa majú nájsť“, zadajte texty do textového poľa. Toto makro umožňuje vyhľadať viac textov súčasne. Iba zadávate texty, ktoré chcete vyhľadať, a oddelíte ich čiarkami. Nezabudnite, že po čiarke nemusíte zadávať medzeru.
8. Potom kliknite na „OK“ a pokračujte ďalej.
9. Ďalej prvý odsek s tarzískať text je vo výbere. K dispozícii je tiež okno so správou s otázkou, či chcete odsek odstrániť. Kliknutím na tlačidlo „Áno“ odstráňte odsek. Alebo kliknite na „Nie“ a vyhľadajte ďalší výskyt textu.
10. Po dokončení prehľadávania dokumentu sa zobrazí okno so správou, napríklad nižšie:

Zaoberajte sa dokumentmi Wrecked Word

Chápeme, že Word nie je odolný voči chybám a korupcii. Práve tento nedostatok robí náš dokument častou obeťou poškodenie dok. Preto, aby sme zabránili trvalej strate dôležitých údajov, je lepšie zaobstarať si vopred opravný nástroj.

Úvod autora:

Vera Chen je expertka na obnovu dát v DataNumen, Inc., ktorá je svetovým lídrom v oblasti technológií obnovy dát, vrátane opraviť Excel a pdf oprava softvérových produktov. Pre viac informácií navštívte www.datanumen. S