Ako odstrániť formátovanie vložených textov pomocou makra a VBA vo vašom slove

Tento článok vám ukáže, ako odstrániť formátovanie vloženého textu pomocou makra a VBA vo vašom slove.

Pri kopírovaní textu online sa často stane veľa a zistíte, že je text v bohatom formáte. Napríklad existujú opakujúce sa slová, prázdne riadky, znaky tabulátora atď. Takéto formátovanie však môže byť dosť nepríjemné, zvlášť keď ho nepotrebujete. Prirodzene, formátovanie by ste každý odstránili ručne. Čo však v prípade, že je text skutočne dlhý? Potom bude vyššie uvedená metóda menej efektívna.

V skutočnosti existuje spôsob, ako využiť makro na odstránenie všetkého formátovania textu raz navždy. Tu je viac:

Kroky na zaznamenanie makra v programe Word

1. Najskôr otvorte svoje slovo.
2. Najprv nezabudnite na pás s nástrojmi pridať kartu Vývojár. Podrobné pokyny na pridanie výrazu „vývojár“ nájdete v článku: Ako vložiť hudbu na pozadí do dokumentu Word
3. Keď je k dispozícii karta „Vývojár“, kliknite na ňu.
4. Potom kliknite na položku „Záznam makra“ v skupine „Kód“.
5. Teraz sa zobrazí dialógové okno „Záznam makra“. Najskôr sem zadajte názov makra, napríklad „copytext“.
6. Potom v časti „Priradiť makro“ zvoľte buď „Tlačidlo“, alebo „Klávesnica“. Tu pôjdeme „Button“.
7. Ďalej kliknite na „OK“.
8. Teraz uvidíte okno „Možnosti programu Word“. Kliknite na položku „Prispôsobiť pásku“.
9. Potom nájdite umiestnenie makra na pravej strane. Tu klikneme na „Nová skupina“ a nastavíme novú pre makro.
10. Noe naďalej vyberá „Makrá“ z rozbaľovacieho zoznamu „Vybrať príkazy z“.
11. Ďalej kliknite na makro, ktoré ste práve vytvorili.
12. Potom kliknite na „Pridať“ v strede okna.
13. Teraz bude makro umiestnené do novej skupiny. Stačí kliknúť pravým tlačidlom myši na makro.
14. A zvoľte možnosť „Premenovať“.
15. V dialógovom okne „Premenovať“ vyberte symbol pre svoje makro.
16. Potom zadajte zobrazované meno.
17. Kliknite na tlačidlo "OK".
18. Teraz sa vráťte do okna „Možnosti programu Word“ a kliknite tam na tlačidlo „OK“. Makro odteraz začne nahrávať.

Vložte text ako neformátovaný text

1. Najskôr skopírujte časť dlhého textu.
2. Potom kliknite na kartu Domov.
3. Kliknite na tlačidlo Prilepiť.
4. Ďalej zvoľte „Prilepiť špeciálne“.
5. A v dialógovom okne „Prilepiť špeciálne“ zvoľte „Neformátovaný text“.
6. Potom kliknite na „OK“. Môžete dostať text s formátom, ako je uvedené nižšie:

Odstráňte opakujúce sa slová

1. Ďalej začnite vymazávať formátovanie vľavo. Stlačením klávesov „Ctrl+H“ otvorte dialógové okno „Nájsť a nahradiť“.
2. A do textového poľa „Nájsť čo“ zadajte „Šípka“.
3. Potom kliknite na „Nahradiť všetko“.

Odstrániť znaky na karte

1. Najskôr stlačte „Ctrl + H“, aby sa otvorilo dialógové okno „Nájsť a nahradiť“.
2. Potom do textového poľa „Nájsť čo“ zadajte „^ t“.
3. Ďalej kliknite na „Nahradiť všetko“, aby ste odstránili všetky znaky karty.

Odstráňte nadbytočné medzery

1. Stále stlačte „Ctrl + H“, aby sa otvorilo dialógové okno „Nájsť a nahradiť“.
2. V textovom poli „Čo nájsť“ stlačte dvakrát prázdne tlačidlo.
3. Potom kliknite na tlačidlo „Nahradiť všetko“.

Odstráňte spolu prázdne čiary a extra polia

