Kuidas eemaldada Wordis makro ja VBA abil kleebitud tekstide vorming

Sõnalahendused September 28, 2025

See artikkel näitab teile, kuidas eemaldada kleebitud teksti vorming makro ja VBA-ga Wordis.

Seda juhtub sageli, kui kopeerite teksti veebis ja leiate, et tekst on rikkalikus vormingus. Näiteks korduvad sõnad, tühjad read, tabeldusmärgid jne. Kuid selline vormindamine võib olla üsna tüütu, eriti siis, kui seda ei vajata. Loomulikult eemaldaksite vormingu igaüks käsitsi. Mis saab aga siis, kui tekst on tõesti pikk? Siis on ülaltoodud meetod vähem tõhus.

Tegelikult on võimalik kasutada makrot, et kogu tekstivormindus lõplikult eemaldada. Siin on rohkem:

Makro Wordis salvestamise sammud

  1. Esiteks avage oma Word.
  2. Ja veenduge, et oleksite esmalt lindile lisanud vahekaardi "Arendaja". Üksikasjalike juhiste saamiseks "Arendaja" lisamiseks lugege artiklit: Kuidas lisada Wordi dokumenti taustamuusikat
  3. Kui vahekaart „Arendaja” on saadaval, klõpsake sellel.
  4. Seejärel klõpsake rühmas "Kood" nuppu "Salvesta makro".Klõpsake "Arendaja" -> klõpsake "Salvesta makro".
  5. Nüüd avaneb dialoogiboks "Makro salvestamine". Esmalt tippige siia makro nimi, näiteks "copytext".
  6. Seejärel valige jaotises "Makro määramine" kas "Nupp" või "Klaviatuur". Siin läheme "Nupuks".
  7. Järgmisena klõpsake nuppu "OK".Nimetage makro -> valige "Osa makro" jaoks "Nupp" või "Klaviatuur" -> klõpsake "OK".
  8. Ja nüüd näete akent "Wordi suvandid". Klõpsake "Kohanda linti".
  9. Seejärel leidke paremalt makro asukoht. Siin klõpsame makro jaoks uue määramiseks nuppu "Uus rühm".
  10. Noe jätkab valiku „Makrod” valimist ripploendist „Vali käsud”.
  11. Järgmisena klõpsake äsja loodud makrol.
  12. Seejärel klõpsake akna keskel nuppu "Lisa".
  13. Nüüd paigutatakse makro uude rühma. Paremklõpsake makrol.
  14. Ja valige suvand "Nimeta ümber".Klõpsake "Customize Ribbon" (Kohanda linti) -> Valige makro jaoks koht -> Valige jaotises "Vali käsud" "Makrod" -> klõpsake makrol -> klõpsake nuppu "Lisa" -> paremklõpsake makrol -> valige "Nimeta ümber".
  15. Valige dialoogiboksis "Ümbernimetamine" oma makro jaoks sümbol.
  16. Seejärel tippige kuvatav nimi.
  17. Klõpsake nuppu OK.Valige sümbol -> tippige kuvatav nimi -> klõpsake "OK"
  18. Nüüd minge tagasi aknasse "Wordi suvandid" ja klõpsake seal "OK". Makro starts salvestus nüüdsest.Klõpsake Wordi suvandites "OK"Sõna StarMakro salvestamine

Kleebi tekst vormindamata tekstina

  1. Esiteks kopeerige osa pikast tekstist.
  2. Seejärel klõpsake vahekaarti "Kodu".
  3. Klõpsake nuppu "Kleebi".
  4. Järgmisena valige "Kleebi eriliselt".Klõpsake "Kodu" -> "Kleebi" -> Klõpsake "Kleebi eriliselt"
  5. Ja valige dialoogiboksis "Paste Special" "Vormindamata tekst".
  6. Seejärel klõpsake nuppu "OK". Võite saada järgmise vorminguga teksti:Valige "Vormindamata tekst" -> klõpsake "OK"Tekst on kleebitud vormindamata tekstina

Eemaldage korduvad sõnad

  1. Järgmine star● vormingu tühjendamine vasakule. Dialoogiboksi "Otsi ja asenda" avamiseks vajutage "Ctrl + H".
  2. Ja tippige tekstiväljale "Otsi mis" "nool".
  3. Seejärel klõpsake "Asenda kõik".Tippige korduv sõna tekstiväljale "Leia mis" -> klõpsake "Asenda kõik".

Eemalda vahekaardi tähemärgid

  1. Esiteks vajutage dialoogiboksi "Otsi ja asenda" avamiseks klahvikombinatsiooni Ctrl+H.
  2. Seejärel tippige tekstiväljale „Otsi mis” „^t”.
  3. Järgmisena klõpsake kõigi vahelehemärkide eemaldamiseks nuppu "Asenda kõik".Tippige tekstiväljale "Leia mis" "^t" -> klõpsake "Asenda kõik"

