Kuinka poistaa liitettyjen tekstien muotoilu makrolla ja VBA: lla Wordissasi

Word-ratkaisut Syyskuu 28, 2025

Tässä artikkelissa kerrotaan, kuinka voit poistaa liitetyn tekstin muotoilun makrolla ja VBA: lla sanassasi.

Se tapahtuu paljon, kun kopioit tekstin verkossa, ja huomaat, että teksti on rikkaassa muodossa. Esimerkiksi toistuvia sanoja, tyhjiä rivejä, sarkainmerkkejä jne. Silti tällainen muotoilu voi olla varsin ärsyttävää varsinkin silloin, kun et tarvitse sitä. Luonnollisesti poistat muotoilun manuaalisesti kukin. Entä jos teksti on todella pitkä? Sitten yllä oleva menetelmä on vähemmän tehokas.

Itse asiassa on olemassa tapa käyttää makroa kaikkien tekstien muotoilun poistamiseksi kerralla. Tässä on lisää:

Vaiheet makron tallentamiseen Wordiin

  1. Ensinnäkin, avaa Word.
  2. Ja varmista, että olet lisännyt ensin Kehittäjä-välilehden nauhaan. Tarkat ohjeet kehittäjän lisäämiseen, lue artikkeli: Kuinka lisätä taustamusiikkia Word-asiakirjaasi
  3. Kun Kehittäjä-välilehti on käytettävissä, napsauta sitä.
  4. Napsauta sitten ”Tallenna makro” ”Koodi” -ryhmässä.Valitse "Kehittäjä" -> Napsauta "Tallenna makro"
  5. Nyt "Tallenna makro" -valintaikkuna avautuu. Kirjoita ensin makron nimi, kuten “copytext”.
  6. Valitse sitten "Määritä makro kohteeseen" -osiossa joko "Painike" tai "Näppäimistö". Täällä mennään "Button".
  7. Napsauta seuraavaksi “OK”.Nimeä makro -> Valitse joko "Button" tai "Keyboard" kohdalle "Määritä makro kohteeseen" -> Napsauta "OK"
  8. Ja nyt näet "Word Options" -ikkunan. Napsauta “Customize Ribbon”.
  9. Etsi sitten makron sijainti oikealta puolelta. Napsautamme tässä “Uusi ryhmä” asettaaksesi uuden makrolle.
  10. Noe jatkaa Makrojen valitsemista avattavasta Valitse komennot alkaen -luettelosta.
  11. Napsauta sitten juuri luomaa makroa.
  12. Napsauta sitten ikkunan keskellä olevaa Lisää-painiketta.
  13. Nyt makro sijoitetaan uuteen ryhmään. Napsauta makroa hiiren kakkospainikkeella.
  14. Ja valitse "Nimeä uudelleen" vaihtoehto.Napsauta "Muokkaa valintanauhaa" -> Valitse makrolle paikka -> Valitse "Makrot" kohdassa "Valitse komennot" -> Napsauta makro -> napsauta "Lisää" -> Napsauta hiiren kakkospainikkeella makroa -> Valitse "Nimeä uudelleen"
  15. Valitse "Nimeä uudelleen" -valintaikkunassa symboli makrollesi.
  16. Kirjoita sitten näyttönimi.
  17. Napsauta "OK".Valitse symboli -> Kirjoita näyttönimi -> Napsauta "OK"
  18. Palaa nyt takaisin "Word Options" -ikkunaan ja napsauta "OK" siellä. Makro starts tallennus nyt.Napsauta "OK" kohdassa "Word Options"Sanattarmakron tallentaminen

Liitä teksti alustamattomana tekstinä

  1. Ensinnäkin kopioi osa pitkästä tekstistä.
  2. Napsauta sitten Koti-välilehteä.
  3. Napsauta "Liitä".
  4. Valitse seuraavaksi "Liitä erityinen".Napsauta "Koti" -> Napsauta "Liitä" -> Napsauta "Liitä erityinen"
  5. Ja valitse Liitä erikoinen -valintaikkunasta "Alustamaton teksti".
  6. Napsauta sitten “OK”. Saatat saada seuraavan muotoisen tekstin:Valitse "Alustamaton teksti" -> Napsauta "OK"Teksti liitetty alustamattomaksi tekstiksi

