Acest articol vă va demonstra cum să eliminați formatarea textului lipit cu macro și VBA în cuvântul dvs.
Se întâmplă des atunci când copiați un text online și descoperiți că textul are o formatare bogată. De exemplu, există cuvinte care se repetă, linii goale, caractere de tabulatură etc. Cu toate acestea, o astfel de formatare poate fi destul de enervantă, mai ales în momente de care nu aveți nevoie. Bineînțeles, ați elimina manual formatarea fiecare în parte. Totuși, ce se întâmplă dacă textul este unul foarte lung? Atunci metoda de mai sus va fi mai puțin eficientă.
De fapt, există o modalitate de a utiliza macro pentru a elimina o dată pentru totdeauna toată formatarea textului. Iată mai multe:
Pași pentru a înregistra o macrocomandă în Word
- În primul rând, deschide-ți Cuvântul.
- Și asigurați-vă că ați adăugat mai întâi fila „Dezvoltator” pe Panglică. Pentru instrucțiuni detaliate pentru a adăuga „Dezvoltator”, vă rugăm să citiți articolul: Cum să inserați muzică de fundal în documentul dvs. Word
- Odată ce fila „Dezvoltator” este disponibilă, faceți clic pe ea.
- Apoi faceți clic pe „Înregistrați macrocomandă” în grupul „Cod”.
- Acum va apărea o casetă de dialog „Înregistrare macrocomandă”. Mai întâi, tastați aici numele macrocomenzii, cum ar fi „copytext”.
- Apoi, în partea „Atribuiți macrocomenzii la”, alegeți fie „Buton”, fie „Tastatură”. Aici vom merge „Button”.
- Apoi, faceți clic pe „OK”.
- Și acum veți vedea fereastra „Opțiuni pentru cuvinte”. Faceți clic pe „Personalizați panglica”.
- Apoi, găsiți o locație pentru macro în partea dreaptă. Aici vom face clic pe „Grup nou” pentru a seta unul nou pentru macrocomandă.
- Noe continuă să aleagă „Macrocomenzi” din lista derulantă „Alege comenzi din”.
- Apoi faceți clic pe macrocomandă pe care tocmai ați creat-o.
- Apoi faceți clic pe „Adăugați” în mijlocul ferestrei.
- Acum macro-ul va fi plasat în noul grup. Faceți clic dreapta pe macrocomandă.
- Și alegeți opțiunea „Redenumire”.
- În caseta de dialog „Redenumiți”, alegeți un simbol pentru macrocomandă.
- Apoi introduceți numele afișat.
- Faceți clic pe "OK".
- Acum reveniți la fereastra „Opțiuni Word” și faceți clic pe „OK” acolo. Macro-ul starÎnregistrarea e de acum.
Lipiți text ca text neformatat
- În primul rând, copiați o parte dintr-un text lung.
- Apoi faceți clic pe fila „Acasă”.
- Faceți clic pe „Lipire”.
- Apoi, alegeți „Lipire specială”.
- Și alegeți „Text neformatat” în caseta de dialog „Lipire specială”.
- Apoi faceți clic pe „OK”. Este posibil să primiți un text cu o formatare precum mai jos:
Eliminați cuvintele care se repetă
- Următorul start ștergeți formatarea din stânga. Apăsați „Ctrl+H” pentru a deschide caseta de dialog „Găsiți și înlocuiți”.
- Și tastați „Săgeată” în caseta de text „Găsiți ce”.
- Apoi faceți clic pe „Înlocuiește tot”.
Eliminați caracterele de filă
- În primul rând, apăsați „Ctrl + H” pentru a deschide caseta de dialog „Găsiți și înlocuiți”.
- Apoi tastați „^t” în caseta de text „Găsiți ce”.
- Apoi faceți clic pe „Înlocuiește tot” pentru a elimina toate caracterele de file.
Eliminați spațiile libere suplimentare
- Apăsați în continuare „Ctrl + H” pentru a deschide caseta de dialog „Găsiți și înlocuiți”.
- În caseta de text „Găsiți ce”, apăsați tasta goală de două ori.
- Apoi faceți clic pe butonul „Înlocuiește tot”.
Eliminați împreună liniile goale și spațiile libere suplimentare
Uneori, când utilizați funcția „Găsiți și înlocuiți” pentru a elimina formatarea, trebuie să ajustați puțin pentru a vă satisface nevoia. De exemplu, dacă nu reușiți să eliminați toate spațiile suplimentare atunci când aplicați pașii de mai sus, puteți folosi pașii de mai jos pentru a le șterge împreună cu linii goale.
- În mod similar, apăsați „Ctrl + H” pentru a deschide caseta de dialog „Găsiți și înlocuiți”.
- Apoi, în caseta de text „Găsiți ce”, apăsați mai întâi o tastă goală.
- Apoi tastați „^p”.
- În caseta de text „Înlocuiește cu”, tastați „^p”.
- Faceți clic pe „Înlocuiește tot”.
- Deschideți din nou caseta de dialog „Găsiți și înlocuiți”.
- Și în caseta de text „Găsiți ce”, mai întâi tastați „^p”.
- Apoi apăsați tasta goală o dată.
- Apoi tastați „^p” în caseta de text „Înlocuiți cu”.
- În cele din urmă, faceți clic pe butonul „Înlocuiește tot”.
Îndepărtați liniile goale din stânga dacă este necesar
Totuși, dacă au rămas linii goale, încercați următorii pași:
- Apăsați „Ctrl+H” pentru a deschide caseta de dialog „Găsiți și înlocuiți”.
- apoi tastați „^p^p” în caseta de text „Găsiți ce”.
- Și tastați „^p” în caseta de text „Înlocuiți cu”.
- În cele din urmă, faceți clic pe butonul „Înlocuiește tot”.
Până acum, puteți obține rezultatul de mai jos:
Vă sugerăm aici să luați ordinea de mai sus pentru a elimina formatarea textului, astfel încât să puteți șterge în general formatarea. Și, așa cum am menționat, uneori trebuie să ștergeți alte tipuri de formatare, apoi ar trebui să utilizați funcția „Găsiți și înlocuiți” pe cont propriu. Pentru mai multe modalități de a elimina formatarea, puteți vizita acest articol: 3 moduri de a elimina instantaneu elementele nedorite din documentele Word
Puteți verifica următorul videoclip pentru a vedea demonstrația:
Opriți înregistrarea macrocomenzii
- După ce ați terminat de eliminat formatarea textului, faceți clic pe fila „Dezvoltator”.
- Apoi faceți clic pe „Opriți înregistrarea”. Acum macro-ul va fi salvat.
Cum să rulați o macrocomandă
- Copiați textul cu formatare online, de exemplu.
- Deschideți Word în continuare.
- Apoi faceți clic pe fila „Dezvoltator”.
- Faceți clic pe pictograma macro și veți vedea textul pe document fără formatare suplimentară.
Notă: Pentru începători, puteți doar să faceți pașii de mai sus pentru a crea și rula o macrocomandă. Rularea unei macrocomenzi vă va ajuta să scăpați de formatarea iritante în general, ceea ce este suficient.
Codurile VBA pentru expert
Mai întâi este modalitatea de a vizualiza codurile VBA.
- Mai întâi faceți clic pe fila „Dezvoltator”.
- Apoi faceți clic pe „Visual Basic” în grupul „Cod”.
- În editorul „Microsoft Visual Basic for Applications”, faceți clic mai întâi pe „Normal” din partea stângă.
- Apoi faceți clic pe „Module”.
- Apoi faceți dublu clic pe „NewMacros” și veți putea vedea codul în zona din dreapta.
În acest caz, codurile sunt următoarele:
Sub copytext()
"
' copytext Macro
"
"
Selection.PasteSpecial Link:=False, DataType:=wdPasteText, Placement:= _
wdInLine, DisplayAsIcon:=False
Selection.Find.ClearFormatting
Selecție.Găsiți.Înlocuire.Ștergeți formatarea
Cu Selecție.Găsiți
.Text = „Săgeată”
.Replacement.Text = ""
.Forward = Adevărat
.wrap = wdFindContinue
.Format = Fals
.MatchCase = Fals
.MatchWholeWord = Fals
.MatchWildcards = Fals
.MatchSoundsLike = False
.MatchAllWordForms = Fals
Se termina cu
Selection.Find.Execute Replace: = wdReplaceAll
Selection.Find.ClearFormatting
Selecție.Găsiți.Înlocuire.Ștergeți formatarea
Cu Selecție.Găsiți
.Text = „^t”
.Replacement.Text = ""
.Forward = Adevărat
.wrap = wdFindContinue
.Format = Fals
.MatchCase = Fals
.MatchWholeWord = Fals
.MatchWildcards = Fals
.MatchSoundsLike = False
.MatchAllWordForms = Fals
Se termina cu
Selection.Find.Execute Replace: = wdReplaceAll
Selection.Find.Execute Replace: = wdReplaceAll
Selection.Find.ClearFormatting
Selecție.Găsiți.Înlocuire.Ștergeți formatarea
Cu Selecție.Găsiți
.Text = ” “
.Replacement.Text = ""
.Forward = Adevărat
.wrap = wdFindContinue
.Format = Fals
.MatchCase = Fals
.MatchWholeWord = Fals
.MatchWildcards = Fals
.MatchSoundsLike = False
.MatchAllWordForms = Fals
Se termina cu
Selection.Find.Execute Replace: = wdReplaceAll
Selection.Find.ClearFormatting
Selecție.Găsiți.Înlocuire.Ștergeți formatarea
Cu Selecție.Găsiți
.Text = ” ^p”
.Înlocuire.Text = „^p”
.Forward = Adevărat
.wrap = wdFindContinue
.Format = Fals
.MatchCase = Fals
.MatchWholeWord = Fals
.MatchWildcards = Fals
.MatchSoundsLike = False
.MatchAllWordForms = Fals
Se termina cu
Selection.Find.Execute Replace: = wdReplaceAll
Selection.Find.ClearFormatting
Selecție.Găsiți.Înlocuire.Ștergeți formatarea
Cu Selecție.Găsiți
.Text = „^p”
.Înlocuire.Text = „^p”
.Forward = Adevărat
.wrap = wdFindContinue
.Format = Fals
.MatchCase = Fals
.MatchWholeWord = Fals
.MatchWildcards = Fals
.MatchSoundsLike = False
.MatchAllWordForms = Fals
Se termina cu
Selection.Find.Execute Replace: = wdReplaceAll
Selection.Find.ClearFormatting
Selecție.Găsiți.Înlocuire.Ștergeți formatarea
Cu Selecție.Găsiți
.Text = „^p^p”
.Înlocuire.Text = „^p”
.Forward = Adevărat
.wrap = wdFindContinue
.Format = Fals
.MatchCase = Fals
.MatchWholeWord = Fals
.MatchWildcards = Fals
.MatchSoundsLike = False
.MatchAllWordForms = Fals
Se termina cu
Selection.Find.Execute Replace: = wdReplaceAll
Selection.Find.ClearFormatting
Selecție.Găsiți.Înlocuire.Ștergeți formatarea
Cu Selecție.Găsiți
.Text = „^p^p”
.Înlocuire.Text = „^p”
.Forward = Adevărat
.wrap = wdFindContinue
.Format = Fals
.MatchCase = Fals
.MatchWholeWord = Fals
.MatchWildcards = Fals
.MatchSoundsLike = False
.MatchAllWordForms = Fals
Se termina cu
Selection.Find.Execute Replace: = wdReplaceAll
End Sub
Vorbind despre experți și utilizatori avansați care sunt familiarizați cu VBA, puteți ajusta total codurile pentru a vă satisface cerințele, ceea ce va fi mai convenabil și mai precis.
Asigurați-vă fișierele
Utilizatorii Word din întreaga lume tind să-l folosească cât mai bine. Este o idee grozavă și, de asemenea, periculoasă, deoarece crește riscul de a prăbuși Word cu operațiuni greșite. Prin urmare, ar trebui să găsiți întotdeauna modalități de a vă securiza fișierele. Printre opțiunile disponibile, obținerea unui reparatie doc instrumentul dinainte nu sună rău.
Introducerea autorului:
Vera Chen este expertă în recuperarea datelor DataNumen, Inc., care este lider mondial în tehnologiile de recuperare a datelor, inclusiv recuperare excel si pdf repararea produselor software. Pentru mai multe informații vizitați www.datanumen.com