Eemaldage lisatoorikud

  1. Dialoogiboksi "Otsi ja asenda" avamiseks vajutage ikka veel "Ctrl + H".
  2. Vajutage tekstikastis „Otsi mis” tühja klahvi kaks korda.
  3. Seejärel klõpsake nuppu "Asenda kõik".Vajutage kaks korda tühja klahvi tekstikastis "Leia mis" -> klõpsake "Asenda kõik".

Eemaldage tühjad read ja lisatühjad koos

Mõnikord, kui kasutate vormingu eemaldamiseks funktsiooni Otsi ja asenda, peate oma vajaduste rahuldamiseks veidi kohandama. Näiteks kui teil ei õnnestu ülaltoodud toimingute rakendamisel kõiki täiendavaid tühikuid eemaldada, saate nende koos tühjade ridadega kustutamiseks kasutada allolevaid samme.

  1. Samamoodi vajutage dialoogiboksi "Otsi ja asenda" avamiseks "Ctrl + H".
  2. Järgmisena vajutage tekstikastis „Otsi mis” esmalt tühja klahvi.
  3. Seejärel tippige "^p".
  4. Tippige tekstiväljale "Asenda" "^p".
  5. Klõpsake "Asenda kõik".Esmalt vajutage tühja klahvi -> Tippige tekstiväljale "Leia mis" "^p" -> Tippige tekstiväljale "^p" "Asenda tekstiga" -> klõpsake "Asenda kõik".
  6. Avage uuesti dialoogiboks "Otsi ja asenda".
  7. Ja tekstikasti „Otsi mis” sisestage esmalt „^p”.
  8. Seejärel vajutage üks kord tühja klahvi.
  9. Seejärel tippige tekstiväljale "Asenda järgmisega" "^p".
  10. Lõpuks klõpsake nuppu "Asenda kõik".Esmalt sisestage "^p" -> Vajutage üks kord tühja klahvi tekstiväljale "Leia mis" -> Tippige tekstiväljale "^p" "Asenda tekstiga" -> klõpsake "Asenda kõik".

Vajadusel eemaldage vasakpoolsed tühjad read

Siiski, kui tühjad read on alles, proovige järgmisi samme:

  1. Dialoogiboksi "Otsi ja asenda" avamiseks vajutage klahvikombinatsiooni "Ctrl + H".
  2. järgmiseks tippige tekstiväljale „Otsi mis” „^p^p”.
  3. Ja tippige tekstiväljale "Asenda järgmisega" "^p".
  4. Lõpuks klõpsake nuppu "Asenda kõik".Tippige tekstiväljale "Leia mis" "^p^p" -> Tippige tekstikasti "^p" tekstiväljale "Asenda" -> klõpsake "Asenda kõik".

Nüüdseks võite saada alloleva tulemuse:Funktsiooni "Asenda" kasutamise mõju vormindamise eemaldamiseks

Siin soovitame teil tekstivormingu eemaldamiseks kasutada ülaltoodud korraldust, et saaksite vormingu üldiselt kustutada. Ja nagu me mainisime, peate mõnikord tühjendama muud tüüpi vormingud, siis peaksite ise kasutama funktsiooni "Otsi ja asenda". Vormingu eemaldamise lisavõimaluste saamiseks külastage seda artiklit: 3 võimalust soovimatute elementide viivitamatuks eemaldamiseks Wordi dokumentidest

Demonstratsiooni vaatamiseks saate vaadata järgmist videot:

Lõpetage makro salvestamine

  1. Kui olete tekstivormingu eemaldamise lõpetanud, klõpsake vahekaarti "Arendaja".
  2. Seejärel klõpsake nuppu "Lõpeta salvestamine". Nüüd makro salvestatakse.Klõpsake "Arendaja" -> klõpsake "Lõpeta salvestamine".

Kuidas makrot käivitada

  1. Kopeerige tekst koos vormindamisega veebis, ütleme.
  2. Järgmisena avage Word.
  3. Seejärel klõpsake vahekaarti "Arendaja".
  4. Klõpsake makro ikooni ja näete dokumendil teksti ilma täiendava vorminguta.Klõpsake "Arendaja" -> klõpsake äsja salvestatud makrolMakro kasutamise mõju vormindamise eemaldamiseks

Märkus. Algaja jaoks saate makro loomiseks ja käitamiseks teha ülaltoodud samme. Makro käivitamine aitab vabaneda ärritavast vormingust üldiselt, millest piisab.

VBA koodid eksperdile

Esiteks on võimalus vaadata VBA koode.

  1. Kõigepealt klõpsake vahekaarti "Arendaja".
  2. Seejärel klõpsake rühmas "Code" "Visual Basic".Klõpsake "Arendaja" -> Klõpsake "Visual Basic".
  3. Redaktoris "Microsoft Visual Basic for Applications" klõpsake kõigepealt vasakul küljel "Tavaline".
  4. Seejärel klõpsake nuppu "Moodulid".
  5. Järgmisena topeltklõpsake nuppu "NewMacros" ja näete koodi paremal küljel.Klõpsake "Normal" -> Klõpsake "Modules" -> Topeltklõpsake "NewMacros"

