Paano Tanggalin ang Pag-format ng Mga Na-paste na Mga Teksto gamit ang Macro at VBA sa Iyong Salita

Ipamahagi ngayon:

Ipapakita sa iyo ng artikulong ito kung paano alisin ang pag-format ng na-paste na teksto gamit ang macro at VBA sa iyong salita.

Madalas itong nangyayari kapag kumopya ka ng isang teksto sa online, at nakita mong ang teksto ay mayaman sa pag-format. Halimbawa, may mga umuulit na salita, blangko na linya, mga character ng tab, atbp. Gayunpaman, ang nasabing pag-format ay maaaring maging nakakainis lalo na sa mga oras na hindi mo kailangan. Naturally, aalisin mo ang manu-manong pag-format bawat isa sa bawat isa. Gayunpaman, paano kung ang teksto ay talagang mahaba? Pagkatapos ang pamamaraan sa itaas ay magiging hindi gaanong mahusay.

Bilang isang bagay ng katotohanan, mayroong isang paraan upang magamit ang macro upang alisin ang lahat ng pag-format ng teksto nang isang beses para sa lahat. Narito pa:

Mga Hakbang upang Magtala ng isang Macro sa Salita

  1. Una, buksan ang iyong Salita.
  2. At tiyaking naidagdag mo muna ang tab na "Developer" sa Ribbon. Para sa detalyadong mga tagubilin upang magdagdag ng "Developer", mangyaring basahin ang artikulo: Paano Ipasok ang Background Music sa Iyong Word Document
  3. Kapag ang tab na "Developer" ay magagamit, i-click ito.
  4. Pagkatapos i-click ang "Record Macro" sa pangkat na "Code".I-click ang "Developer" -> I-click ang "Record Macro"
  5. Ngayon isang kahon ng dayalogo na "Magrekord ng Macro" ay mag-pop up. Una, i-type ang pangalan ng macro, tulad ng "copytext" dito.
  6. Pagkatapos sa bahaging "Magtalaga ng macro sa", piliin ang alinman sa "Button" o "Keyboard". Dito pupunta kami sa "Button".
  7. Susunod, i-click ang "OK".Pangalanan ang Macro -> Piliin ang Alinmang "Button" o "Keyboard" para sa "Magtalaga ng macro sa" -> I-click ang "OK"
  8. At ngayon makikita mo ang window na "Mga Pagpipilian sa Salita". I-click ang "Ipasadya ang Ribbon".
  9. Pagkatapos maghanap ng isang lokasyon para sa macro sa kanang bahagi. Dito i-click namin ang "Bagong Pangkat" upang magtakda ng bago para sa macro.
  10. Patuloy na pipiliin ni Noe ang "Macros" mula sa drop-down na listahan ng "Pumili ng mga utos mula sa".
  11. Susunod na pag-click sa macro na nilikha mo lang.
  12. Pagkatapos i-click ang "Idagdag" sa gitna ng window.
  13. Ngayon ang makro ay ilalagay sa bagong pangkat. Pag-click lamang sa makro.
  14. At piliin ang pagpipiliang "Palitan ang Pangalanang".I-click ang "Ipasadya ang Ribbon" -> Pumili ng isang Lugar para sa Macro -> Piliin ang "Macros" sa "Piliin ang mga utos mula sa" -> I-click ang Macro -> i-click ang "Idagdag" -> Pag-right click sa Macro -> Piliin ang "Palitan ang pangalan"
  15. Sa dialog box na "Palitan ang Pangalanang", pumili ng isang simbolo para sa iyong macro.
  16. Pagkatapos i-type ang display name.
  17. I-click ang "OK".Pumili ng isang Simbolo -> I-type ang Pangalan ng Display -> I-click ang "OK"
  18. Ngayon, bumalik sa window na "Word Options", at pindutin ang "OK" doon. Magsisimulang mag-record ang macro mula ngayon.I-click ang "OK" sa "Mga Pagpipilian sa Salita"Sinisimulan ng Word ang Pagre-record ng Macro

