Jak odebrat formátování vložených textů pomocí maker a VBA ve vašem Wordu

Tento článek vám ukáže, jak odstranit formátování vloženého textu pomocí maker a VBA ve vašem slově.

Když zkopírujete text online, stane se to hodně a zjistíte, že je text v bohatém formátování. Například existují opakující se slova, prázdné řádky, znaky tabulátoru atd. Takové formátování však může být docela nepříjemné, zvláště v době, kdy to nepotřebujete. Přirozeně byste formátování odstranili ručně každý po druhém. Co když je však text opravdu dlouhý? Pak bude výše uvedená metoda méně účinná.

Ve skutečnosti existuje způsob, jak využít makro k odstranění veškerého formátování textu jednou provždy. Zde je více:

Kroky pro zaznamenání makra v aplikaci Word

1. Nejprve otevřete Word.
2. Nejprve na pásu karet přidejte kartu Vývojář. Podrobné pokyny k přidání výrazu „vývojář“ naleznete v článku: Jak vložit hudbu na pozadí do dokumentu Word
3. Jakmile je k dispozici karta „Vývojář“, klikněte na ni.
4. Poté klikněte na „Záznam makra“ ve skupině „Kód“.
5. Nyní se zobrazí dialogové okno „Záznam makra“. Nejprve sem zadejte název makra, například „copytext“.
6. Poté v části „Přiřadit makro k“ zvolte buď „Tlačítko“, nebo „Klávesnice“. Tady půjdeme „Button“.
7. Dále klikněte na „OK“.
8. A nyní uvidíte okno „Možnosti Wordu“. Klikněte na „Přizpůsobit pás karet“.
9. Poté najděte umístění makra na pravé straně. Zde klikneme na „Nová skupina“ a nastavíme novou pro makro.
10. Noe nadále vybírá „Makra“ z rozevíracího seznamu „Vybrat příkazy z“.
11. Dále klikněte na makro, které jste právě vytvořili.
12. Poté klikněte na „Přidat“ uprostřed okna.
13. Nyní bude makro umístěno do nové skupiny. Stačí kliknout pravým tlačítkem na makro.
14. A zvolte možnost „Přejmenovat“.
15. V dialogovém okně „Přejmenovat“ vyberte symbol pro své makro.
16. Poté zadejte zobrazovaný název.
17. Klikněte na tlačítko OK.
18. Nyní se vraťte do okna „Možnosti Wordu“ a klikněte tam na „OK“. Makro starod nynějška nahrávám.

Vložte text jako neformátovaný text

1. Nejprve zkopírujte část dlouhého textu.
2. Poté klikněte na kartu Domů.
3. Klikněte na „Vložit“.
4. Dále zvolte „Vložit jinak“.
5. V dialogovém okně „Vložit jinak“ vyberte „Neformátovaný text“.
6. Poté klikněte na „OK“. Můžete obdržet text s formátováním, jako je níže:

Odstraňte opakující se slova

1. Další start vymazání formátování vlevo. Stisknutím kláves „Ctrl + H“ otevřete dialogové okno „Najít a nahradit“.
2. A do textového pole „Najít co“ napište „Šipka“.
3. Poté klikněte na „Nahradit vše“.

Odebrat znaky tabulátoru

1. Nejprve stisknutím kláves „Ctrl + H“ otevřete dialogové okno „Najít a nahradit“.
2. Poté do textového pole „Najít co“ zadejte „^ t“.
3. Poté kliknutím na „Nahradit vše“ odeberete všechny znaky na záložce.

Odstraňte mezery navíc

1. Stále stiskněte „Ctrl + H“ a otevřete dialogové okno „Najít a nahradit“.
2. V textovém poli „Najít co“ dvakrát stiskněte prázdnou klávesu.
3. Poté klikněte na tlačítko „Nahradit vše“.

Odstraňte společně prázdné mezery a extra mezery