Sel juhul on koodid järgmised:

 

Sub copytext()

"

' copytext makro

"

"

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

        wdInLine, DisplayAsIcon:=Vale

    Selection.Find.ClearFormatting

    Selection.Find.Replacement.ClearFormatting

    Funktsiooniga Selection.Find

        .Text = "nool"

        .Replacement.Text = ""

        .Edasi = Tõene

        .wrap = wdFindContinue

        .format=false

        .MatchCase = Vale

        .MatchWholeWord = Vale

        .MatchWildcards = Vale

        .MatchSoundsLike = Vale

        .MatchAllWordForms = Vale

    End koos

    Selection.Find.Execute Asenda:=wdReplaceAll

    Selection.Find.ClearFormatting

    Selection.Find.Replacement.ClearFormatting

    Funktsiooniga Selection.Find

        .Text = "^t"

        .Replacement.Text = ""

        .Edasi = Tõene

        .wrap = wdFindContinue

        .format=false

        .MatchCase = Vale

        .MatchWholeWord = Vale

        .MatchWildcards = Vale

        .MatchSoundsLike = Vale

        .MatchAllWordForms = Vale

    End koos

    Selection.Find.Execute Asenda:=wdReplaceAll

    Selection.Find.Execute Asenda:=wdReplaceAll

    Selection.Find.ClearFormatting

    Selection.Find.Replacement.ClearFormatting

    Funktsiooniga Selection.Find

        .Tekst = " "

        .Replacement.Text = ""

        .Edasi = Tõene

        .wrap = wdFindContinue

        .format=false

        .MatchCase = Vale

        .MatchWholeWord = Vale

        .MatchWildcards = Vale

        .MatchSoundsLike = Vale

        .MatchAllWordForms = Vale

    End koos

    Selection.Find.Execute Asenda:=wdReplaceAll

    Selection.Find.ClearFormatting

    Selection.Find.Replacement.ClearFormatting

    Funktsiooniga Selection.Find

        .Tekst = ”^p”

        .Replacement.Text = "^p"

        .Edasi = Tõene

        .wrap = wdFindContinue

        .format=false

        .MatchCase = Vale

        .MatchWholeWord = Vale

        .MatchWildcards = Vale

        .MatchSoundsLike = Vale

        .MatchAllWordForms = Vale

    End koos

    Selection.Find.Execute Asenda:=wdReplaceAll

    Selection.Find.ClearFormatting

    Selection.Find.Replacement.ClearFormatting

    Funktsiooniga Selection.Find

        .Text = "^p"

        .Replacement.Text = "^p"

        .Edasi = Tõene

        .wrap = wdFindContinue

        .format=false

        .MatchCase = Vale

        .MatchWholeWord = Vale

        .MatchWildcards = Vale

        .MatchSoundsLike = Vale

        .MatchAllWordForms = Vale

    End koos

    Selection.Find.Execute Asenda:=wdReplaceAll

    Selection.Find.ClearFormatting

    Selection.Find.Replacement.ClearFormatting

    Funktsiooniga Selection.Find

        .Text = "^p^p"

        .Replacement.Text = "^p"

        .Edasi = Tõene

        .wrap = wdFindContinue

        .format=false

        .MatchCase = Vale

        .MatchWholeWord = Vale

        .MatchWildcards = Vale

        .MatchSoundsLike = Vale

        .MatchAllWordForms = Vale

    End koos

    Selection.Find.Execute Asenda:=wdReplaceAll

    Selection.Find.ClearFormatting

    Selection.Find.Replacement.ClearFormatting

    Funktsiooniga Selection.Find

        .Text = "^p^p"

        .Replacement.Text = "^p"

        .Edasi = Tõene

        .wrap = wdFindContinue

        .format=false

        .MatchCase = Vale

        .MatchWholeWord = Vale

        .MatchWildcards = Vale

        .MatchSoundsLike = Vale

        .MatchAllWordForms = Vale

    End koos

    Selection.Find.Execute Asenda:=wdReplaceAll

End Sub

 

Rääkides ekspertidest ja kogenud kasutajatest, kes tunnevad VBA-d, saate koode täielikult kohandada vastavalt oma vajadustele, mis on mugavam ja täpsem.

Kaitske oma failid

Wordi kasutajad kogu maailmas kasutavad seda kõige paremini ära. See on suurepärane ja ka ohtlik idee, kuna see suurendab Wordi kokkuvarisemise ohtu valede toimingutega. Seetõttu peaksite alati leidma viise oma failide kaitsmiseks. Saadaolevate valikute hulgas on a doc remont tööriist eelnevalt ei kõla halvasti.

Autori sissejuhatus:

Vera Chen on andmete taastamise ekspert DataNumen, Inc., mis on maailmas juhtiv andmete taastamise tehnoloogiate, sealhulgas Exceli taastamine ja pdf tarkvaratooted. Lisateabe saamiseks külastage www.datanumenCom

Kommentaarid on suletud.