I-paste ang Teksto bilang Hindi Na-format na Teksto

  1. Una, kopyahin ang isang bahagi ng isang mahabang teksto.
  2. Pagkatapos i-click ang tab na "Home".
  3. I-click ang "I-paste".
  4. Susunod, piliin ang "I-paste ang Espesyal".I-click ang "Home" -> I-click ang "I-paste" -> I-click ang "I-paste ang Espesyal"
  5. At piliin ang "Hindi Na-format na Teksto" sa dialog box na "I-paste ang Espesyal".
  6. Pagkatapos ay i-click ang "OK". Maaari kang makakuha ng isang teksto na may pag-format tulad ng sa ibaba:Piliin ang "Hindi Na-format na Teksto" -> I-click ang "OK"Na-paste ang Teksto bilang Hindi Na-format na Teksto

Alisin ang Mga Umuulit na Salita

  1. Sunod, simulan ang pag-alis ng natitirang formatting. Pindutin ang “Ctrl+ H” para buksan ang dialog box na “Find and Replace”.
  2. At i-type ang "Arrow" sa text box na "Hanapin kung ano".
  3. Pagkatapos i-click ang "Palitan ang Lahat".I-type ang Umuulit na Salita sa "Hanapin kung anong" Text Box -> I-click ang "Palitan Lahat"

Alisin ang Mga Character ng Tab

  1. Una, pindutin ang "Ctrl + H" upang buksan ang dialog box na "Hanapin at Palitan".
  2. Pagkatapos i-type ang "^ t" sa kahon ng teksto na "Hanapin kung ano".
  3. Susunod na pag-click sa "Palitan Lahat" upang alisin ang lahat ng mga character sa tab.I-type ang "^ t" sa "Hanapin kung anong" Text Box -> I-click ang "Palitan Lahat"

Alisin ang Extra Blangko

  1. Pindutin pa rin ang "Ctrl + H" upang buksan ang dialog box na "Hanapin at Palitan".
  2. Sa text box na "Hanapin kung ano", pindutin ang blangkong key dalawang beses.
  3. Pagkatapos i-click ang pindutang "Palitan Lahat".Pindutin ang Blank Key Dalawang beses sa "Hanapin kung anong" Text Box -> I-click ang "Palitan Lahat"

Tanggalin ang Mga Blangko na Linya at Dagdag na Mga Blangko

Minsan, kapag gumagamit ng function na "Hanapin at Palitan" upang alisin ang pag-format, kailangan mong ayusin nang kaunti upang matugunan ang iyong sariling pangangailangan. Halimbawa, kung nabigo kang alisin ang lahat ng labis na mga blangko kapag inilalapat ang mga hakbang sa itaas, maaari mong gamitin ang mga hakbang sa ibaba upang tanggalin ang mga ito kasama ng mga blangko na linya.

  1. Katulad nito, pindutin ang "Ctrl + H" upang buksan ang dialog box na "Hanapin at Palitan".
  2. Susunod sa text box na "Hanapin kung ano", pindutin muna ang isang blangkong key.
  3. Pagkatapos i-type ang "^ p".
  4. Sa text box na "Palitan ng", i-type ang "^ p".
  5. I-click ang "Palitan ang Lahat".Pindutin muna ang Blank Key -> I-type ang "^ p" sa "Hanapin kung anong" Text Box -> Type "^ p" sa "Palitan ng" Text Box -> I-click ang "Palitan ang Lahat"
  6. Muli buksan ang dialog box na "Hanapin at Palitan".
  7. At sa text box na "Hanapin kung ano", unang uri ng "^ p".
  8. Pagkatapos ay pindutin ang blangko key nang isang beses.
  9. Pagkatapos i-type ang "^ p" sa kahon ng teksto na "Palitan ng".
  10. Panghuli i-click ang pindutang "Palitan Lahat".I-type ang "^ p" Una -> Pindutin ang Blank Key Minsan sa "Hanapin kung anong" Text Box -> Type "^ p" sa "Palitan ng" Text Box -> I-click ang "Palitan Lahat"

Alisin ang Mga Kaliwang Blangko na Linya Kung Kinakailangan

Gayunpaman, kung may natitirang mga blangko na linya, subukang sundin ang mga hakbang:

  1. Pindutin ang "Ctrl + H" upang buksan ang dialog box na "Hanapin at Palitan".
  2. susunod na uri ng “^ p ^ p” sa text box na “Hanapin kung ano”.
  3. At i-type ang "^ p" sa text box na "Palitan ng".
  4. Panghuli, i-click ang pindutang "Palitan Lahat".I-type ang "^ p ^ p" sa "Hanapin kung anong" Text Box -> Type "^ p" sa "Palitan ng" Text Box -> I-click ang "Palitan ang Lahat"

