Kako odstraniti oblikovanje prilepljenih besedil z makro in VBA v besedi

Ta članek vam bo pokazal, kako odstraniti oblikovanje prilepljenega besedila z makrom in VBA v vaši besedi.

Pogosto se zgodi, ko kopirate besedilo v spletu in ugotovite, da je besedilo v obogatenem oblikovanju. Obstajajo na primer ponavljajoče se besede, prazne vrstice, tabulatorji itd. Vendar pa je takšno oblikovanje lahko precej moteče, zlasti v trenutkih, ko jih ne potrebujete. Seveda bi oblikovanje odstranili ročno vsakega posebej. Kaj pa, če je besedilo res dolgo? Potem bo zgornja metoda manj učinkovita.

Pravzaprav obstaja način za uporabo makra za odstranitev vsega oblikovanja besedila enkrat za vselej. Tukaj je več:

Koraki za snemanje makra v Word

1. Najprej odprite Word.
2. Prepričajte se, da ste najprej dodali zavihek »Razvijalec« na trak. Za podrobna navodila za dodajanje »Razvijalca« preberite članek: Kako vstaviti glasbo v ozadje v dokument Word
3. Ko je zavihek »Razvijalec« na voljo, ga kliknite.
4. Nato kliknite »Posnemi makro« v skupini »Koda«.
5. Zdaj se bo pojavilo pogovorno okno »Snemanje makra«. Najprej vnesite ime makra, na primer »copytext« tukaj.
6. Nato v delu »Dodeli makro« izberite »Gumb« ali »Tipkovnica«. Tukaj bomo šli "Gumb".
7. Nato kliknite »V redu«.
8. In zdaj boste videli okno »Word Options«. Kliknite »Prilagodi trak«.
9. Nato poiščite lokacijo za makro na desni strani. Tukaj bomo kliknili »Nova skupina«, da nastavimo novo za makro.
10. Noe nadaljujte z izbiro »Makri« s spustnega seznama »Izberite ukaze iz«.
11. Nato kliknite makro, ki ste ga pravkar ustvarili.
12. Nato na sredini okna kliknite »Dodaj«.
13. Zdaj bo makro postavljen v novo skupino. Z desno miškino tipko kliknite makro.
14. In izberite možnost »Preimenuj«.
15. V pogovornem oknu »Preimenuj« izberite simbol za svoj makro.
16. Nato vnesite prikazno ime.
17. Kliknite »V redu«.
18. Zdaj se vrnite v okno »Možnosti programa Word« in tam kliknite »V redu«. Makro bo od zdaj naprej začel snemati.

Prilepi besedilo kot neoblikovano besedilo

1. Najprej kopirajte del daljšega besedila.
2. Nato kliknite zavihek »Domov«.
3. Kliknite »Prilepi«.
4. Nato izberite »Posebno lepljenje«.
5. In v pogovornem oknu »Posebno lepljenje« izberite »Neformatirano besedilo«.
6. Nato kliknite »V redu«. Morda boste prejeli besedilo z oblikovanjem, kot je spodaj:

Odstranite ponavljajoče se besede

1. Nato začnite brisati oblikovanje levo. Pritisnite »Ctrl + H«, da odprete pogovorno okno »Najdi in zamenjaj«.
2. In v besedilno polje »Najdi kaj« vnesite »puščica«.
3. Nato kliknite »Zamenjaj vse«.

Odstrani tabulatorske znake

1. Najprej pritisnite »Ctrl+ H«, da odprete pogovorno okno »Najdi in zamenjaj«.
2. Nato v besedilno polje »Najdi kaj« vnesite »^t«.
3. Nato kliknite »Zamenjaj vse«, da odstranite vse tabulatorske znake.

Odstranite dodatne praznine

1. Še vedno pritisnite »Ctrl+ H«, da odprete pogovorno okno »Najdi in zamenjaj«.
2. V besedilnem polju »Najdi kaj« dvakrat pritisnite prazno tipko.
3. Nato kliknite gumb »Zamenjaj vse«.

Odstranite prazne vrstice in odvečne praznine skupaj

