2 rýchle spôsoby vyhľadania alebo odstránenia viet obsahujúcich konkrétny text vo vašom slove

V tomto článku vám ponúkneme 2 rýchle spôsoby, ako vyhľadať alebo odstrániť vety obsahujúce konkrétny text vo vašom slove.

Je známe všetkým, že v programe Word môžeme pomocou funkcie „Nájsť a nahradiť“ ľahko nájsť všetky výskyty konkrétnych slov. Potom nebudeme mať problém ich zvýrazniť, vymeniť alebo odstrániť. Ako vidíte, target je slovo alebo fráza. Dnes vám však s potešením povieme, ako makro hľadať a mazať vety obsahujúce určitý text.

Metóda 1: Vyhľadanie alebo odstránenie viet obsahujúcich konkrétny text

1. Na začiatok stlačte kombináciu klávesov „Alt + F11“, čím spustíte editor VBA v programe Word.
2. Ďalej vytvorte nový modul kliknutím na „Normálny“.
3. Potom kliknite na „Vložiť“ a zvoľte „Modul“, aby ste získali nový.
4. A modul otvorte dvojitým kliknutím.
5. Teraz vložte nasledujúce kódy:

Sub DeleteSentencesContainingSpecificWords () Dim strTexts As String Dim strButtonValue As String strTexts = InputBox ("Sem zadajte texty, ktoré sa majú nájsť tu:") S výberom. HomeKey Unit: = wdStory 'Nájde zadané texty. S Selection.Find .ClearFormatting .Text = strTexts .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSatchLike = False. False. Execute End With Do While .Find.Found = True 'Rozbalí výber na celú vetu. Selection.Expand Unit: = wdSentence strButtonValue = MsgBox ("Naozaj chcete odstrániť vetu?", VbYesNo) Ak strButtonValue = vbYes Potom Selection.Delete Koniec Ak .Collapse wdCollapseEnd .Find.Execute Smyčka Koniec Koniec Sub

6. Ďalej kliknite na „Spustiť“.
7. K dispozícii bude vstupné pole so žiadosťou o zadanie textu. Stačí napísať spoločný text, ktorý obsahujú všetky vety. Kliknite na „OK“.
8. Potom uvidíte vetu obsahujúcu vybraný text s výzvou na odoslanie správy. Kliknutím na „Áno“ vetu odstránite a kliknutím na „Nie“ ju ponecháte.
9. Po potvrdení je na výber ďalšia veta s určeným textom. A je tu aj potvrdzovacie políčko. Makro vás konkrétne zavedie do celého dokumentu a nájdete ho tardostávať vety a zakaždým požiadať o potvrdenie.

Metóda 2: Vyhľadanie alebo odstránenie viet obsahujúcich akýkoľvek text v zozname

Pomocou makra v metóde 1 môžete vyhľadávať iba jedno slovo alebo frázu naraz. Makro môžete určite spustiť opakovane a vyhľadať tak, aby ste našli viac výskytov slov alebo fráz. Aby sme vyhoveli potrebe viacnásobného vyhľadávania, poskytneme vám ďalšie makro.

1. Najskôr dajte všetko tarzískať texty v novom dokumente. Uistite sa, že každý text zaberá jeden odsek bez koncového miesta. Zavrite a uložte dokument.
2. Ďalej nainštalujte a spustite makro s presnými krokmi v metóde 1.
3. Potom nahraďte makro týmto:

Sub DeleteSentencesContainingSpecificWordsOnAList () Dim objListDoc Ako dokument, objTargetDoc ako dokument Dim objParaRange As Range Dim objParagraph Ako odsek Dim strFileName ako String, strButtonValue ako String Dim dlgFile As FileDialog Set dlgFile = Application.FileDialog (msoFileDialogFilePicker) s dlgFile Ak .Show = -1 Potom strFileName = .SelectedItems (1) Iný súbor Msg vybrané! Vyberte tarzískať súbor. "Ukončiť Sub End If End With Set objTargetDoc = sada ActiveDocument objListDoc = Documents.Open (strFileName) objTargetDoc.Activate For each objParagraph In objListDoc.Paragraphs Set objParaRange = objParagraph.Range objParaRange.End = objParaRange.End - 1 s výberom .HomeKey jednotka: = wdStory 'Nájsť tardostať slová. S Selection.Find .ClearFormatting .Text = objParaRange .MatchWholeWord = True .MatchCase = False. Execute End With 'Rozbalí výber na celú vetu. Robiť While .Find.Found Selection.Expand Unit: = wdSentence strButtonValue = MsgBox ("Naozaj chcete odstrániť vetu?", VbYesNo) Ak strButtonValue = vbYes Potom Selection.Delete Koniec Ak .Collapse wdCollapseEnd .Find.Execute Loop Koniec s Nasledujúci objParagón Koncový pod

4. Teraz sa otvorí okno „Prechádzať“. Vyberte dokument, ktorý ste práve uložili, a kliknite na tlačidlo „Otvoriť“.
5. Nasledujúci postup je rovnaký ako v metóde 1.

Prístup k práci s poškodenými dokumentmi

Strata cenných údajov je absolútne zničujúca. Môže to dokonca nechať vaše podnikanie v stávke. Aby ste sa vyhli takejto frustrácii, musíte sa zmocniť a Oprava slova nástroj čo najskôr. Takýto nástroj vám pomôže zvíťaziť v boji s poškodením dokumentov.

Ú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