Někdy při odstraňování formátování pomocí funkce „Najít a nahradit“ je nutné se trochu přizpůsobit vašim potřebám. Pokud se vám například při použití výše uvedených kroků nepodaří odstranit všechny další mezery, můžete je pomocí níže uvedených kroků odstranit spolu s prázdnými řádky.

1. Podobně stisknutím kláves „Ctrl + H“ otevřete dialogové okno „Najít a nahradit“.
2. Dále v textovém poli Najít co nejdříve stiskněte prázdnou klávesu.
3. Poté zadejte „^ p“.
4. Do textového pole „Nahradit za“ zadejte „^ p“.
5. Klikněte na „Nahradit vše“.
6. Znovu otevřete dialogové okno „Najít a nahradit“.
7. A do textového pole „Najít co“ nejprve napište „^ p“.
8. Poté stiskněte jednou prázdné tlačítko.
9. Do textového pole „Nahradit za“ zadejte „^ p“.
10. Nakonec klikněte na tlačítko „Nahradit vše“.

Pokud je to nutné, odstraňte prázdné prázdné řádky

Pokud přesto zůstanou prázdné řádky, zkuste provést následující kroky:

1. Stisknutím kláves „Ctrl + H“ otevřete dialogové okno „Najít a nahradit“.
2. další zadejte „^ p ^ p“ do textového pole „Najít co“.
3. Do textového pole „Nahradit za“ zadejte „^ p“.
4. Nakonec klikněte na tlačítko „Nahradit vše“.

Nyní můžete získat výsledek níže:

Zde vám doporučujeme odebrat výše uvedené pořadí k odstranění formátování textu, abyste formátování mohli obecně vymazat. A jak jsme již zmínili, někdy musíte vymazat jiné druhy formátování, pak byste měli sami používat funkci „Najít a nahradit“. Další způsoby odebrání formátování najdete v tomto článku: 3 způsoby, jak okamžitě odstranit nežádoucí prvky z dokumentů Word

Chcete-li zobrazit ukázku, můžete zkontrolovat následující video:

Zastavit záznam makra

1. Jakmile dokončíte odstraňování formátování textu, klikněte na kartu Vývojář.
2. Poté klikněte na „Zastavit nahrávání“. Nyní bude makro uloženo.

Jak spustit makro

1. Zkopírujte text s formátováním online, řekněme.
2. Otevřete Word další.
3. Poté klikněte na kartu „Vývojář“.
4. Klikněte na ikonu makra a uvidíte text v dokumentu bez dalšího formátování.

Poznámka: Pro nováčka stačí vytvořit a spustit makro výše uvedenými kroky. Spuštění makra vám pomůže zbavit se dráždivého formátování, což je dost.

Kódy VBA pro odborníka

Nejprve existuje způsob, jak zobrazit kódy VBA.

1. Nejprve klikněte na kartu „Vývojář“.
2. Poté klikněte na „Visual Basic“ ve skupině „Code“.
3. V editoru „Microsoft Visual Basic for Applications“ nejprve klikněte vlevo na „Normální“.
4. Poté klikněte na „Moduly“.
5. Dále poklepejte na „NewMacros“ a budete moci zobrazit kód v pravé části oblasti.

V tomto případě jsou kódy uvedeny níže:

 

Dílčí text ()

"

'copytext Makro

"

