Kaip pašalinti įklijuotų tekstų formatavimą naudojant makrokomandas ir VBA programoje „Word“.

Žodžių sprendimai Rugsėjis 28, 2025
Bendrinti dabar:

Šiame straipsnyje bus parodyta, kaip pašalinti įklijuoto teksto formatavimą su makrokomandomis ir VBA jūsų Worde.

Taip dažnai nutinka, kai kopijuojate tekstą internete ir pastebite, kad tekstas yra raiškiojo formato. Pavyzdžiui, yra pasikartojančių žodžių, tuščių eilučių, skirtukų simbolių ir pan. Tačiau toks formatavimas gali būti gana erzinantis, ypač kai to nereikia. Žinoma, kiekvieną formatavimą pašalintumėte neautomatiniu būdu. Tačiau ką daryti, jei tekstas tikrai ilgas? Tada aukščiau aprašytas metodas bus mažiau efektyvus.

Tiesą sakant, yra būdas naudoti makrokomandą, kad būtų pašalintas visas teksto formatavimas. Čia yra daugiau:

Veiksmai, kaip įrašyti makrokomandą „Word“.

  1. Pirmiausia atidarykite savo „Word“.
  2. Ir įsitikinkite, kad pirmiausia juostelėje pridėjote skirtuką „Kūrėjas“. Išsamias instrukcijas, kaip pridėti „Kūrėjas“, rasite straipsnyje: Kaip įterpti foninę muziką į savo Word dokumentą
  3. Kai pasirodys skirtukas „Kūrėjas“, spustelėkite jį.
  4. Tada grupėje „Kodas“ spustelėkite „Įrašyti makrokomandą“.Spustelėkite „Kūrėjas“ -> spustelėkite „Įrašyti makrokomandą“
  5. Dabar pasirodys dialogo langas „Įrašyti makrokomandą“. Pirmiausia čia įveskite makrokomandos pavadinimą, pvz., „copytext“.
  6. Tada dalyje „Priskirti makrokomandą“ pasirinkite „Mygtukas“ arba „Klaviatūra“. Čia mes eisime "mygtukas".
  7. Toliau spustelėkite „Gerai“.Pavadinkite makrokomandą -> pasirinkite "Mygtukas" arba "Klaviatūra", jei norite "Priskirti makrokomandą" -> spustelėkite "Gerai"
  8. Ir dabar pamatysite langą „Word Options“. Spustelėkite „Tinkinti juostelę“.
  9. Tada dešinėje pusėje raskite makrokomandos vietą. Čia spustelėsime „Nauja grupė“, kad nustatytume naują makrokomandą.
  10. Ne ir toliau pasirinkite „Makrokomandos“ iš išskleidžiamojo sąrašo „Pasirinkti komandas“.
  11. Tada spustelėkite ką tik sukurtą makrokomandą.
  12. Tada spustelėkite „Pridėti“ lango viduryje.
  13. Dabar makrokomanda bus įtraukta į naują grupę. Tiesiog dešiniuoju pelės mygtuku spustelėkite makrokomandą.
  14. Ir pasirinkite parinktį „Pervardyti“.Spustelėkite "Tinkinti juostelę" -> Pasirinkite vietą makrokomandai -> Pasirinkite "Makrokomandas" skiltyje "Pasirinkite komandas" -> Spustelėkite makrokomandą -> spustelėkite "Pridėti" -> Dešiniuoju pelės mygtuku spustelėkite makrokomandą -> Pasirinkite "Pervardyti".
  15. Dialogo lange „Pervardyti“ pasirinkite makrokomandos simbolį.
  16. Tada įveskite rodomą pavadinimą.
  17. Spustelėkite "Gerai".Pasirinkite simbolį -> įveskite rodomą pavadinimą -> spustelėkite "Gerai"
  18. Dabar grįžkite į langą „Word Options“ ir spustelėkite „Gerai“. Makrokomanda pradeda įrašinėti nuo dabar.„Word“ parinktyse spustelėkite „Gerai“„Word“ pradeda makro įrašymą