Včasih, ko uporabljate funkcijo »Najdi in zamenjaj« za odstranitev oblikovanja, se morate nekoliko prilagoditi svojim potrebam. Če na primer pri uporabi zgornjih korakov ne odstranite vseh odvečnih praznin, jih lahko s spodnjimi koraki izbrišete skupaj s praznimi vrsticami.

1. Podobno pritisnite »Ctrl+ H«, da odprete pogovorno okno »Najdi in zamenjaj«.
2. Nato v besedilnem polju »Najdi kaj« najprej pritisnite prazno tipko.
3. Nato vnesite »^p«.
4. V besedilno polje »Zamenjaj z« vnesite »^p«.
5. Kliknite »Zamenjaj vse«.
6. Ponovno odprite pogovorno okno »Najdi in zamenjaj«.
7. In v besedilno polje »Najdi kaj« najprej vnesite »^p«.
8. Nato enkrat pritisnite prazno tipko.
9. Nato v besedilno polje »Zamenjaj z« vnesite »^p«.
10. Na koncu kliknite gumb »Zamenjaj vse«.

Odstranite leve prazne vrstice, če je potrebno

Kljub temu, če ostanejo prazne vrstice, poskusite naslednje:

1. Pritisnite »Ctrl+ H«, da odprete pogovorno okno »Najdi in zamenjaj«.
2. nato v besedilno polje »Najdi kaj« vnesite »^p^p«.
3. In v besedilno polje »Zamenjaj z« vnesite »^p«.
4. Na koncu kliknite gumb »Zamenjaj vse«.

Do zdaj lahko dobite naslednje rezultate:

Predlagamo, da uporabite zgornji ukaz za odstranitev oblikovanja besedila, tako da lahko na splošno izbrišete oblikovanje. In kot smo že omenili, morate včasih počistiti druge vrste oblikovanja, potem pa morate sami uporabiti funkcijo »Najdi in zamenjaj«. Za več načinov za odstranitev oblikovanja si lahko ogledate ta članek: 3 načini takojšnje odstranitve neželenih elementov iz dokumentov Word

Za ogled predstavitve si lahko ogledate naslednji videoposnetek:

Ustavi snemanje makra

1. Ko končate z odstranjevanjem oblikovanja besedila, kliknite zavihek »Razvijalec«.
2. Nato kliknite »Ustavi snemanje«. Zdaj bo makro shranjen.

Kako zagnati makro

1. Kopirajte besedilo z oblikovanjem na spletu, recimo.
2. Nato odprite Word.
3. Nato kliknite zavihek »Razvijalec«.
4. Kliknite ikono makra in videli boste besedilo na dokumentu brez dodatnega oblikovanja.

Opomba: Za začetnike lahko preprosto naredite zgornje korake, da ustvarite in zaženete makro. Zagon makra vam bo pomagal, da se znebite motečega oblikovanja na splošno, kar je dovolj.

Kode VBA za strokovnjaka

Najprej je tu način za ogled kod VBA.

1. Najprej kliknite zavihek »Razvijalec«.
2. Nato kliknite »Visual Basic« v skupini »Koda«.
3. V urejevalniku »Microsoft Visual Basic for Applications« najprej kliknite »Normal« na levi strani.
4. Nato kliknite »Moduli«.
5. Nato dvokliknite »NewMacros« in na desni strani si boste lahko ogledali kodo.

V tem primeru so kode naslednje:

 

Subcopytext()

"

' makro za kopiranje besedila

"