Poista toistuvat sanat

  1. Seuraava start tyhjennä muotoilu vasemmalle. Paina "Ctrl + H" avataksesi "Etsi ja korvaa" -valintaikkunan.
  2. Ja kirjoita "Nuoli" "Etsi mitä" -tekstikenttään.
  3. Napsauta sitten “Korvaa kaikki”.Kirjoita toistuva sana "Etsi mitä" -tekstikenttään -> Napsauta "Korvaa kaikki"

Poista sarkainmerkit

  1. Ensinnäkin, paina "Ctrl + H" avataksesi "Etsi ja korvaa" -valintaikkunan.
  2. Kirjoita sitten ”^ t” ”Etsi mitä” -tekstiruutuun.
  3. Napsauta sitten "Korvaa kaikki" poistaaksesi kaikki välilehden merkit.Kirjoita "^ t" kohtaan "Etsi mitä" -tekstiruutu -> Napsauta "Korvaa kaikki"

Poista ylimääräiset aihiot

  1. Paina edelleen "Ctrl + H" avataksesi "Etsi ja korvaa" -valintaikkunan.
  2. Paina "Etsi mitä" -tekstiruudussa tyhjää näppäintä kahdesti.
  3. Napsauta sitten “Korvaa kaikki” -painiketta.Paina tyhjää näppäintä kahdesti "Etsi mitä" -tekstiruudussa -> Napsauta "Korvaa kaikki"

Poista tyhjät viivat ja ylimääräiset aihiot yhdessä

Joskus, kun poistat muotoilun “Etsi ja korvaa” -toiminnolla, sinun on säädettävä hieman vastaamaan omia tarpeitasi. Esimerkiksi, jos et poista kaikkia ylimääräisiä aihioita, kun suoritat yllä olevia vaiheita, voit poistaa ne yhdessä tyhjien viivojen avulla alla olevien vaiheiden avulla.

  1. Vastaavasti paina "Ctrl + H" avataksesi "Etsi ja korvaa" -valintaikkunan.
  2. Paina seuraavaksi Etsi mitä -tekstiruudussa ensin tyhjää näppäintä.
  3. Kirjoita sitten ”^ p”.
  4. Kirjoita Korvaa-tekstikenttään ”^ p”.
  5. Napsauta “Korvaa kaikki”.Paina ensin tyhjää näppäintä -> Kirjoita "^ p" kohtaan "Etsi mitä" tekstiruutu -> Kirjoita "^ p" kohtaan "Korvaa" tekstikentällä -> Napsauta "Korvaa kaikki"
  6. Avaa uudelleen Etsi ja korvaa -valintaikkuna.
  7. Kirjoita "Etsi mitä" -tekstikenttään ensin "^ p".
  8. Paina sitten tyhjää näppäintä kerran.
  9. Kirjoita sitten ”^ p” Korvaa tekstikenttään.
  10. Napsauta lopuksi Korvaa kaikki -painiketta.Kirjoita ensin "^ p" -> Paina tyhjää näppäintä kerran "Etsi mitä" -kentässä -> Kirjoita "^ p" kohtaan "Korvaa" tekstikentällä -> Napsauta "Korvaa kaikki"

Poista vasemmat tyhjät viivat tarvittaessa

Silti, jos tyhjiä rivejä on jäljellä, kokeile seuraavia vaiheita:

  1. Paina "Ctrl + H" avataksesi "Etsi ja korvaa" -valintaikkunan.
  2. kirjoita seuraava ”^ p ^ p” ”Etsi mitä” -tekstiruutuun.
  3. Kirjoita "^ p" Korvaa-tekstikenttään.
  4. Napsauta lopuksi Korvaa kaikki -painiketta.Kirjoita "^ p ^ p" kohtaan "Etsi mitä" tekstiruutu -> Kirjoita "^ p" kohtaan "Korvaa" tekstiruudulla -> Napsauta "Korvaa kaikki"