Įklijuokite tekstą kaip neformatuotą tekstą

  1. Pirmiausia nukopijuokite ilgo teksto dalį.
  2. Tada spustelėkite skirtuką „Pagrindinis“.
  3. Spustelėkite „Įklijuoti“.
  4. Tada pasirinkite „Įklijuoti specialų“.Spustelėkite „Pagrindinis“ -> Spustelėkite „Įklijuoti“ -> Spustelėkite „Įklijuoti specialų“.
  5. Dialogo lange „Įklijuoti specialųjį“ pasirinkite „Neformatuotas tekstas“.
  6. Tada spustelėkite „Gerai“. Galite gauti tekstą su tokiu formatavimu, kaip nurodyta toliau:Pasirinkite "Neformatuotas tekstas" -> spustelėkite "Gerai"Tekstas įklijuotas kaip neformatuotas tekstas

Pašalinkite pasikartojančius žodžius

  1. Toliau pradėkite valyti kairįjį formatavimą. Paspauskite „Ctrl“ + H, kad atidarytumėte dialogo langą „Rasti ir pakeisti“.
  2. Ir teksto laukelyje „Rasti ką“ įveskite „rodyklė“.
  3. Tada spustelėkite „Pakeisti viską“.Įveskite pasikartojantį žodį teksto laukelyje „Rasti ką“ -> spustelėkite „Pakeisti viską“

Pašalinti skirtukų simbolius

  1. Pirmiausia paspauskite „Ctrl + H“, kad atidarytumėte dialogo langą „Rasti ir pakeisti“.
  2. Tada teksto laukelyje „Rasti ką“ įveskite „^t“.
  3. Tada spustelėkite „Pakeisti viską“, kad pašalintumėte visus skirtukų simbolius.Teksto laukelyje „Rasti ką“ įveskite „^t“ -> spustelėkite „Pakeisti viską“

Pašalinkite papildomus ruošinius

  1. Vis tiek paspauskite „Ctrl + H“, kad atidarytumėte dialogo langą „Rasti ir pakeisti“.
  2. Teksto laukelyje „Rasti ką“ du kartus paspauskite tuščią klavišą.
  3. Tada spustelėkite mygtuką „Pakeisti viską“.Du kartus paspauskite tuščią klavišą teksto laukelyje „Rasti ką“ -> spustelėkite „Pakeisti viską“

Kartu pašalinkite tuščias eilutes ir papildomus tuščius elementus

Kartais, norėdami pašalinti formatavimą naudodami funkciją „Rasti ir pakeisti“, turite šiek tiek pakoreguoti, kad atitiktumėte savo poreikius. Pavyzdžiui, jei atlikdami aukščiau nurodytus veiksmus nepavyksta pašalinti visų papildomų tuščių laukelių, galite atlikti toliau nurodytus veiksmus ir ištrinti juos kartu su tuščiomis eilutėmis.

  1. Panašiai paspauskite „Ctrl + H“, kad atidarytumėte dialogo langą „Rasti ir pakeisti“.
  2. Toliau teksto laukelyje „Rasti ką“ pirmiausia paspauskite tuščią klavišą.
  3. Tada įveskite „^p“.
  4. Teksto laukelyje „Pakeisti į“ įveskite „^p“.
  5. Spustelėkite „Pakeisti viską“.Pirmiausia paspauskite tuščią klavišą -> teksto laukelyje "Rasti ką" įveskite "^p" -> teksto laukelyje "Pakeisti" įveskite "^p" -> spustelėkite "Pakeisti viską"
  6. Dar kartą atidarykite dialogo langą „Rasti ir pakeisti“.
  7. Ir teksto laukelyje „Rasti ką“ pirmiausia įveskite „^p“.
  8. Tada vieną kartą paspauskite tuščią klavišą.
  9. Tada teksto laukelyje „Pakeisti į“ įveskite „^p“.
  10. Galiausiai spustelėkite mygtuką „Pakeisti viską“.Pirmiausia įveskite "^p" -> Vieną kartą paspauskite tuščią klavišą teksto laukelyje "Rasti ką" -> Įveskite "^p" į "Pakeisti" teksto laukelį -> Spustelėkite "Pakeisti viską"

Jei reikia, pašalinkite kairiąsias tuščias eilutes