"

    Selection.PasteSpecial Link:=False, DataType:=wdPasteText, Placement:= _

        wdInLine, DisplayAsIcon:=False

    Selection.Find.ClearFormatting

    Selection.Find.Replacement.ClearFormatting

    Z izbiro Najdi

        .Text = “puščica”

        .Replacement.Text = ""

        .Naprej = True

        .Wrap = wdFindNastavi

        .Format = Napačno

        .MatchCase = Neresnično

        .MatchWholeWord = Neresnično

        .MatchWildcards = False

        .MatchSoundsLike = False

        .MatchAllWordForms = Neresnično

    Končaj s

    Selection.Find.Execute Replace: = wdReplaceAll

    Selection.Find.ClearFormatting

    Selection.Find.Replacement.ClearFormatting

    Z izbiro Najdi

        .Besedilo = “^t”

        .Replacement.Text = ""

        .Naprej = True

        .Wrap = wdFindNastavi

        .Format = Napačno

        .MatchCase = Neresnično

        .MatchWholeWord = Neresnično

        .MatchWildcards = False

        .MatchSoundsLike = False

        .MatchAllWordForms = Neresnično

    Končaj s

    Selection.Find.Execute Replace: = wdReplaceAll

    Selection.Find.Execute Replace: = wdReplaceAll

    Selection.Find.ClearFormatting

    Selection.Find.Replacement.ClearFormatting

    Z izbiro Najdi

        .Besedilo = ” “

        .Replacement.Text = ""

        .Naprej = True

        .Wrap = wdFindNastavi

        .Format = Napačno

        .MatchCase = Neresnično

        .MatchWholeWord = Neresnično

        .MatchWildcards = False

        .MatchSoundsLike = False

        .MatchAllWordForms = Neresnično

    Končaj s

    Selection.Find.Execute Replace: = wdReplaceAll

    Selection.Find.ClearFormatting

    Selection.Find.Replacement.ClearFormatting

    Z izbiro Najdi

        .Besedilo = ” ^p”

        .Replacement.Text = “^p”

        .Naprej = True

        .Wrap = wdFindNastavi

        .Format = Napačno

        .MatchCase = Neresnično

        .MatchWholeWord = Neresnično

        .MatchWildcards = False

        .MatchSoundsLike = False

        .MatchAllWordForms = Neresnično

    Končaj s

    Selection.Find.Execute Replace: = wdReplaceAll

    Selection.Find.ClearFormatting

    Selection.Find.Replacement.ClearFormatting

    Z izbiro Najdi

        .Besedilo = “^p “

        .Replacement.Text = “^p”

        .Naprej = True

        .Wrap = wdFindNastavi

        .Format = Napačno

        .MatchCase = Neresnično

        .MatchWholeWord = Neresnično

        .MatchWildcards = False

        .MatchSoundsLike = False

        .MatchAllWordForms = Neresnično

    Končaj s

    Selection.Find.Execute Replace: = wdReplaceAll

    Selection.Find.ClearFormatting

    Selection.Find.Replacement.ClearFormatting

    Z izbiro Najdi

        .Besedilo = “^p^p”

        .Replacement.Text = “^p”

        .Naprej = True

        .Wrap = wdFindNastavi

        .Format = Napačno

        .MatchCase = Neresnično

        .MatchWholeWord = Neresnično

        .MatchWildcards = False

        .MatchSoundsLike = False

        .MatchAllWordForms = Neresnično

    Končaj s

    Selection.Find.Execute Replace: = wdReplaceAll

    Selection.Find.ClearFormatting

    Selection.Find.Replacement.ClearFormatting

    Z izbiro Najdi

        .Besedilo = “^p^p”

        .Replacement.Text = “^p”

        .Naprej = True

        .Wrap = wdFindNastavi

        .Format = Napačno

        .MatchCase = Neresnično

        .MatchWholeWord = Neresnično

        .MatchWildcards = False

        .MatchSoundsLike = False

        .MatchAllWordForms = Neresnično

    Končaj s

    Selection.Find.Execute Replace: = wdReplaceAll

End Sub

 

Ko govorimo o strokovnjakih in naprednih uporabnikih, ki poznajo VBA, lahko kode popolnoma prilagodite svojim zahtevam, kar bo bolj priročno in natančno.

Zavarujte svoje datoteke

Uporabniki Worda po vsem svetu ga kar najbolje izkoristijo. To je odlična in tudi nevarna ideja, saj povečuje tveganje, da se Word sesuje z napačnimi operacijami. Zato morate vedno najti načine za zaščito datotek. Med razpoložljivimi možnostmi je pridobivanje a popravilo dokumenta orodje vnaprej ne zveni slabo.

Uvod avtorja:

Vera Chen je strokovnjakinja za obnovitev podatkov v DataNumen, Inc., ki je vodilna na svetu na področju tehnologij za obnovitev podatkov, vključno z odlično okrevanje in pdf popravilo programskih izdelkov. Za več informacij obiščite www.datanumen.com