"

    Selection.PasteSpecial Link: = False, DataType: = wdPasteText, umístění: = _

        wdInLine, DisplayAsIcon: = False

    Selection.Find.ClearFormatting

    Selection.Find.Replacement.ClearFormatting

    S výběrem

        .Text = “Šipka”

        .Replacement.Text = „“

        Předmět = Pravda

        .Wrap = wdFindContinue

        Formát = False

        .MatchCase = False

        .MatchWholeWord = False

        .MatchWildcards = False

        .MatchSoundsLike = False

        .MatchAllWordForms = False

    Konec s

    Selection.Find.Execute Nahradit: = wdReplaceAll

    Selection.Find.ClearFormatting

    Selection.Find.Replacement.ClearFormatting

    S výběrem

        .Text = “^ t”

        .Replacement.Text = „“

        Předmět = Pravda

        .Wrap = wdFindContinue

        Formát = False

        .MatchCase = False

        .MatchWholeWord = False

        .MatchWildcards = False

        .MatchSoundsLike = False

        .MatchAllWordForms = False

    Konec s

    Selection.Find.Execute Nahradit: = wdReplaceAll

    Selection.Find.Execute Nahradit: = wdReplaceAll

    Selection.Find.ClearFormatting

    Selection.Find.Replacement.ClearFormatting

    S výběrem

        .Text = ”“

        .Replacement.Text = „“

        Předmět = Pravda

        .Wrap = wdFindContinue

        Formát = False

        .MatchCase = False

        .MatchWholeWord = False

        .MatchWildcards = False

        .MatchSoundsLike = False

        .MatchAllWordForms = False

    Konec s

    Selection.Find.Execute Nahradit: = wdReplaceAll

    Selection.Find.ClearFormatting

    Selection.Find.Replacement.ClearFormatting

    S výběrem

        .Text = ”^ p”

        .Replacement.Text = “^ p”

        Předmět = Pravda

        .Wrap = wdFindContinue

        Formát = False

        .MatchCase = False

        .MatchWholeWord = False

        .MatchWildcards = False

        .MatchSoundsLike = False

        .MatchAllWordForms = False

    Konec s

    Selection.Find.Execute Nahradit: = wdReplaceAll

    Selection.Find.ClearFormatting

    Selection.Find.Replacement.ClearFormatting

    S výběrem

        .Text = “^ p“

        .Replacement.Text = “^ p”

        Předmět = Pravda

        .Wrap = wdFindContinue

        Formát = False

        .MatchCase = False

        .MatchWholeWord = False

        .MatchWildcards = False

        .MatchSoundsLike = False

        .MatchAllWordForms = False

    Konec s

    Selection.Find.Execute Nahradit: = wdReplaceAll

    Selection.Find.ClearFormatting

    Selection.Find.Replacement.ClearFormatting

    S výběrem

        .Text = “^ p ^ p”

        .Replacement.Text = “^ p”

        Předmět = Pravda

        .Wrap = wdFindContinue

        Formát = False

        .MatchCase = False

        .MatchWholeWord = False

        .MatchWildcards = False

        .MatchSoundsLike = False

        .MatchAllWordForms = False

    Konec s

    Selection.Find.Execute Nahradit: = wdReplaceAll

    Selection.Find.ClearFormatting

    Selection.Find.Replacement.ClearFormatting

    S výběrem

        .Text = “^ p ^ p”

        .Replacement.Text = “^ p”

        Předmět = Pravda

        .Wrap = wdFindContinue

        Formát = False

        .MatchCase = False

        .MatchWholeWord = False

        .MatchWildcards = False

        .MatchSoundsLike = False

        .MatchAllWordForms = False

    Konec s

    Selection.Find.Execute Nahradit: = wdReplaceAll

End Sub

 

Když už mluvíme o odbornících a pokročilých uživatelích, kteří jsou obeznámeni s VBA, můžete zcela upravit kódy tak, aby vyhovovaly vašim požadavkům, což bude pohodlnější a přesnější.

Zabezpečte své soubory

Uživatelé aplikace Word na celém světě mají tendenci ji co nejlépe využívat. Je to skvělý a také nebezpečný nápad, protože zvyšuje riziko sbalení Wordu při nesprávných operacích. Proto byste měli vždy najít způsoby, jak své soubory zabezpečit. Mezi dostupnými možnostmi je získání a oprava dokumentu nástroj předem zní špatně.

Úvod autora:

Vera Chen je expertka na obnovu dat DataNumen, Inc., která je světovým lídrem v oblasti technologií pro obnovu dat, včetně Excel zotavení a pdf opravy softwarových produktů. Pro více informací navštivte www.datanumen.com