Sa ngayon, maaari kang makakuha ng resulta tulad ng nasa ibaba:Epekto ng Paggamit ng "Palitan" na Pag-andar upang Alisin ang Pag-format

Iminumungkahi namin dito na kunin mo ang order sa itaas upang alisin ang pag-format ng teksto upang maaari mong pangkalahatang burahin ang pag-format. At tulad ng nabanggit namin, kung minsan kailangan mong i-clear ang iba pang mga uri ng pag-format, pagkatapos ay dapat mong gamitin ang function na "Hanapin at Palitan" sa iyong sarili. Para sa higit pang mga paraan upang alisin ang pag-format, maaari mong bisitahin ang artikulong ito: 3 Mga Paraan upang Tanggalin ang Mga Hindi Inaasahang Elemento mula sa Iyong Mga Dokumentong Salita Kaagad

Maaari mong suriin ang sumusunod na video upang makita ang pagpapakita:

Ihinto ang Pagre-record ng Macro

  1. Kapag natapos mo na ang pag-alis ng pag-format ng teksto, i-click ang tab na "Developer".
  2. Pagkatapos i-click ang "Ihinto ang Pagre-record". Ngayon ang makro ay nai-save.I-click ang "Developer" -> I-click ang "Ihinto ang Pagre-record"

Paano Patakbuhin ang isang Macro

  1. Kopyahin ang teksto sa pag-format sa online, sabihin.
  2. Susunod na bukas ang Word.
  3. Pagkatapos i-click ang tab na "Developer".
  4. I-click ang icon na macro at makikita mo ang teksto sa dokumento nang walang karagdagang pag-format.I-click ang "Developer" -> I-click ang Macro Naitala Na LangEpekto ng Paggamit ng Macro upang Alisin ang Pag-format

Tandaan: Para sa baguhan, maaari mo lamang gawin ang mga hakbang sa itaas upang lumikha at magpatakbo ng isang macro. Ang pagpapatakbo ng isang macro ay makakatulong sa iyo na mapupuksa ang nakakainis na pag-format sa malaki, na sapat.

Ang Mga Code ng VBA para sa Dalubhasa

Una mayroong ang paraan upang matingnan ang mga VBA code.

  1. Una i-click ang tab na "Developer".
  2. Pagkatapos ay i-click ang "Visual Basic 'sa pangkat na" Code ".I-click ang "Developer" -> I-click ang "Visual Basic"
  3. Sa editor ng "Microsoft Visual Basic for Applications", i-click ang "Normal" sa kaliwang bahagi muna.
  4. Pagkatapos i-click ang "Mga Modyul".
  5. Susunod na pag-double click sa "NewMacros" at makikita mo ang code sa kanang bahagi ng lugar.I-click ang "Normal" -> I-click ang "Mga Modyul" -> I-double click ang "NewMacros"

Sa kasong ito, ang mga code ay nasa ibaba:

 

Sub copytext ()

'

'copytext Macro

'