Tähän mennessä saatat saada alla olevan tuloksen:"Korvaa" -toiminnon käytön vaikutus muotoilun poistamiseen

Suosittelemme, että poistat tekstin muotoilun yllä olevassa järjestyksessä, jotta voit yleensä poistaa muotoilun. Ja kuten olemme maininneet, joskus joudut tyhjentämään muunlaiset muotoilut, sinun tulee sitten käyttää “Etsi ja korvaa” -toimintoa yksin. Saat lisää tapoja poistaa muotoilun vierailemalla tässä artikkelissa: 3 tapaa poistaa ei-toivotut elementit Word-dokumenteistasi välittömästi

Voit tarkistaa esityksen seuraavasta videosta:

Lopeta makron tallennus

  1. Kun olet poistanut tekstin muotoilun, napsauta Kehittäjä-välilehteä.
  2. Napsauta sitten "Lopeta nauhoitus". Nyt makro tallennetaan.Valitse "Kehittäjä" -> Napsauta "Lopeta nauhoitus"

Kuinka suorittaa makro

  1. Kopioi teksti muotoilemalla verkossa, sano.
  2. Avaa Word seuraavaksi.
  3. Napsauta sitten Kehittäjä-välilehteä.
  4. Napsauttamalla makrokuvaketta näet asiakirjan tekstin ilman muita muotoiluja.Napsauta "Kehittäjä" -> Napsauta juuri tallennettua makroaMakron käytön vaikutus muotoilun poistamiseen

Huomaa: Aloittelijalle voit vain luoda yllä olevat vaiheet makron luomiseksi ja suorittamiseksi. Makron suorittaminen auttaa sinua pääsemään eroon ärsyttävästä muotoilusta yleensä, mikä riittää.

Asiantuntijan VBA-koodit

Ensin on tapa tarkastella VBA-koodeja.

  1. Napsauta ensin Kehittäjä-välilehteä.
  2. Napsauta sitten “Visual Basic” ”Koodi” -ryhmässä.Valitse "Kehittäjä" -> Napsauta "Visual Basic"
  3. Napsauta “Microsoft Visual Basic for Applications” -editorissa ensin vasemmalla puolella olevaa “Normaali”.
  4. Napsauta sitten ”Moduulit”.
  5. Kaksoisnapsauta seuraavaksi ”NewMacros”, niin voit tarkastella koodia oikealla puolella.Napsauta "Normaali" -> Napsauta "Moduulit" -> Kaksoisnapsauta "NewMacros"

Tässä tapauksessa koodit ovat seuraavat:

 

Alikopioteksti ()

"

'copytext Macro

"