Pri odstraňovaní formátovania pomocou funkcie „Nájsť a nahradiť“ sa niekedy musíte trochu prispôsobiť, aby ste vyhoveli svojim potrebám. Ak sa vám napríklad pri použití vyššie uvedených krokov nepodarí odstrániť všetky ďalšie medzery, môžete ich pomocou nasledujúcich pokynov odstrániť spolu s prázdnymi riadkami.

1. Podobne stlačte kombináciu klávesov „Ctrl + H“ a otvorte dialógové okno „Nájsť a nahradiť“.
2. Ďalej v textovom poli „Čo nájdete“ stlačte najskôr prázdne tlačidlo.
3. Potom zadajte „^ p“.
4. Do textového poľa „Nahradiť za“ zadajte „^ p“.
5. Kliknite na tlačidlo „Nahradiť všetko“.
6. Znova otvorte dialógové okno „Nájsť a nahradiť“.
7. A do textového poľa „Čo nájdete“ najskôr napíšte „^ p“.
8. Potom stlačte raz prázdne tlačidlo.
9. Potom do textového poľa „Nahradiť za“ zadajte „^ p“.
10. Nakoniec kliknite na tlačidlo „Nahradiť všetko“.

Ak je to potrebné, odstráňte prázdne prázdne čiary

Ak napriek tomu zostanú prázdne riadky, vyskúšajte nasledujúce kroky:

1. Stlačením kombinácie klávesov „Ctrl + H“ otvorte dialógové okno „Nájsť a nahradiť“.
2. ďalej zadajte „^ p ^ p“ do textového poľa „Nájsť čo“.
3. A do textového poľa „Nahradiť za“ zadajte „^ p“.
4. Nakoniec kliknite na tlačidlo „Nahradiť všetko“.

Teraz môžete získať výsledok uvedený nižšie:

Navrhujeme vám, aby ste vyššie uvedeným spôsobom odstránili formátovanie textu, aby ste formátovanie mohli všeobecne vymazať. A ako sme už spomenuli, niekedy musíte vyčistiť iné druhy formátovania, potom by ste mali sami použiť funkciu „Nájsť a nahradiť“. Ďalšie spôsoby odstránenia formátovania nájdete v tomto článku: 3 spôsoby, ako okamžite odstrániť nežiaduce prvky z dokumentov Word

Ukážku si môžete pozrieť v nasledujúcom videu:

Zastaviť nahrávanie makra

1. Po dokončení odstraňovania formátovania textu kliknite na kartu Vývojár.
2. Potom kliknite na „Zastaviť nahrávanie“. Teraz sa makro uloží.

Ako spustiť makro

1. Skopírujte text s formátovaním online, povedzme.
2. Ďalej otvorte Word.
3. Potom kliknite na kartu Vývojár.
4. Kliknite na ikonu makra a uvidíte text v dokumente bez ďalšieho formátovania.

Poznámka: Pre nováčika stačí vytvoriť vyššie uvedené kroky a vytvoriť a spustiť makro. Spustenie makra vám pomôže zbaviť sa dráždivého formátovania, čo je dosť.

Kódy VBA pre experta

Najskôr existuje spôsob, ako zobraziť kódy VBA.

1. Najskôr kliknite na kartu Vývojár.
2. Potom kliknite na položku „Visual Basic“ v skupine „Code“.
3. V editore „Microsoft Visual Basic for Applications“ najskôr kliknite na „Normálne“ na ľavej strane.
4. Potom kliknite na „Moduly“.
5. Ďalej dvakrát kliknite na „NewMacros“ a budete si môcť pozrieť kód v pravej časti oblasti.

V tomto prípade sú kódy uvedené nižšie:

 

Sub copytext ()

"

'copytext Makro

"

