Šis raksts parādīs, kā noņemt ielīmētā teksta formatējumu ar makro un VBA.
Tas notiek ļoti daudz, kad tekstu kopējat tiešsaistē, un atklājat, ka teksts ir bagātīgā formātā. Piemēram, ir atkārtoti vārdi, tukšas rindas, tabulēšanas rakstzīmes utt. Tomēr šāds formatējums var būt diezgan kaitinošs, īpaši brīžos, kad jums tas nav nepieciešams. Protams, katrs no tiem formatējumu noņemtu manuāli. Tomēr, ja teksts ir patiešām garš? Tad iepriekš minētā metode būs mazāk efektīva.
Faktiski ir veids, kā izmantot makro, lai visu laiku noņemtu visu teksta formatējumu. Šeit ir vairāk:
Darbības makro ierakstīšanai programmā Word
- Pirmkārt, atveriet savu vārdu.
- Pārliecinieties, vai vispirms lentē esat pievienojis cilni “Izstrādātājs”. Lai iegūtu detalizētas instrukcijas, kā pievienot “Developer”, lūdzu, izlasiet rakstu: Kā ievietot fona mūziku savā Word dokumentā
- Kad cilne “Izstrādātājs” ir pieejama, noklikšķiniet uz tās.
- Pēc tam grupā “Kods” noklikšķiniet uz “Ierakstīt makro”.
- Tagad parādīsies dialoglodziņš “Record Macro”. Vispirms šeit ierakstiet makro nosaukumu, piemēram, “copytext”.
- Pēc tam sadaļā “Piešķirt makro” izvēlieties “Poga” vai “Tastatūra”. Šeit mēs ejam “Poga”.
- Pēc tam noklikšķiniet uz Labi.
- Un tagad jūs redzēsiet logu “Word opcijas”. Noklikšķiniet uz “Pielāgot lenti”.
- Pēc tam labajā pusē atrodiet makro atrašanās vietu. Šeit mēs noklikšķināsim uz “Jauna grupa”, lai makro iestatītu jaunu.
- Nē turpiniet izvēlēties “Makro” nolaižamajā sarakstā “Izvēlēties komandas no”.
- Pēc tam noklikšķiniet uz tikko izveidotās makro.
- Pēc tam loga vidū noklikšķiniet uz “Pievienot”.
- Tagad makro tiks ievietots jaunajā grupā. Vienkārši ar peles labo pogu noklikšķiniet uz makro.
- Un izvēlieties opciju Pārdēvēt.
- Dialoglodziņā “Pārdēvēt” izvēlieties makro simbolu.
- Pēc tam ierakstiet parādāmo vārdu.
- Noklikšķiniet uz "Labi".
- Tagad atgriezieties logā “Word opcijas” un tur noklikšķiniet uz “Labi”. Makro starts ieraksts no šī brīža.
Ielīmēt tekstu kā neformatētu tekstu
- Pirmkārt, kopējiet gara teksta daļu.
- Pēc tam noklikšķiniet uz cilnes Sākums.
- Noklikšķiniet uz “Ielīmēt”.
- Pēc tam izvēlieties “Īpaša ielīmēšana”.
- Dialoglodziņā Īpašā ielīmēšana izvēlieties “Neformatēts teksts”.
- Pēc tam noklikšķiniet uz Labi. Jūs varat saņemt tekstu ar formatējumu, piemēram:
Noņemiet atkārtotos vārdus
- Nākamās start notīriet formatējumu pa kreisi. Nospiediet “Ctrl + H”, lai atvērtu dialoglodziņu “Atrast un aizstāt”.
- Un tekstlodziņā “Atrodi” ierakstiet “Bultiņa”.
- Pēc tam noklikšķiniet uz “Aizstāt visu”.
Noņemt cilnes rakstzīmes
- Pirmkārt, nospiediet “Ctrl + H”, lai atvērtu dialoglodziņu “Atrast un aizstāt”.
- Pēc tam tekstlodziņā “Atrodi” ierakstiet “^ t”.
- Pēc tam noklikšķiniet uz “Aizstāt visu”, lai noņemtu visas cilnes rakstzīmes.
Noņemiet papildu sagataves
- Joprojām nospiediet “Ctrl + H”, lai atvērtu dialoglodziņu “Atrast un aizstāt”.
- Tekstlodziņā “Atrast ko” divreiz nospiediet tukšo taustiņu.
- Pēc tam noklikšķiniet uz pogas “Aizstāt visu”.
Kopā noņemiet tukšās līnijas un papildu sagataves
Dažreiz, lietojot funkciju “Atrast un aizstāt”, lai noņemtu formatējumu, jums nedaudz jāpielāgojas, lai tas atbilstu jūsu vajadzībām. Piemēram, ja, veicot iepriekš minētās darbības, neizdodas noņemt visas papildu sagataves, varat izmantot tālāk norādītās darbības, lai tās izdzēstu kopā ar tukšām rindām.
- Līdzīgi nospiediet “Ctrl + H”, lai atvērtu dialoglodziņu “Atrast un aizstāt”.
- Pēc tam tekstlodziņā “Atrodi ko” vispirms nospiediet tukšu taustiņu.
- Pēc tam ierakstiet “^ p”.
- Tekstlodziņā “Aizstāt ar” ierakstiet “^ p”.
- Noklikšķiniet uz “Replace All”.
- Atkal atveriet dialoglodziņu “Atrast un aizstāt”.
- Un tekstlodziņā “Atrodi ko” vispirms ierakstiet “^ p”.
- Pēc tam vienreiz nospiediet tukšo taustiņu.
- Pēc tam tekstlodziņā “Aizstāt ar” ierakstiet “^ p”.
- Visbeidzot noklikšķiniet uz pogas “Aizstāt visu”.
Ja nepieciešams, noņemiet kreisās tukšās līnijas
Tomēr, ja ir palikušas tukšas rindas, mēģiniet veikt šādas darbības:
- Nospiediet “Ctrl + H”, lai atvērtu dialoglodziņu “Atrast un aizstāt”.
- nākamais tekstlodziņā “Atrodi ko” ierakstiet “^ p ^ p”.
- Un tekstlodziņā “Aizstāt ar” ierakstiet “^ p”.
- Visbeidzot, noklikšķiniet uz pogas “Aizstāt visu”.
Līdz šim jūs varat iegūt šādus rezultātus:
Mēs šeit iesakām veikt iepriekš minēto rīkojumu, lai noņemtu teksta formatējumu, lai jūs parasti varētu izdzēst formatējumu. Un, kā jau minējām, dažreiz jums ir jāizdzēš cita veida formatējums, tad jums pašam jāizmanto funkcija “Atrast un aizstāt”. Lai uzzinātu vairāk par formatējuma noņemšanas veidiem, apmeklējiet šo rakstu: 3 veidi, kā nekavējoties noņemt nevēlamus elementus no Word dokumentiem
Lai apskatītu demonstrāciju, varat pārbaudīt šo videoklipu:
Pārtrauciet makro ierakstīšanu
- Kad esat pabeidzis teksta formatēšanas noņemšanu, noklikšķiniet uz cilnes Izstrādātājs.
- Pēc tam noklikšķiniet uz “Pārtraukt ierakstīšanu”. Tagad makro tiks saglabāts.
Kā palaist makro
- Kopējiet tekstu, formatējot tiešsaistē, teiksim.
- Tālāk atveriet vārdu.
- Pēc tam noklikšķiniet uz cilnes Izstrādātājs.
- Noklikšķiniet uz makro ikonas, un dokumentā redzēsit tekstu bez papildu formatēšanas.
Piezīme. Iesācējam varat vienkārši veikt iepriekš minētās darbības, lai izveidotu un palaistu makro. Makro palaišana palīdzēs jums atbrīvoties no kairinošā formatējuma kopumā, un tas ir pietiekami.
Eksperta VBA kodi
Vispirms ir veids, kā apskatīt VBA kodus.
- Vispirms noklikšķiniet uz cilnes Izstrādātājs.
- Pēc tam grupā “Kods” noklikšķiniet uz “Visual Basic”.
- Redaktorā “Microsoft Visual Basic for Applications” vispirms kreisajā pusē noklikšķiniet uz “Normal”.
- Pēc tam noklikšķiniet uz “Moduļi”.
- Pēc tam veiciet dubultklikšķi uz “NewMacros”, un jūs varēsiet apskatīt kodu labajā pusē.
Šajā gadījumā kodi ir šādi:
Apakšteksts ()
"
'copytext Macro
"
"
Selection.PasteSpecial Link: = False, DataType: = wdPasteText, Placement: = _
wdInLine, DisplayAsIcon: = Nepatiesa
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
Ar atlasi. Atrodiet
.Text = “Bultiņa”
.Replacement.Text = ""
.Priekšu = True
. Aptiniet = wdFindContinue
.Formāts = Nepatiesa
.MatchCase = Nepatiesa
.MatchWholeWord = Nepatiesa
.MatchWildcards = Nepatiesa
.MatchSoundsLike = Nepatiesa
.MatchAllWordForms = Nepatiesa
Beidzas ar
Selection.Find.Execute Replace: = wdReplaceAll
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
Ar atlasi. Atrodiet
.Teksts = “^ t”
.Replacement.Text = ""
.Priekšu = True
. Aptiniet = wdFindContinue
.Formāts = Nepatiesa
.MatchCase = Nepatiesa
.MatchWholeWord = Nepatiesa
.MatchWildcards = Nepatiesa
.MatchSoundsLike = Nepatiesa
.MatchAllWordForms = Nepatiesa
Beidzas ar
Selection.Find.Execute Replace: = wdReplaceAll
Selection.Find.Execute Replace: = wdReplaceAll
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
Ar atlasi. Atrodiet
.Teksts = ""
.Replacement.Text = ""
.Priekšu = True
. Aptiniet = wdFindContinue
.Formāts = Nepatiesa
.MatchCase = Nepatiesa
.MatchWholeWord = Nepatiesa
.MatchWildcards = Nepatiesa
.MatchSoundsLike = Nepatiesa
.MatchAllWordForms = Nepatiesa
Beidzas ar
Selection.Find.Execute Replace: = wdReplaceAll
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
Ar atlasi. Atrodiet
.Teksts = ”^ p”
.Replacement.Text = “^ p”
.Priekšu = True
. Aptiniet = wdFindContinue
.Formāts = Nepatiesa
.MatchCase = Nepatiesa
.MatchWholeWord = Nepatiesa
.MatchWildcards = Nepatiesa
.MatchSoundsLike = Nepatiesa
.MatchAllWordForms = Nepatiesa
Beidzas ar
Selection.Find.Execute Replace: = wdReplaceAll
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
Ar atlasi. Atrodiet
.Text = “^ p“
.Replacement.Text = “^ p”
.Priekšu = True
. Aptiniet = wdFindContinue
.Formāts = Nepatiesa
.MatchCase = Nepatiesa
.MatchWholeWord = Nepatiesa
.MatchWildcards = Nepatiesa
.MatchSoundsLike = Nepatiesa
.MatchAllWordForms = Nepatiesa
Beidzas ar
Selection.Find.Execute Replace: = wdReplaceAll
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
Ar atlasi. Atrodiet
.Text = “^ p ^ p”
.Replacement.Text = “^ p”
.Priekšu = True
. Aptiniet = wdFindContinue
.Formāts = Nepatiesa
.MatchCase = Nepatiesa
.MatchWholeWord = Nepatiesa
.MatchWildcards = Nepatiesa
.MatchSoundsLike = Nepatiesa
.MatchAllWordForms = Nepatiesa
Beidzas ar
Selection.Find.Execute Replace: = wdReplaceAll
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
Ar atlasi. Atrodiet
.Text = “^ p ^ p”
.Replacement.Text = “^ p”
.Priekšu = True
. Aptiniet = wdFindContinue
.Formāts = Nepatiesa
.MatchCase = Nepatiesa
.MatchWholeWord = Nepatiesa
.MatchWildcards = Nepatiesa
.MatchSoundsLike = Nepatiesa
.MatchAllWordForms = Nepatiesa
Beidzas ar
Selection.Find.Execute Replace: = wdReplaceAll
End Sub
Runājot par ekspertiem un pieredzējušiem lietotājiem, kuri pārzina VBA, jūs varat pilnībā pielāgot kodus, lai tie atbilstu jūsu prasībām, kas būs ērtāk un precīzāk.
Nodrošiniet savus failus
Word lietotāji visā pasaulē mēdz to vislabāk izmantot. Tā ir lieliska un arī bīstama ideja, jo palielina risku sabrukt Word nepareizu darbību gadījumā. Tāpēc jums vienmēr jāatrod veidi, kā aizsargāt savus failus. Starp pieejamajām iespējām iegūst doc remonts rīks iepriekš izklausās nav slikti.
Autora ievads:
Vera Čena ir datu atkopšanas eksperte DataNumen, Inc., kas ir pasaules līderis datu atkopšanas tehnoloģiju, tostarp Excel atgūšana un pdf programmatūras produktu labošana. Lai iegūtu vairāk informācijas, apmeklējiet vietni www.datanumen. Ar