Kako ukloniti oblikovanje zalijepljenih tekstova s ​​makronaredbom i VBA u vašem Wordu

Riječ rješenja 28. rujna 2025.
Podijeli sada:

Ovaj članak će vam pokazati kako ukloniti oblikovanje zalijepljenog teksta s makronaredbom i VBA u vašem Wordu.

Često se događa kada kopirate tekst na mreži i otkrijete da je tekst u obogaćenom formatu. Na primjer, postoje riječi koje se ponavljaju, prazni redovi, znakovi tabulatora, itd. Ipak, takvo oblikovanje može biti prilično neugodno, posebno u trenucima kada vam nisu potrebni. Naravno, svaki biste ručno uklonili oblikovanje. Međutim, što ako je tekst jako dugačak? Tada će gornja metoda biti manje učinkovita.

Zapravo, postoji način da se pomoću makronaredbe ukloni svo oblikovanje teksta jednom zauvijek. Evo više:

Koraci za snimanje makronaredbe u Wordu

  1. Prvo, otvorite svoju Word.
  2. I provjerite jeste li prvo dodali karticu "Razvojni programer" na vrpcu. Za detaljne upute za dodavanje "Developera" pročitajte članak: Kako umetnuti pozadinsku glazbu u svoj Word dokument
  3. Kada kartica "Razvojni programer" postane dostupna, kliknite je.
  4. Zatim kliknite "Snimi makro" u grupi "Kôd".Kliknite "Developer" -> Kliknite "Record Macro"
  5. Sada će se pojaviti dijaloški okvir "Snimi makronaredbu". Prvo upišite naziv makronaredbe, kao što je "copytext" ovdje.
  6. Zatim u dijelu "Dodijeli makro" odaberite "Gumb" ili "Tipkovnica". Ovdje ćemo ići na "gumb".
  7. Zatim kliknite "OK".Imenujte makronaredbu -> Odaberite "Gumb" ili "Tipkovnica" za "Dodijeli makronaredbu" -> Kliknite "U redu"
  8. Sada ćete vidjeti prozor "Word Options". Kliknite "Prilagodi vrpcu".
  9. Zatim pronađite mjesto za makro na desnoj strani. Ovdje ćemo kliknuti "Nova grupa" da postavimo novu za makro.
  10. Noe nastavite birati “Makronaredbe” s padajućeg popisa “Odaberi naredbe iz”.
  11. Zatim kliknite makronaredbu koju ste upravo stvorili.
  12. Zatim kliknite "Dodaj" u sredini prozora.
  13. Sada će makronaredba biti smještena u novu grupu. Samo desnom tipkom miša kliknite makro.
  14. I odaberite opciju "Preimenuj".Kliknite "Prilagodi vrpcu" -> Odaberite mjesto za makronaredbu -> Odaberite "Makronaredbe" u "Odaberi naredbe iz" -> Kliknite makronaredbu -> kliknite "Dodaj" -> Desni klik na makronaredbu -> Odaberite "Preimenuj"
  15. U dijaloškom okviru "Preimenuj" odaberite simbol za svoju makronaredbu.
  16. Zatim upišite ime za prikaz.
  17. Kliknite "U redu".Odaberite simbol -> Upišite naziv za prikaz -> Kliknite "U redu"
  18. Sada se vratite u prozor "Opcije programa Word" i kliknite "U redu". Makro će od sada započeti snimanje.Kliknite "OK" u "Word Options"Word Početak snimanja makronaredbe

Zalijepi tekst kao neformatirani tekst

  1. Najprije kopirajte dio dugog teksta.
  2. Zatim kliknite karticu "Početna".
  3. Pritisnite "Zalijepi".
  4. Zatim odaberite "Posebno lijepljenje".Kliknite "Početna" -> Kliknite "Zalijepi" -> Kliknite "Posebno zalijepi"
  5. Odaberite "Neformatirani tekst" u dijaloškom okviru "Posebno lijepljenje".
  6. Zatim kliknite "OK". Možete dobiti tekst s oblikovanjem kao što je dolje:Odaberite "Neformatirani tekst" -> Kliknite "U redu"Tekst zalijepljen kao neformatirani tekst

Uklonite riječi koje se ponavljaju

  1. Zatim počnite brisati formatiranje lijevo. Pritisnite "Ctrl + H" da biste otvorili dijaloški okvir "Pronađi i zamijeni".
  2. I upišite "Strelica" u tekstualni okvir "Pronađi što".
  3. Zatim kliknite "Zamijeni sve".Upišite riječ koja se ponavlja u tekstualni okvir "Pronađi što" -> kliknite "Zamijeni sve"

Ukloni tabulatore

  1. Najprije pritisnite “Ctrl+ H” da biste otvorili dijaloški okvir “Pronađi i zamijeni”.
  2. Zatim upišite “^t” u tekstni okvir “Pronađi što”.
  3. Zatim kliknite "Zamijeni sve" da biste uklonili sve znakove kartice.Upišite "^t" u tekstualni okvir "Pronađi što" -> kliknite "Zamijeni sve"

