Ovaj članak će vam pokazati kako ukloniti formatiranje zalijepljenog teksta pomoću makroa i VBA u vašoj riječi.
To se često dešava kada kopirate tekst na mreži i otkrijete da je tekst u bogatom formatu. Na primjer, postoje riječi koje se ponavljaju, prazni redovi, znakovi tabulatora, itd. Ipak, takvo formatiranje može biti prilično neugodno, posebno u trenucima koji vam nisu potrebni. Naravno, svaki po jedan biste ručno uklanjali formatiranje. Međutim, šta ako je tekst zaista dugačak? Tada će gornja metoda biti manje efikasna.
U stvari, postoji način da se koristi makro za uklanjanje cijelog oblikovanja teksta jednom zauvijek. Evo još:
Koraci za snimanje makroa u Wordu
- Prvo otvorite svoj Word.
- I provjerite jeste li prvo dodali karticu "Developer" na traku. Za detaljne upute za dodavanje "Developera", pročitajte članak: Kako umetnuti pozadinsku muziku u Word dokument
- Kada je kartica "Developer" dostupna, kliknite je.
- Zatim kliknite na "Snimi makro" u grupi "Kod".
- Sada će se pojaviti dijaloški okvir “Snimanje makroa”. Prvo unesite naziv makronaredbe, kao što je "copytext" ovdje.
- Zatim u dijelu “Dodijeli makro” odaberite ili “Dugme” ili “Tastatura”. Ovdje ćemo ići "Dugme".
- Zatim kliknite na “OK”.
- I sada ćete vidjeti prozor "Opcije riječi". Kliknite na "Prilagodi vrpcu".
- Zatim pronađite lokaciju za makro na desnoj strani. Ovdje ćemo kliknuti na “Nova grupa” da postavimo novu za makro.
- Noe nastavlja da bira “Makroi” sa padajuće liste “Izaberi komande iz”.
- Zatim kliknite na makro koji ste upravo kreirali.
- Zatim kliknite na "Dodaj" u sredini prozora.
- Sada će makro biti postavljen u novu grupu. Samo kliknite desnim tasterom miša na makro.
- I odaberite opciju “Preimenuj”.
- U dijaloškom okviru “Preimenuj” odaberite simbol za svoj makro.
- Zatim upišite naziv za prikaz.
- Kliknite na "OK".
- Sada se vratite u prozor "Opcije programa Word" i kliknite na "U redu". Makro će od sada početi snimati.
Zalijepite tekst kao neformatirani tekst
- Prvo, kopirajte dio dugog teksta.
- Zatim kliknite na karticu "Početna".
- Kliknite na “Zalijepi”.
- Zatim odaberite “Specijalno lijepljenje”.
- I odaberite "Neformatirani tekst" u dijaloškom okviru "Specijalno lijepljenje".
- Zatim kliknite na “OK”. Možete dobiti tekst sa formatiranjem kao što je dolje:
Ukloni reči koje se ponavljaju
- Zatim počnite brisati formatiranje lijevo. Pritisnite "Ctrl+ H" da biste otvorili dijaloški okvir "Pronađi i zamijeni".
- I ukucajte "Strelicu" u tekstualni okvir "Pronađi šta".
- Zatim kliknite na "Zamijeni sve".
Uklonite znakove kartice
- Prvo pritisnite “Ctrl+ H” da otvorite dijaloški okvir “Pronađi i zamijeni”.
- Zatim upišite “^t” u tekstualni okvir “Pronađi šta”.
- Zatim kliknite na "Zamijeni sve" da biste uklonili sve znakove kartice.
Uklonite dodatne praznine
- Još uvijek pritisnite “Ctrl+ H” da otvorite dijaloški okvir “Pronađi i zamijeni”.
- U tekstualnom polju „Pronađi šta“ dvaput pritisnite taster za prazno.
- Zatim kliknite na dugme „Zameni sve“.
Uklonite prazne linije i dodatne praznine zajedno
Ponekad, kada koristite funkciju „Pronađi i zamijeni“ za uklanjanje formatiranja, morate se malo prilagoditi kako biste zadovoljili vlastite potrebe. Na primjer, ako ne uspijete ukloniti sve dodatne praznine prilikom primjene gornjih koraka, možete koristiti donje korake da ih izbrišete zajedno sa praznim redovima.
- Slično, pritisnite “Ctrl+ H” da otvorite dijaloški okvir “Pronađi i zamijeni”.
- Zatim u tekstualnom polju „Pronađi šta“ prvo pritisnite prazan taster.
- Zatim upišite “^p”.
- U tekstualni okvir “Zamijeni sa” upišite “^p”.
- Kliknite na "Zamijeni sve".
- Ponovo otvorite dijaloški okvir „Pronađi i zamijeni“.
- I u tekstualni okvir „Pronađi šta“, prvo ukucajte „^p“.
- Zatim jednom pritisnite praznu tipku.
- Zatim upišite “^p” u tekstualni okvir “Zamijeni sa”.
- Na kraju kliknite na dugme „Zameni sve“.
Uklonite prazne lijeve linije ako je potrebno
Ipak, ako su ostali prazni redovi, pokušajte sljedeće:
- Pritisnite “Ctrl+ H” da otvorite dijaloški okvir “Pronađi i zamijeni”.
- sljedeće upišite “^p^p” u tekstualni okvir “Pronađi šta”.
- I upišite “^p” u tekstualni okvir “Zamijeni sa”.
- Na kraju kliknite na dugme „Zameni sve“.
Do sada možete dobiti rezultat kao u nastavku:
Ovdje predlažemo da preuzmete gornji redoslijed za uklanjanje oblikovanja teksta kako biste općenito mogli izbrisati formatiranje. I kao što smo spomenuli, ponekad morate obrisati druge vrste formatiranja, tada biste trebali sami koristiti funkciju „Pronađi i zamijeni“. Za više načina za uklanjanje formatiranja, možete posjetiti ovaj članak: 3 načina da odmah uklonite neželjene elemente iz Word dokumenata
Možete pogledati sljedeći video da vidite demonstraciju:
Zaustavite snimanje makroa
- Kada završite sa uklanjanjem oblikovanja teksta, kliknite karticu "Razvojnik".
- Zatim kliknite na "Zaustavi snimanje". Sada će makro biti sačuvan.
Kako pokrenuti makro
- Kopirajte tekst sa formatiranjem na mreži, recimo.
- Zatim otvorite Word.
- Zatim kliknite na karticu "Developer".
- Kliknite na ikonu makroa i vidjet ćete tekst na dokumentu bez dodatnog oblikovanja.
Napomena: Za početnike, možete samo poduzeti gore navedene korake da kreirate i pokrenete makro. Pokretanje makronaredbe će vam pomoći da se riješite iritantnog formatiranja u cjelini, što je dovoljno.
VBA kodovi za stručnjaka
Prvo postoji način da vidite VBA kodove.
- Prvo kliknite na karticu "Developer".
- Zatim kliknite na "Visual Basic" u grupi "Kod".
- U uređivaču „Microsoft Visual Basic za aplikacije“ prvo kliknite na „Normalno“ na levoj strani.
- Zatim kliknite na "Moduli".
- Zatim dvaput kliknite na “NewMacros” i moći ćete vidjeti kod na desnoj strani.
U ovom slučaju, kodovi su sljedeći:
Sub copytext()
'
' copytext Makro
'
'
Selection.PasteSpecial Link:=False, DataType:=wdPasteText, Placement:= _
wdInLine, DisplayAsIcon:=False
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
Sa Selection.Find
.Text = “Strelica”
.Replacement.Text = “”
.Naprijed = Tačno
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = Netačno
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
Završi sa
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
Sa Selection.Find
.Text = “^t”
.Replacement.Text = “”
.Naprijed = Tačno
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = Netač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
Sa Selection.Find
.Text = ” “
.Replacement.Text = “”
.Naprijed = Tačno
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = Netačno
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
Završi sa
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
Sa Selection.Find
.Text = ” ^p”
.Replacement.Text = “^p”
.Naprijed = Tačno
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = Netačno
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
Završi sa
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
Sa Selection.Find
.Text = “^p”
.Replacement.Text = “^p”
.Naprijed = Tačno
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = Netačno
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
Završi sa
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
Sa Selection.Find
.Text = “^p^p”
.Replacement.Text = “^p”
.Naprijed = Tačno
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = Netačno
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
Završi sa
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
Sa Selection.Find
.Text = “^p^p”
.Replacement.Text = “^p”
.Naprijed = Tačno
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = Netačno
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
Završi sa
Selection.Find.Execute Replace:=wdReplaceAll
End Sub
Govoreći o stručnjacima i naprednim korisnicima koji su upoznati sa VBA, možete potpuno prilagoditi kodove kako bi zadovoljili svoje zahtjeve, što će biti praktičnije i preciznije.
Osigurajte svoje fajlove
Korisnici Worda širom svijeta imaju tendenciju da ga na najbolji način iskoriste. To je odlična i ujedno opasna ideja, jer povećava rizik od kolapsa Worda pogrešnim operacijama. Stoga, uvijek biste trebali pronaći načine da osigurate svoje datoteke. Među dostupnim opcijama, dobijanje a doc repair alat unaprijed ne zvuči loše.
Uvod za autora:
Vera Chen je stručnjak za oporavak podataka DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući excel recovery i pdf popravak softverskih proizvoda. Za više informacija posjetite www.datanumen.com