"

    Odkaz Selection.PasteSpecial: = False, DataType: = wdPasteText, umiestnenie: = _

        wdInLine, DisplayAsIcon: = False

    Selection.Find.ClearFormatting

    Výber. Nájsť. Nahradiť. Vymazať formátovanie

    S výberom. Nájsť

        .Text = „Šípka“

        .Replacement.Text = „“

        .Vpred = Pravda

        .Zbaliť = wdFindContinue

        .Format = nepravda

        .MatchCase = False

        .MatchWholeWord = False

        .MatchWildcards = False

        .MatchSoundsLike = False

        .MatchAllWordForms = False

    Koniec s

    Selection.Find.Execute Replace: = wdReplaceAll

    Selection.Find.ClearFormatting

    Výber. Nájsť. Nahradiť. Vymazať formátovanie

    S výberom. Nájsť

        .Text = “^ t”

        .Replacement.Text = „“

        .Vpred = Pravda

        .Zbaliť = wdFindContinue

        .Format = nepravda

        .MatchCase = False

        .MatchWholeWord = False

        .MatchWildcards = False

        .MatchSoundsLike = False

        .MatchAllWordForms = False

    Koniec s

    Selection.Find.Execute Replace: = wdReplaceAll

    Selection.Find.Execute Replace: = wdReplaceAll

    Selection.Find.ClearFormatting

    Výber. Nájsť. Nahradiť. Vymazať formátovanie

    S výberom. Nájsť

        .Text = ”“

        .Replacement.Text = „“

        .Vpred = Pravda

        .Zbaliť = wdFindContinue

        .Format = nepravda

        .MatchCase = False

        .MatchWholeWord = False

        .MatchWildcards = False

        .MatchSoundsLike = False

        .MatchAllWordForms = False

    Koniec s

    Selection.Find.Execute Replace: = wdReplaceAll

    Selection.Find.ClearFormatting

    Výber. Nájsť. Nahradiť. Vymazať formátovanie

    S výberom. Nájsť

        .Text = ”^ p”

        .Replacement.Text = “^ p”

        .Vpred = Pravda

        .Zbaliť = wdFindContinue

        .Format = nepravda

        .MatchCase = False

        .MatchWholeWord = False

        .MatchWildcards = False

        .MatchSoundsLike = False

        .MatchAllWordForms = False

    Koniec s

    Selection.Find.Execute Replace: = wdReplaceAll

    Selection.Find.ClearFormatting

    Výber. Nájsť. Nahradiť. Vymazať formátovanie

    S výberom. Nájsť

        .Text = “^ p“

        .Replacement.Text = “^ p”

        .Vpred = Pravda

        .Zbaliť = wdFindContinue

        .Format = nepravda

        .MatchCase = False

        .MatchWholeWord = False

        .MatchWildcards = False

        .MatchSoundsLike = False

        .MatchAllWordForms = False

    Koniec s

    Selection.Find.Execute Replace: = wdReplaceAll

    Selection.Find.ClearFormatting

    Výber. Nájsť. Nahradiť. Vymazať formátovanie

    S výberom. Nájsť

        .Text = “^ p ^ p”

        .Replacement.Text = “^ p”

        .Vpred = Pravda

        .Zbaliť = wdFindContinue

        .Format = nepravda

        .MatchCase = False

        .MatchWholeWord = False

        .MatchWildcards = False

        .MatchSoundsLike = False

        .MatchAllWordForms = False

    Koniec s

    Selection.Find.Execute Replace: = wdReplaceAll

    Selection.Find.ClearFormatting

    Výber. Nájsť. Nahradiť. Vymazať formátovanie

    S výberom. Nájsť

        .Text = “^ p ^ p”

        .Replacement.Text = “^ p”

        .Vpred = Pravda

        .Zbaliť = wdFindContinue

        .Format = nepravda

        .MatchCase = False

        .MatchWholeWord = False

        .MatchWildcards = False

        .MatchSoundsLike = False

        .MatchAllWordForms = False

    Koniec s

    Selection.Find.Execute Replace: = wdReplaceAll

End Sub

 

Keď už hovoríme o expertoch a pokročilých používateľoch, ktorí sú oboznámení s VBA, môžete kódy úplne upraviť tak, aby vyhovovali vašim požiadavkám, čo bude pohodlnejšie a presnejšie.

Zabezpečte svoje súbory

Používatelia aplikácie Word na celom svete majú tendenciu ju čo najlepšie využívať. Je to vynikajúci a tiež nebezpečný nápad, pretože zvyšuje riziko zrútenia Wordu pri nesprávnych operáciách. Preto by ste mali vždy hľadať spôsoby, ako svoje súbory zabezpečiť. Medzi dostupnými možnosťami je získanie a oprava dok nástroj predtým znie zle.

Ú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 Excel zotavenie a pdf oprava softvérových produktov. Pre viac informácií navštívte www.datanumen. S