Uklonite dodatne praznine

  1. I dalje pritisnite "Ctrl+ H" da biste otvorili dijaloški okvir "Pronađi i zamijeni".
  2. U tekstnom okviru "Pronađi što" dvaput pritisnite praznu tipku.
  3. Zatim kliknite gumb "Zamijeni sve".Pritisnite praznu tipku dvaput u tekstualnom okviru "Pronađi što" -> kliknite "Zamijeni sve"

Uklonite prazne retke i suvišne praznine zajedno

Ponekad, kada koristite funkciju "Pronađi i zamijeni" za uklanjanje oblikovanja, morate se malo prilagoditi svojim potrebama. Na primjer, ako ne uspijete ukloniti sve dodatne praznine prilikom primjene gornjih koraka, možete upotrijebiti donje korake da ih izbrišete zajedno s praznim redcima.

  1. Slično, pritisnite “Ctrl+ H” da biste otvorili dijaloški okvir “Pronađi i zamijeni”.
  2. Zatim u tekstnom okviru "Pronađi što" najprije pritisnite praznu tipku.
  3. Zatim upišite “^p”.
  4. U tekstualni okvir “Zamijeni sa” upišite “^p”.
  5. Kliknite "Zamijeni sve".Prvo pritisnite praznu tipku -> Upišite "^p" u tekstni okvir "Pronađi što" -> Upišite "^p" u tekstualni okvir "Zamijeni s" -> Kliknite "Zamijeni sve"
  6. Ponovno otvorite dijaloški okvir "Pronađi i zamijeni".
  7. A u tekstualni okvir "Pronađi što" prvo upišite "^p".
  8. Zatim jednom pritisnite tipku za prazno.
  9. Zatim upišite “^p” u tekstni okvir “Zamijeni sa”.
  10. Na kraju kliknite gumb "Zamijeni sve".Prvo upišite "^p" -> Jednom pritisnite praznu tipku u tekstualni okvir "Pronađi što" -> Upišite "^p" u tekstualni okvir "Zamijeni s" -> Kliknite "Zamijeni sve"

Uklonite lijeve prazne retke ako je potrebno

Ipak, ako ostane praznih redaka, pokušajte sljedeće:

  1. Pritisnite “Ctrl+ H” da biste otvorili dijaloški okvir “Traži i zamijeni”.
  2. zatim upišite “^p^p” u tekstni okvir “Pronađi što”.
  3. I upišite “^p” u tekstni okvir “Zamijeni sa”.
  4. Na kraju kliknite gumb "Zamijeni sve".Upišite "^p^p" u tekstualni okvir "Pronađi što" -> Upišite "^p" u tekstualni okvir "Zamijeni s" -> Kliknite "Zamijeni sve"

Do sada biste mogli dobiti rezultat kao u nastavku:Učinak korištenja funkcije "Zamijeni" za uklanjanje oblikovanja

Ovdje predlažemo da slijedite gornju naredbu kako biste uklonili oblikovanje teksta kako biste općenito mogli izbrisati oblikovanje. I kao što smo spomenuli, ponekad morate obrisati druge vrste oblikovanja, tada biste trebali sami koristiti funkciju "Pronađi i zamijeni". Za više načina uklanjanja oblikovanja posjetite ovaj članak: 3 načina za trenutno uklanjanje neželjenih elemenata iz vaših Word dokumenata

Možete pogledati sljedeći video kako biste vidjeli demonstraciju:

Zaustavi snimanje makronaredbe

  1. Nakon što završite s uklanjanjem oblikovanja teksta, kliknite karticu "Razvojni programer".
  2. Zatim kliknite "Zaustavi snimanje". Sada će makronaredba biti spremljena.Kliknite "Programer" -> Kliknite "Zaustavi snimanje"

Kako pokrenuti makronaredbu

  1. Kopiraj tekst s formatiranjem online, recimo.
  2. Zatim otvorite Word.
  3. Zatim kliknite karticu "Razvojni programer".
  4. Kliknite ikonu makronaredbe i vidjet ćete tekst na dokumentu bez dodatnog oblikovanja.Kliknite "Razvojni programer" -> Kliknite upravo snimljenu makronaredbuUčinak korištenja makronaredbe za uklanjanje oblikovanja

Napomena: Za početnike, možete jednostavno poduzeti gornje korake za stvaranje i pokretanje makronaredbe. Pokretanje makronaredbe pomoći će vam da se riješite iritantnog oblikovanja u cjelini, što je dovoljno.

VBA kodovi za stručnjaka

Prvo postoji način za pregled VBA kodova.

  1. Najprije kliknite karticu "Razvojni programer".
  2. Zatim kliknite "Visual Basic" u grupi "Kôd".Kliknite "Developer" -> Kliknite "Visual Basic"
  3. U uređivaču "Microsoft Visual Basic for Applications" najprije kliknite "Normal" na lijevoj strani.
  4. Zatim kliknite na "Moduli".
  5. Zatim dvaput kliknite "NewMacros" i moći ćete vidjeti kod na području s desne strane.Kliknite "Normalno" -> Kliknite "Moduli" -> Dvaput kliknite "NewMacros"

