Cara Mbusak Format Teks Tempel nganggo Makro lan VBA ing Word

Ninggalake Komentar Recovery Dokumen Tembung, Solusi Tembung Januari 27, 2022

Artikel iki bakal nuduhake sampeyan carane mbusak format teks sing ditempelake nganggo makro lan VBA ing tembung sampeyan.

Mengkono akeh nalika sampeyan nyalin teks online, lan sampeyan nemokake teks ing format sugih. Contone, ana tembung sing bola-bali, garis kosong, karakter tab, lsp. Nanging, format kasebut bisa uga ngganggu utamane nalika sampeyan ora perlu. Alami, sampeyan bakal mbusak format kanthi manual saben saben. Nanging, kepiye yen teks kasebut dawa banget? Banjur cara ing ndhuwur bakal kurang efisien.

Nyatane, ana cara kanggo nggunakake makro kanggo mbusak kabeh format teks sapisan kanggo kabeh. Punika liyane:

Langkah-langkah kanggo ngrekam Macro ing Word

  1. Pisanan, bukak Word sampeyan.
  2. Lan priksa manawa sampeyan wis nambah tab "Developer" ing Pita dhisik. Kanggo instruksi rinci kanggo nambah "Developer", waca artikel kasebut: Cara Nyisipake Musik Latar menyang Dokumen Word
  3. Sawise tab "Pangembang" kasedhiya, klik.
  4. Banjur klik "Rekam Makro" ing grup "Kode".Klik "Developer" -> Klik "Record Macro"
  5. Saiki kothak dialog "Rekam Makro" bakal muncul. Pisanan, ketik jeneng makro, kayata "copytext" ing kene.
  6. Banjur ing bagean "Temtokake makro menyang", pilih "Tombol" utawa "Keyboard". Kene kita bakal pindhah menyang "Tombol".
  7. Sabanjure, klik "OK".Sebutake Makro -> Pilih "Tombol" utawa "Keyboard" kanggo "Assign macro to" -> Klik "OK"
  8. Lan saiki sampeyan bakal weruh jendhela "Pilihan Tembung". Klik "Customize Ribbon".
  9. Banjur golek lokasi kanggo makro ing sisih tengen. Ing kene kita bakal ngeklik "Grup Anyar" kanggo nyetel sing anyar kanggo makro.
  10. Noe terus milih "Macros" saka dhaptar gulung-mudhun saka "Pilih printah saka".
  11. Sabanjure klik makro sing mung digawe.
  12. Banjur klik "Tambah" ing tengah jendhela.
  13. Saiki makro bakal diselehake ing grup anyar. Klik kanan macro.
  14. Lan pilih opsi "Ganti jeneng".Klik "Customize Ribbon" -> Pilih Panggonan kanggo Makro -> Pilih "Macros" ing "Pilih perintah saka" -> Klik Makro -> klik "Tambah" -> Klik Kanan Macro -> Pilih "Ganti jeneng"
  15. Ing kothak dialog "Ganti jeneng", pilih simbol kanggo makro sampeyan.
  16. Banjur ketik jeneng tampilan.
  17. Klik "OK".Pilih Simbol -> Ketik Jeneng Tampilan -> Klik "OK"
  18. Saiki bali menyang jendhela "Pilihan Tembung", lan klik "OK" ing kana. Makro starts ngrekam saka saiki.Klik "OK" ing "Word Options"Tembung Starting Ngrekam Makro

Tempel Teks minangka Teks Ora Diformat

  1. Kaping pisanan, nyalin bagean saka teks sing dawa.
  2. Banjur klik tab "Ngarep".
  3. Klik "Tempel".
  4. Sabanjure, pilih "Tempel Khusus".Klik "Home" -> Klik "Paste" -> Klik "Paste Special"
  5. Lan pilih "Teks sing ora diformat" ing kothak dialog "Tempel Khusus".
  6. Banjur klik "OK". Sampeyan bisa njaluk teks kanthi format kaya ing ngisor iki:Pilih "Unformatted Text" -> Klik "OK"Teks Tempel minangka Teks Ora Diformat

Mbusak Tembung sing diulang

  1. Sabanjure start mbusak format kiwa. Pencet "Ctrl + H" kanggo mbukak kothak dialog "Temokake lan Ganti".
  2. Lan ketik "Panah" ing kothak teks "Temokake apa".
  3. Banjur klik "Ganti Kabeh".Ketik Tembung sing Diulang ing "Temokake Apa" Kothak Teks -> Klik "Ganti Kabeh"

Mbusak Karakter Tab

  1. Pisanan, pencet "Ctrl + H" kanggo mbukak kothak dialog "Golek lan Ganti".
  2. Banjur ketik "^t" ing kothak teks "Temokake apa".
  3. Sabanjure klik "Ganti Kabeh" kanggo mbusak kabeh karakter tab.Ketik "^t" ing "Temokake apa" Kothak Teks -> Klik "Ganti Kabeh"