Vis dėlto, jei liko tuščių eilučių, pabandykite atlikti šiuos veiksmus:

  1. Paspauskite „Ctrl + H“, kad atidarytumėte dialogo langą „Rasti ir pakeisti“.
  2. tada įveskite „^p^p“ teksto laukelyje „Rasti ką“.
  3. Ir įveskite „^p“ teksto laukelyje „Pakeisti į“.
  4. Galiausiai spustelėkite mygtuką „Pakeisti viską“.Teksto laukelyje „Rasti ką“ įveskite „^p^p“ -> „Pakeisti į“ teksto laukelį įveskite „^p“ -> Spustelėkite „Pakeisti viską“

Iki šiol galite gauti tokį rezultatą:Funkcija „Pakeisti“ naudojant formatavimą pašalinti

Siūlome atlikti pirmiau nurodytą tvarką, kad pašalintumėte teksto formatavimą, kad apskritai galėtumėte ištrinti formatavimą. Ir, kaip jau minėjome, kartais turite išvalyti kitų tipų formatavimą, tada turėtumėte naudoti funkciją „Rasti ir pakeisti“. Norėdami sužinoti daugiau būdų, kaip pašalinti formatavimą, galite apsilankyti šiame straipsnyje: 3 būdai, kaip akimirksniu pašalinti nepageidaujamus elementus iš „Word“ dokumentų

Norėdami pamatyti demonstraciją, galite peržiūrėti šį vaizdo įrašą:

Sustabdyti makrokomandos įrašymą

  1. Kai baigsite pašalinti teksto formatavimą, spustelėkite skirtuką „Kūrėjas“.
  2. Tada spustelėkite „Stabdyti įrašymą“. Dabar makrokomanda bus išsaugota.Spustelėkite "Kūrėjas" -> spustelėkite "Stop Recording"

Kaip paleisti makrokomandą

  1. Nukopijuokite tekstą su formatavimu internete, tarkime.
  2. Toliau atidarykite „Word“.
  3. Tada spustelėkite skirtuką „Kūrėjas“.
  4. Spustelėkite makrokomandos piktogramą ir pamatysite tekstą dokumente be papildomo formatavimo.Spustelėkite „Kūrėjas“ -> spustelėkite ką tik įrašytą makrokomandąMakrokomandos naudojimas formatavimui pašalinti

Pastaba: pradedantiesiems galite tiesiog atlikti pirmiau nurodytus veiksmus, kad sukurtumėte ir paleistumėte makrokomandą. Makrokomandos vykdymas padės atsikratyti erzinančio formatavimo, to pakanka.

VBA kodai ekspertams

Pirma, yra būdas peržiūrėti VBA kodus.

  1. Pirmiausia spustelėkite skirtuką „Kūrėjas“.
  2. Tada grupėje „Kodas“ spustelėkite „Visual Basic“.Spustelėkite „Kūrėjas“ -> spustelėkite „Visual Basic“
  3. Redagavimo priemonėje „Microsoft Visual Basic for Applications“ pirmiausia kairėje pusėje spustelėkite „Normalus“.
  4. Tada spustelėkite „Moduliai“.
  5. Tada dukart spustelėkite „NewMacros“ ir galėsite peržiūrėti kodą dešinėje pusėje.Spustelėkite „Normal“ -> Spustelėkite „Moduliai“ -> Dukart spustelėkite „NewMacros“

Šiuo atveju kodai yra tokie:

 

Sub copytext()

"

' copytext makrokomandą

"