U ovom slučaju, kodovi su sljedeći:

 

Subcopytext()

'

' copytext Makro

'

'

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

        wdInLine, DisplayAsIcon:=False

    Selection.Find.ClearFormatting

    Selection.Find.Replacement.ClearFormatting

    Uz Selection.Find

        .Text = “Strelica”

        .Replacement.Text = ""

        .Naprijed = Istina

        .wrap = wdFindContinue

        .format=false

        .MatchCase = False

        .MatchWholeWord = Netočno

        .MatchWildcards = False

        .MatchSoundsLike = False

        .MatchAllWordForms = False

    Završi sa

    Selection.Find.Execute Replace:=wdReplaceAll

    Selection.Find.ClearFormatting

    Selection.Find.Replacement.ClearFormatting

    Uz Selection.Find

        .Tekst = “^t”

        .Replacement.Text = ""

        .Naprijed = Istina

        .wrap = wdFindContinue

        .format=false

        .MatchCase = False

        .MatchWholeWord = Netočno

        .MatchWildcards = False

        .MatchSoundsLike = False

        .MatchAllWordForms = False

    Završi sa

    Selection.Find.Execute Replace:=wdReplaceAll

    Selection.Find.Execute Replace:=wdReplaceAll

    Selection.Find.ClearFormatting

    Selection.Find.Replacement.ClearFormatting

    Uz Selection.Find

        .Tekst = ” “

        .Replacement.Text = ""

        .Naprijed = Istina

        .wrap = wdFindContinue

        .format=false

        .MatchCase = False

        .MatchWholeWord = Netočno

        .MatchWildcards = False

        .MatchSoundsLike = False

        .MatchAllWordForms = False

    Završi sa

    Selection.Find.Execute Replace:=wdReplaceAll

    Selection.Find.ClearFormatting

    Selection.Find.Replacement.ClearFormatting

    Uz Selection.Find

        .Tekst = ” ^p”

        .Replacement.Text = “^p”

        .Naprijed = Istina

        .wrap = wdFindContinue

        .format=false

        .MatchCase = False

        .MatchWholeWord = Netočno

        .MatchWildcards = False

        .MatchSoundsLike = False

        .MatchAllWordForms = False

    Završi sa

    Selection.Find.Execute Replace:=wdReplaceAll

    Selection.Find.ClearFormatting

    Selection.Find.Replacement.ClearFormatting

    Uz Selection.Find

        .Tekst = “^p “

        .Replacement.Text = “^p”

        .Naprijed = Istina

        .wrap = wdFindContinue

        .format=false

        .MatchCase = False

        .MatchWholeWord = Netočno

        .MatchWildcards = False

        .MatchSoundsLike = False

        .MatchAllWordForms = False

    Završi sa

    Selection.Find.Execute Replace:=wdReplaceAll

    Selection.Find.ClearFormatting

    Selection.Find.Replacement.ClearFormatting

    Uz Selection.Find

        .Tekst = “^p^p”

        .Replacement.Text = “^p”

        .Naprijed = Istina

        .wrap = wdFindContinue

        .format=false

        .MatchCase = False

        .MatchWholeWord = Netočno

        .MatchWildcards = False

        .MatchSoundsLike = False

        .MatchAllWordForms = False

    Završi sa

    Selection.Find.Execute Replace:=wdReplaceAll

    Selection.Find.ClearFormatting

    Selection.Find.Replacement.ClearFormatting

    Uz Selection.Find

        .Tekst = “^p^p”

        .Replacement.Text = “^p”

        .Naprijed = Istina

        .wrap = wdFindContinue

        .format=false

        .MatchCase = False

        .MatchWholeWord = Netočno

        .MatchWildcards = False

        .MatchSoundsLike = False

        .MatchAllWordForms = False

    Završi sa

    Selection.Find.Execute Replace:=wdReplaceAll

End Sub

 

Kad govorimo o stručnjacima i naprednim korisnicima koji poznaju VBA, kodove možete u potpunosti prilagoditi svojim zahtjevima, što će biti praktičnije i preciznije.

Osigurajte svoje datoteke

Korisnici Worda diljem svijeta nastoje ga iskoristiti na najbolji način. To je sjajna, ali i opasna ideja, budući da povećava rizik od kolapsa Worda pogrešnim operacijama. Stoga biste uvijek trebali pronaći načine kako zaštititi svoje datoteke. Među dostupnim opcijama, dobivanje a popravak dok alat unaprijed ne zvuči loše.

Uvod za autora:

Vera Chen stručnjakinja je za oporavak podataka u DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući excel oporavak i pdf popraviti softverske proizvode. Za više informacija posjetite www.datanumen.com

Podijeli sada:

Komentari su zatvoreni.