'

    Selection.PasteSpesyal na Link: = Mali, DataType: = wdPasteText, Placed: = _

        wdInLine, DisplayAsIcon: = Mali

    Pagpili.Hahanap.ClearFormatting

    Pagpili.Hahanap.Pagpalit.ClearFormatting

    Sa Pagpili.Hahanap

        .Txt = "Arrow"

        .Pagpalit.Teksto = ""

        .Forward = Totoo

        .I-wrap = wdFindContinue

        .Format = Mali

        .MatchCase = Mali

        .MatchWholeWord = Mali

        .MatchWildcards = Mali

        .MatchSoundsLike = Mali

        .MatchAllWordForms = Mali

    Magtapos sa

    Pinili. Hanapin. Ipatupad ang Palitan: = wdReplaceAll

    Pagpili.Hahanap.ClearFormatting

    Pagpili.Hahanap.Pagpalit.ClearFormatting

    Sa Pagpili.Hahanap

        .Teksto = “^ t”

        .Pagpalit.Teksto = ""

        .Forward = Totoo

        .I-wrap = wdFindContinue

        .Format = Mali

        .MatchCase = Mali

        .MatchWholeWord = Mali

        .MatchWildcards = Mali

        .MatchSoundsLike = Mali

        .MatchAllWordForms = Mali

    Magtapos sa

    Pinili. Hanapin. Ipatupad ang Palitan: = wdReplaceAll

    Pinili. Hanapin. Ipatupad ang Palitan: = wdReplaceAll

    Pagpili.Hahanap.ClearFormatting

    Pagpili.Hahanap.Pagpalit.ClearFormatting

    Sa Pagpili.Hahanap

        .Txt = ""

        .Pagpalit.Teksto = ""

        .Forward = Totoo

        .I-wrap = wdFindContinue

        .Format = Mali

        .MatchCase = Mali

        .MatchWholeWord = Mali

        .MatchWildcards = Mali

        .MatchSoundsLike = Mali

        .MatchAllWordForms = Mali

    Magtapos sa

    Pinili. Hanapin. Ipatupad ang Palitan: = wdReplaceAll

    Pagpili.Hahanap.ClearFormatting

    Pagpili.Hahanap.Pagpalit.ClearFormatting

    Sa Pagpili.Hahanap

        .Teksto = ”^ p”

        .Pagpalit.Teksto = “^ p”

        .Forward = Totoo

        .I-wrap = wdFindContinue

        .Format = Mali

        .MatchCase = Mali

        .MatchWholeWord = Mali

        .MatchWildcards = Mali

        .MatchSoundsLike = Mali

        .MatchAllWordForms = Mali

    Magtapos sa

    Pinili. Hanapin. Ipatupad ang Palitan: = wdReplaceAll

    Pagpili.Hahanap.ClearFormatting

    Pagpili.Hahanap.Pagpalit.ClearFormatting

    Sa Pagpili.Hahanap

        .Teksto = “^ p“

        .Pagpalit.Teksto = “^ p”

        .Forward = Totoo

        .I-wrap = wdFindContinue

        .Format = Mali

        .MatchCase = Mali

        .MatchWholeWord = Mali

        .MatchWildcards = Mali

        .MatchSoundsLike = Mali

        .MatchAllWordForms = Mali

    Magtapos sa

    Pinili. Hanapin. Ipatupad ang Palitan: = wdReplaceAll

    Pagpili.Hahanap.ClearFormatting

    Pagpili.Hahanap.Pagpalit.ClearFormatting

    Sa Pagpili.Hahanap

        .Teksto = “^ p ^ p”

        .Pagpalit.Teksto = “^ p”

        .Forward = Totoo

        .I-wrap = wdFindContinue

        .Format = Mali

        .MatchCase = Mali

        .MatchWholeWord = Mali

        .MatchWildcards = Mali

        .MatchSoundsLike = Mali

        .MatchAllWordForms = Mali

    Magtapos sa

    Pinili. Hanapin. Ipatupad ang Palitan: = wdReplaceAll

    Pagpili.Hahanap.ClearFormatting

    Pagpili.Hahanap.Pagpalit.ClearFormatting

    Sa Pagpili.Hahanap

        .Teksto = “^ p ^ p”

        .Pagpalit.Teksto = “^ p”

        .Forward = Totoo

        .I-wrap = wdFindContinue

        .Format = Mali

        .MatchCase = Mali

        .MatchWholeWord = Mali

        .MatchWildcards = Mali

        .MatchSoundsLike = Mali

        .MatchAllWordForms = Mali

    Magtapos sa

    Pinili. Hanapin. Ipatupad ang Palitan: = wdReplaceAll

End Sub

 

Nagsasalita ng mga eksperto at advanced na mga gumagamit na pamilyar sa VBA, maaari mong ganap na ayusin ang mga code upang masiyahan ang iyong mga kinakailangan, na magiging mas maginhawa at tumpak.

I-secure ang Iyong Mga File

Ang mga gumagamit ng Word sa buong mundo ay may posibilidad na gamitin ang pinakamahusay na paggamit nito. Ito ay isang mahusay at isang mapanganib din na ideya, dahil pinapataas nito ang peligro ng pagbagsak ng Salita sa mga maling operasyon. Samakatuwid, dapat mong palaging makahanap ng mga paraan upang ma-secure ang iyong mga file. Kabilang sa mga magagamit na pagpipilian, pagkuha ng isang pag-aayos ng doc kasangkapan muna tunog hindi masama.

Panimula ng May-akda:

Si Vera Chen ay isang dalubhasa sa pagbawi ng data sa DataNumen, Inc., na pinuno ng mundo sa mga teknolohiya sa pagbawi ng data, kasama ang excel paggaling at pdf pagkumpuni ng mga produktong software. Para sa karagdagang impormasyon pagbisita www.datanumen. Sa

Ipamahagi ngayon:

Mga komento ay sarado.