"

    Selection.PasteSpecial Link: = Väärin, DataType: = wdPasteText, Sijoitus: = _

        wdInLine, DisplayAsIcon: = Väärä

    Selection.Find.ClearFormatting

    Selection.Find.Replacement.ClearFormatting

    Selection.Find

        .Text = "Nuoli"

        .Replacement.Text = ""

        Eteenpäin = Tosi

        .Wrap = wdFindContinue

        .Muoto = väärä

        .MatchCase = Väärä

        .MatchWholeWord = Väärä

        .MatchWildcards = Väärä

        .MatchSoundsLike = Epätosi

        .MatchAllWordForms = Väärä

    Lopeta

    Selection.Find.Execute Replace: = wdReplaceAll

    Selection.Find.ClearFormatting

    Selection.Find.Replacement.ClearFormatting

    Selection.Find

        .Text = “^ t”

        .Replacement.Text = ""

        Eteenpäin = Tosi

        .Wrap = wdFindContinue

        .Muoto = väärä

        .MatchCase = Väärä

        .MatchWholeWord = Väärä

        .MatchWildcards = Väärä

        .MatchSoundsLike = Epätosi

        .MatchAllWordForms = Väärä

    Lopeta

    Selection.Find.Execute Replace: = wdReplaceAll

    Selection.Find.Execute Replace: = wdReplaceAll

    Selection.Find.ClearFormatting

    Selection.Find.Replacement.ClearFormatting

    Selection.Find

        .Teksti = ""

        .Replacement.Text = ""

        Eteenpäin = Tosi

        .Wrap = wdFindContinue

        .Muoto = väärä

        .MatchCase = Väärä

        .MatchWholeWord = Väärä

        .MatchWildcards = Väärä

        .MatchSoundsLike = Epätosi

        .MatchAllWordForms = Väärä

    Lopeta

    Selection.Find.Execute Replace: = wdReplaceAll

    Selection.Find.ClearFormatting

    Selection.Find.Replacement.ClearFormatting

    Selection.Find

        .Text = ”^ p”

        .Replacement.Text = “^ p”

        Eteenpäin = Tosi

        .Wrap = wdFindContinue

        .Muoto = väärä

        .MatchCase = Väärä

        .MatchWholeWord = Väärä

        .MatchWildcards = Väärä

        .MatchSoundsLike = Epätosi

        .MatchAllWordForms = Väärä

    Lopeta

    Selection.Find.Execute Replace: = wdReplaceAll

    Selection.Find.ClearFormatting

    Selection.Find.Replacement.ClearFormatting

    Selection.Find

        .Text = “^ p“

        .Replacement.Text = “^ p”

        Eteenpäin = Tosi

        .Wrap = wdFindContinue

        .Muoto = väärä

        .MatchCase = Väärä

        .MatchWholeWord = Väärä

        .MatchWildcards = Väärä

        .MatchSoundsLike = Epätosi

        .MatchAllWordForms = Väärä

    Lopeta

    Selection.Find.Execute Replace: = wdReplaceAll

    Selection.Find.ClearFormatting

    Selection.Find.Replacement.ClearFormatting

    Selection.Find

        .Text = “^ p ^ p”

        .Replacement.Text = “^ p”

        Eteenpäin = Tosi

        .Wrap = wdFindContinue

        .Muoto = väärä

        .MatchCase = Väärä

        .MatchWholeWord = Väärä

        .MatchWildcards = Väärä

        .MatchSoundsLike = Epätosi

        .MatchAllWordForms = Väärä

    Lopeta

    Selection.Find.Execute Replace: = wdReplaceAll

    Selection.Find.ClearFormatting

    Selection.Find.Replacement.ClearFormatting

    Selection.Find

        .Text = “^ p ^ p”

        .Replacement.Text = “^ p”

        Eteenpäin = Tosi

        .Wrap = wdFindContinue

        .Muoto = väärä

        .MatchCase = Väärä

        .MatchWholeWord = Väärä

        .MatchWildcards = Väärä

        .MatchSoundsLike = Epätosi

        .MatchAllWordForms = Väärä

    Lopeta

    Selection.Find.Execute Replace: = wdReplaceAll

End Sub

 

Asiantuntijoista ja edistyneistä käyttäjistä, jotka tuntevat VBA: n, voit säätää koodeja täysin tarpeidesi mukaan, mikä on helpompaa ja tarkempaa.

Suojaa tiedostosi

Wordin käyttäjät maailmanlaajuisesti käyttävät sitä parhaalla mahdollisella tavalla. Se on hieno ja myös vaarallinen idea, koska se lisää Wordin romahtamisen riskiä väärillä toiminnoilla. Siksi sinun tulisi aina löytää tapoja suojata tiedostosi. Käytettävissä olevista vaihtoehdoista saat doc-korjaus työkalu etukäteen kuulostaa pahalta.

Tekijän esittely:

Vera Chen on tietojen palauttamisen asiantuntija DataNumen, Inc., joka on maailman johtava tietojen palautustekniikoissa, mukaan lukien excel elpyminen ja pdf korjata ohjelmistotuotteita. Lisätietoja osoitteessa www.datanumen.com

Kommenttien lisääminen on estetty.