"

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

        wdInLine, DisplayAsIcon:=Klaidinga

    Selection.Find.ClearFormatting

    Selection.Find.Replacement.ClearFormatting

    Su Selection.Find

        .Text = "rodyklė"

        .Replacement.Text = ""

        .Pirmyn = Tiesa

        .wrap = wdFindContinue

        .format=false

        .MatchCase = Netiesa

        .MatchWholeWord = Netiesa

        .MatchWildcards = Netiesa

        .MatchSoundsLike = Netiesa

        .MatchAllWordForms = Netiesa

    Pabaiga su

    Selection.Find.Execute Replace:=wdReplaceAll

    Selection.Find.ClearFormatting

    Selection.Find.Replacement.ClearFormatting

    Su Selection.Find

        .Text = "^t"

        .Replacement.Text = ""

        .Pirmyn = Tiesa

        .wrap = wdFindContinue

        .format=false

        .MatchCase = Netiesa

        .MatchWholeWord = Netiesa

        .MatchWildcards = Netiesa

        .MatchSoundsLike = Netiesa

        .MatchAllWordForms = Netiesa

    Pabaiga su

    Selection.Find.Execute Replace:=wdReplaceAll

    Selection.Find.Execute Replace:=wdReplaceAll

    Selection.Find.ClearFormatting

    Selection.Find.Replacement.ClearFormatting

    Su Selection.Find

        .Tekstas = " "

        .Replacement.Text = ""

        .Pirmyn = Tiesa

        .wrap = wdFindContinue

        .format=false

        .MatchCase = Netiesa

        .MatchWholeWord = Netiesa

        .MatchWildcards = Netiesa

        .MatchSoundsLike = Netiesa

        .MatchAllWordForms = Netiesa

    Pabaiga su

    Selection.Find.Execute Replace:=wdReplaceAll

    Selection.Find.ClearFormatting

    Selection.Find.Replacement.ClearFormatting

    Su Selection.Find

        .Tekstas = ”^p”

        .Replacement.Text = "^p"

        .Pirmyn = Tiesa

        .wrap = wdFindContinue

        .format=false

        .MatchCase = Netiesa

        .MatchWholeWord = Netiesa

        .MatchWildcards = Netiesa

        .MatchSoundsLike = Netiesa

        .MatchAllWordForms = Netiesa

    Pabaiga su

    Selection.Find.Execute Replace:=wdReplaceAll

    Selection.Find.ClearFormatting

    Selection.Find.Replacement.ClearFormatting

    Su Selection.Find

        .Text = "^p"

        .Replacement.Text = "^p"

        .Pirmyn = Tiesa

        .wrap = wdFindContinue

        .format=false

        .MatchCase = Netiesa

        .MatchWholeWord = Netiesa

        .MatchWildcards = Netiesa

        .MatchSoundsLike = Netiesa

        .MatchAllWordForms = Netiesa

    Pabaiga su

    Selection.Find.Execute Replace:=wdReplaceAll

    Selection.Find.ClearFormatting

    Selection.Find.Replacement.ClearFormatting

    Su Selection.Find

        .Text = "^p^p"

        .Replacement.Text = "^p"

        .Pirmyn = Tiesa

        .wrap = wdFindContinue

        .format=false

        .MatchCase = Netiesa

        .MatchWholeWord = Netiesa

        .MatchWildcards = Netiesa

        .MatchSoundsLike = Netiesa

        .MatchAllWordForms = Netiesa

    Pabaiga su

    Selection.Find.Execute Replace:=wdReplaceAll

    Selection.Find.ClearFormatting

    Selection.Find.Replacement.ClearFormatting

    Su Selection.Find

        .Text = "^p^p"

        .Replacement.Text = "^p"

        .Pirmyn = Tiesa

        .wrap = wdFindContinue

        .format=false

        .MatchCase = Netiesa

        .MatchWholeWord = Netiesa

        .MatchWildcards = Netiesa

        .MatchSoundsLike = Netiesa

        .MatchAllWordForms = Netiesa

    Pabaiga su

    Selection.Find.Execute Replace:=wdReplaceAll

End Sub

 

Kalbant apie ekspertus ir pažengusius vartotojus, kurie yra susipažinę su VBA, galite visiškai pakoreguoti kodus, kad atitiktų jūsų poreikius, o tai bus patogiau ir tikslesni.

Apsaugokite savo failus

„Word“ naudotojai visame pasaulyje linkę jį kuo geriau išnaudoti. Tai puiki ir pavojinga idėja, nes ji padidina „Word“ žlugimo riziką atliekant netinkamas operacijas. Todėl visada turėtumėte rasti būdų, kaip apsaugoti failus. Tarp galimų variantų gauti a doc remontas įrankis iš anksto skamba neblogai.

Autoriaus įvadas:

Vera Chen yra duomenų atkūrimo ekspertė DataNumen, Inc., kuri yra pasaulyje duomenų atkūrimo technologijų lyderė, įskaitant Excel atkūrimas bei pdf programinės įrangos gaminių taisymas. Norėdami gauti daugiau informacijos, apsilankykite WWW.datanumen.com

Bendrinti dabar:

Komentarai yra uždaryti.