Mbusak Ekstra Kosong

  1. Isih pencet "Ctrl + H" kanggo mbukak kothak dialog "Golek lan Ganti".
  2. Ing kothak teks "Temokake apa", pencet tombol kosong kaping pindho.
  3. Banjur klik tombol "Ganti Kabeh".Pencet Blank Key kaping pindho ing "Temokake apa" Kothak Teks -> Klik "Ganti Kabeh"

Copot Garis Kosong lan Kothong Ekstra Bareng

Kadhangkala, nalika nggunakake fungsi "Golek lan Ganti" kanggo mbusak format, sampeyan kudu nyetel dicokot kanggo nyukupi kabutuhan dhewe. Contone, yen sampeyan gagal mbusak kabeh kothong ekstra nalika ngetrapake langkah-langkah ing ndhuwur, sampeyan bisa nggunakake langkah-langkah ing ngisor iki kanggo mbusak bebarengan karo garis kosong.

  1. Kajaba iku, pencet "Ctrl + H" kanggo mbukak kothak dialog "Golek lan Ganti".
  2. Sabanjure ing kothak teks "Temokake apa", pencet tombol kosong dhisik.
  3. Banjur ketik "^p".
  4. Ing kothak teks "Ganti karo", ketik "^p".
  5. Klik "Ganti Kabeh".Pencet Blank Key First -> Ketik "^p" ing "Temokake apa" Kothak Teks -> Ketik "^p" ing "Ganti karo" Kotak Teks -> Klik "Ganti Kabeh"
  6. Bukak maneh kothak dialog "Ganti lan Ganti".
  7. Lan ing kothak teks "Temokake apa", ketik dhisik "^p".
  8. Banjur pencet tombol kosong sapisan.
  9. Banjur ketik "^p" ing kothak teks "Ganti karo".
  10. Pungkasan klik tombol "Ganti Kabeh".Ketik "^p" Pisanan -> Pencet Tombol Kosong Sawise ing "Temokake apa" Kothak Teks -> Ketik "^p" ing "Ganti karo" Kotak Teks -> Klik "Ganti Kabeh"

Copot Garis Kosong Ngiwa Yen Perlu

Nanging, yen isih ana garis kosong, coba tindakake langkah-langkah:

  1. Pencet "Ctrl + H" kanggo mbukak kothak dialog "Temokake lan Ganti".
  2. ketik sabanjure "^p^p" ing kothak teks "Temokake apa".
  3. Lan ketik "^p" ing kothak teks "Ganti karo".
  4. Pungkasan, klik tombol "Ganti Kabeh".Ketik "^p^p" ing "Temokake apa" Kothak Teks -> Ketik "^p" ing "Ganti karo" Kotak Teks -> Klik "Ganti Kabeh"

Saiki, sampeyan bisa entuk asil kaya ing ngisor iki:Efek Nggunakake Fungsi "Ganti" kanggo Mbusak Formatting

Disaranake sampeyan njupuk pesenan ing ndhuwur kanggo mbusak format teks supaya sampeyan bisa mbusak format kasebut. Lan kaya sing wis kasebut, kadhangkala sampeyan kudu mbusak jinis format liyane, banjur sampeyan kudu nggunakake fungsi "Ganti lan Ganti" dhewe. Kanggo cara liyane kanggo mbusak format, sampeyan bisa bukak artikel iki: 3 Cara Mbusak Unsur sing Ora Dikarepake saka Dokumen Word kanthi cepet

Sampeyan bisa mriksa video ing ngisor iki kanggo ndeleng demonstrasi:

Mungkasi Rekaman Makro

  1. Sawise sampeyan rampung mbusak format teks, klik tab "Developer".
  2. Banjur klik "Stop Rekaman". Saiki makro bakal disimpen.Klik "Developer" -> Klik "Stop Recording"

Carane Mbukak Macro

  1. Nyalin teks karo format online, ngomong.
  2. Bukak Word sabanjure.
  3. Banjur klik tab "Developer".
  4. Klik lambang makro lan sampeyan bakal weruh teks ing dokumen tanpa format tambahan.Klik "Developer" -> Klik Macro Just RecordedEfek Nggunakake Makro kanggo Mbusak Formatting

Cathetan: Kanggo wong anyar, sampeyan mung bisa njupuk langkah ing ndhuwur kanggo nggawe lan mbukak makro. Mlaku makro bakal mbantu sampeyan nyingkirake format sing ngganggu kanthi gedhe, sing cukup.

Kode VBA kanggo Pakar

Pisanan ana cara kanggo ndeleng kode VBA.

  1. Pisanan klik tab "Developer".
  2. Banjur klik "Visual Basic' ing grup "Kode".Klik "Developer" -> Klik "Visual Basic"
  3. Ing editor "Microsoft Visual Basic for Applications", klik "Normal" ing sisih kiwa dhisik.
  4. Banjur klik "Modul".
  5. Sabanjure klik kaping pindho "NewMacros" lan sampeyan bakal bisa ndeleng kode ing sisih tengen.Klik "Normal" -> Klik "Modules" -> Klik kaping pindho "NewMacros"

Ing kasus iki, kode kaya ing ngisor iki:

 

Sub copytext()

'

"makro copytext kab

'

'

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

        wdInLine, DisplayAsIcon: = Palsu

    Selection.Find.ClearFormatting

    Selection.Find.Replacement.ClearFormatting

    Kanthi Selection.Find

        .Teks = "Panah"

        .Ganti.Teks = “”

        .Maju = Bener

        .wrap = wdFindContinue

        .format=palsu

        .MatchCase = Palsu

        .MatchWholeWord = Palsu

        .MatchWildcards = Palsu

        .MatchSoundsLike = Palsu

        .MatchAllWordForms = Palsu

    Pungkasan Kanthi

    Selection.Find.Execute Ganti: = wdReplaceAll

    Selection.Find.ClearFormatting

    Selection.Find.Replacement.ClearFormatting

    Kanthi Selection.Find

        .Teks = “^t”

        .Ganti.Teks = “”

        .Maju = Bener

        .wrap = wdFindContinue

        .format=palsu

        .MatchCase = Palsu

        .MatchWholeWord = Palsu

        .MatchWildcards = Palsu

        .MatchSoundsLike = Palsu

        .MatchAllWordForms = Palsu

    Pungkasan Kanthi

    Selection.Find.Execute Ganti: = wdReplaceAll

    Selection.Find.Execute Ganti: = wdReplaceAll

    Selection.Find.ClearFormatting

    Selection.Find.Replacement.ClearFormatting

    Kanthi Selection.Find

        .Teks = ” “

        .Ganti.Teks = “”

        .Maju = Bener

        .wrap = wdFindContinue

        .format=palsu

        .MatchCase = Palsu

        .MatchWholeWord = Palsu

        .MatchWildcards = Palsu

        .MatchSoundsLike = Palsu

        .MatchAllWordForms = Palsu

    Pungkasan Kanthi

    Selection.Find.Execute Ganti: = wdReplaceAll

    Selection.Find.ClearFormatting

    Selection.Find.Replacement.ClearFormatting

    Kanthi Selection.Find

        .Teks = ”^p”

        .Pengganti.Teks = “^p”

        .Maju = Bener

        .wrap = wdFindContinue

        .format=palsu

        .MatchCase = Palsu

        .MatchWholeWord = Palsu

        .MatchWildcards = Palsu

        .MatchSoundsLike = Palsu

        .MatchAllWordForms = Palsu

    Pungkasan Kanthi

    Selection.Find.Execute Ganti: = wdReplaceAll

    Selection.Find.ClearFormatting

    Selection.Find.Replacement.ClearFormatting

    Kanthi Selection.Find

        .Teks = “^p”

        .Pengganti.Teks = “^p”

        .Maju = Bener

        .wrap = wdFindContinue

        .format=palsu

        .MatchCase = Palsu

        .MatchWholeWord = Palsu

        .MatchWildcards = Palsu

        .MatchSoundsLike = Palsu

        .MatchAllWordForms = Palsu

    Pungkasan Kanthi

    Selection.Find.Execute Ganti: = wdReplaceAll

    Selection.Find.ClearFormatting

    Selection.Find.Replacement.ClearFormatting

    Kanthi Selection.Find

        .Teks = “^p^p”

        .Pengganti.Teks = “^p”

        .Maju = Bener

        .wrap = wdFindContinue

        .format=palsu

        .MatchCase = Palsu

        .MatchWholeWord = Palsu

        .MatchWildcards = Palsu

        .MatchSoundsLike = Palsu

        .MatchAllWordForms = Palsu

    Pungkasan Kanthi

    Selection.Find.Execute Ganti: = wdReplaceAll

    Selection.Find.ClearFormatting

    Selection.Find.Replacement.ClearFormatting

    Kanthi Selection.Find

        .Teks = “^p^p”

        .Pengganti.Teks = “^p”

        .Maju = Bener

        .wrap = wdFindContinue

        .format=palsu

        .MatchCase = Palsu

        .MatchWholeWord = Palsu

        .MatchWildcards = Palsu

        .MatchSoundsLike = Palsu

        .MatchAllWordForms = Palsu

    Pungkasan Kanthi

    Selection.Find.Execute Ganti: = wdReplaceAll

Akhir Sub

 

Ngomong babagan ahli lan pangguna majeng sing kenal karo VBA, sampeyan bisa nyetel kode kanggo nyukupi kabutuhan sampeyan, sing bakal luwih trep lan tepat.

Ngamanake File Panjenengan

Pangguna Word ing saindenging jagad cenderung nggunakake paling apik. Iki minangka ide sing apik lan mbebayani, amarga nambah risiko ambruk Word kanthi operasi sing salah. Mulane, sampeyan kudu tansah golek cara kanggo ngamanake file. Antarane opsi kasedhiya, njupuk a ndandani doc alat sadurunge muni ora ala.

Pambuka Pengarang:

Vera Chen punika pakar Recovery data ing DataNumen, Inc., sing dadi pimpinan donya ing teknologi pemulihan data, kalebu pemulihan excel lan pdf produk lunak ndandani. Kanggo informasi luwih lengkap riko www.datanumensitus

Ninggalake a Reply

Panjenengan alamat email ora bisa diterbitake. Perangkat kothak ditandhani *