Cara Menghapus Pemformatan Teks Tampal dengan Makro dan VBA di Word Anda

Penyelesaian Perkataan September 28, 2025
Kongsi Sekarang:

Artikel ini akan menunjukkan cara membuang format teks yang ditampal dengan makro dan VBA dalam perkataan anda.

Ia banyak berlaku apabila anda menyalin teks dalam talian, dan anda dapati teksnya dalam format yang kaya. Contohnya, ada kata-kata yang berulang, baris kosong, watak tab, dan lain-lain. Namun, pemformatan seperti itu dapat sangat mengganggu terutama pada saat-saat yang anda tidak perlukan. Secara semula jadi, anda akan membuang format secara manual masing-masing. Namun, bagaimana jika teksnya sangat panjang? Maka kaedah di atas akan kurang berkesan.

Sebenarnya, ada cara untuk menggunakan makro untuk melucutkan semua format teks sekali untuk semua. Inilah lebih banyak lagi:

Langkah Merakam Makro di Word

  1. Pertama, buka Firman anda.
  2. Dan pastikan anda telah menambahkan tab "Pembangun" pada Pita terlebih dahulu. Untuk arahan terperinci untuk menambahkan "Pembangun", baca artikel: Cara Memasukkan Muzik Latar Belakang ke dalam Dokumen Word Anda
  3. Setelah tab "Pembangun" tersedia, klik.
  4. Kemudian klik "Rakam Makro" dalam kumpulan "Kod".Klik "Pembangun" -> Klik "Rakam Makro"
  5. Sekarang kotak dialog "Rakam Makro" akan muncul. Pertama, taipkan nama makro, seperti "copytext" di sini.
  6. Kemudian di bahagian "Tetapkan makro ke", pilih "Butang" atau "Papan Kekunci". Di sini kita akan pergi "Butang".
  7. Seterusnya, klik "OK".Namakan Makro -> Pilih "Butang" atau "Papan Kekunci" untuk "Tetapkan makro ke" -> Klik "OK"
  8. Dan sekarang anda akan melihat tetingkap "Pilihan Kata". Klik "Customize Ribbon".
  9. Kemudian cari lokasi untuk makro di sebelah kanan. Di sini kita akan mengklik "Kumpulan Baru" untuk menetapkan yang baru untuk makro.
  10. Noe terus memilih "Makro" dari senarai drop-down "Pilih perintah dari".
  11. Seterusnya klik makro yang baru anda buat.
  12. Kemudian klik "Tambah" di tengah tetingkap.
  13. Sekarang makro akan ditempatkan dalam kumpulan baru. Klik kanan makro.
  14. Dan pilih pilihan "Ganti nama".Klik "Customize Ribbon" -> Pilih Tempat untuk Makro -> Pilih "Makro" di "Pilih perintah dari" -> Klik Makro -> klik "Tambah" -> Klik kanan Makro -> Pilih "Ganti nama"
  15. Dalam kotak dialog "Namakan semula", pilih simbol untuk makro anda.
  16. Kemudian taipkan nama paparan.
  17. Klik "OK".Pilih Simbol -> Jenis Nama Paparan -> Klik "OK"
  18. Sekarang kembali ke tetingkap "Pilihan Kata", dan klik "OK" di sana. Makro starrakaman ts dari sekarang.Klik "OK" di "Pilihan Kata"Perkataan Starting Merakam Makro

Tampal Teks sebagai Teks Tidak Berformat

  1. Pertama, salin bahagian teks yang panjang.
  2. Kemudian klik tab "Rumah".
  3. Klik "Tampal".
  4. Seterusnya, pilih "Tampal Istimewa".Klik "Laman Utama" -> Klik "Tampal" -> Klik "Tampal Istimewa"
  5. Dan pilih "Teks Tidak Berformat" dalam kotak dialog "Tampal Khas".
  6. Kemudian klik "OK". Anda mungkin mendapat teks dengan format seperti di bawah:Pilih "Teks Tidak Berformat" -> Klik "OK"Teks Ditampal sebagai Teks Tidak Berformat

Buang Kata Berulang

  1. Seterusnyatart membersihkan pemformatan ke kiri. Tekan "Ctrl + H" untuk membuka kotak dialog "Cari dan Ganti".
  2. Dan taipkan "Arrow" di kotak teks "Cari apa".
  3. Kemudian klik "Ganti Semua".Taipkan Kata Berulang dalam Kotak Teks "Cari apa" -> Klik "Ganti Semua"

Buang Aksara Tab

  1. Pertama, tekan "Ctrl + H" untuk membuka kotak dialog "Cari dan Ganti".
  2. Kemudian ketik "^ t" di kotak teks "Cari apa".
  3. Klik seterusnya "Ganti Semua" untuk membuang semua watak tab.Ketik "^ t" di "Cari apa" Kotak Teks -> Klik "Ganti Semua"

Keluarkan Kekosongan Tambahan

  1. Masih tekan "Ctrl + H" untuk membuka kotak dialog "Cari dan Ganti".
  2. Dalam kotak teks "Cari apa", tekan kekunci kosong dua kali.
  3. Kemudian klik butang "Ganti Semua".Tekan Kekunci Kosong Dua Kali di Kotak Teks "Cari apa" -> Klik "Ganti Semua"

Keluarkan Garis Kosong dan Kekosongan Tambahan Bersama

Kadang-kadang, ketika menggunakan fungsi "Cari dan Ganti" untuk menghapus pemformatan, anda harus sedikit menyesuaikan diri untuk memenuhi keperluan anda sendiri. Sebagai contoh, jika anda gagal membuang semua kekosongan tambahan semasa menerapkan langkah-langkah di atas, anda boleh menggunakan langkah di bawah untuk menghapusnya bersama-sama dengan garis kosong.

  1. Begitu juga, tekan "Ctrl + H" untuk membuka kotak dialog "Cari dan Ganti".
  2. Seterusnya di kotak teks "Cari apa", tekan kekunci kosong terlebih dahulu.
  3. Kemudian taip "^ p".
  4. Dalam kotak teks "Ganti dengan", ketik "^ p".
  5. Klik "Ganti Semua".Tekan Kekunci Kosong Pertama -> Taip "^ p" di "Cari apa" Kotak Teks -> Taip "^ p" di "Ganti dengan" Kotak Teks -> Klik "Ganti Semua"
  6. Sekali lagi buka kotak dialog "Cari dan Ganti".
  7. Dan di kotak teks "Cari apa", ketik pertama "^ p".
  8. Kemudian tekan kekunci kosong sekali.
  9. Kemudian ketik "^ p" di kotak teks "Ganti dengan".
  10. Akhirnya klik butang "Ganti Semua".Taip "^ p" Pertama -> Tekan Kekunci Kosong sekali di "Cari apa" Kotak Teks -> Ketik "^ p" di "Ganti dengan" Kotak Teks -> Klik "Ganti Semua"

Tanggalkan Garis Kosong Kiri Sekiranya Perlu

Namun, jika masih ada baris kosong, cuba ikuti langkah berikut:

  1. Tekan "Ctrl + H" untuk membuka kotak dialog "Cari dan Ganti".
  2. jenis seterusnya "^ p ^ p" dalam kotak teks "Cari apa".
  3. Dan taip "^ p" di kotak teks "Ganti dengan".
  4. Akhirnya, klik butang "Ganti Semua".Ketik "^ p ^ p" di "Cari apa" Kotak Teks -> Ketik "^ p" di "Ganti dengan" Kotak Teks -> Klik "Ganti Semua"

Sekarang, anda mungkin mendapat hasil seperti di bawah:Kesan Menggunakan Fungsi "Ganti" untuk Menghapus Pemformatan

Kami di sini mencadangkan agar anda mengambil pesanan di atas untuk membuang pemformatan teks sehingga secara umum anda dapat menghapus pemformatan. Dan seperti yang telah kami sebutkan, kadang-kadang anda harus membersihkan jenis pemformatan lain, maka anda harus menggunakan fungsi "Cari dan Ganti" sendiri. Untuk lebih banyak kaedah untuk membuang pemformatan, anda boleh mengunjungi artikel ini: 3 Cara Menghilangkan Elemen yang Tidak Diingini dari Dokumen Word Anda Seketika

Anda boleh menyemak video berikut untuk melihat demonstrasi:

Berhenti Merakam Makro

  1. Setelah selesai membuang pemformatan teks, klik tab "Pembangun".
  2. Kemudian klik "Hentikan Rakaman". Sekarang makro akan disimpan.Klik "Pembangun" -> Klik "Hentikan Rakaman"

Cara Menjalankan Makro

  1. Salin teks dengan format dalam talian, katakan.
  2. Buka Word seterusnya.
  3. Kemudian klik tab "Pembangun".
  4. Klik ikon makro dan anda akan melihat teks pada dokumen tanpa pemformatan tambahan.Klik "Pembangun" -> Klik Makro Yang Baru DirakamKesan Menggunakan Makro untuk Menghapus Pemformatan

Catatan: Untuk pemula, anda boleh mengambil langkah di atas untuk membuat dan menjalankan makro. Menjalankan makro akan membantu anda menyingkirkan format yang menjengkelkan, yang sudah cukup.

Kod VBA untuk Pakar

Pertama ada cara untuk melihat kod VBA.

  1. Mula-mula klik tab "Pembangun".
  2. Kemudian klik "Visual Basic" dalam kumpulan "Code".Klik "Pembangun" -> Klik "Visual Basic"
  3. Dalam editor "Microsoft Visual Basic for Applications", klik "Normal" di sebelah kiri terlebih dahulu.
  4. Kemudian klik "Modul".
  5. Klik dua kali seterusnya "NewMacros" dan anda akan dapat melihat kod di sebelah kanan.Klik "Normal" -> Klik "Modul" -> Klik Dua Kali "NewMacros"

Dalam kes ini, kodnya adalah seperti di bawah:

 

Subteks teks ()

'

'makro copytext

'

'

    Selection.PasteSpecial Link: = Palsu, Jenis Data: = wdPasteText, Penempatan: = _

        wdInLine, DisplayAsIcon: = Salah

    Pemilihan.Cari.ClearFormatting

    Pemilihan.Cari.Penggantian.ClearFormatting

    Dengan Pemilihan. Cari

        .Teks = "Anak panah"

        .Replacement.Text = ""

        . Maju = Betul

        .Balut = wdCariTeruskan

        .Format = Salah

        .MatchCase = Salah

        .MatchWholeWord = Salah

        .MatchWildcards = Salah

        .MatchSoundsLike = Salah

        .MatchAllWordForms = Salah

    Akhir Dengan

    Selection.Find.Execute Replace: = wdReplaceAll

    Pemilihan.Cari.ClearFormatting

    Pemilihan.Cari.Penggantian.ClearFormatting

    Dengan Pemilihan. Cari

        .Teks = "^ t"

        .Replacement.Text = ""

        . Maju = Betul

        .Balut = wdCariTeruskan

        .Format = Salah

        .MatchCase = Salah

        .MatchWholeWord = Salah

        .MatchWildcards = Salah

        .MatchSoundsLike = Salah

        .MatchAllWordForms = Salah

    Akhir Dengan

    Selection.Find.Execute Replace: = wdReplaceAll

    Selection.Find.Execute Replace: = wdReplaceAll

    Pemilihan.Cari.ClearFormatting

    Pemilihan.Cari.Penggantian.ClearFormatting

    Dengan Pemilihan. Cari

        .Teks = ""

        .Replacement.Text = ""

        . Maju = Betul

        .Balut = wdCariTeruskan

        .Format = Salah

        .MatchCase = Salah

        .MatchWholeWord = Salah

        .MatchWildcards = Salah

        .MatchSoundsLike = Salah

        .MatchAllWordForms = Salah

    Akhir Dengan

    Selection.Find.Execute Replace: = wdReplaceAll

    Pemilihan.Cari.ClearFormatting

    Pemilihan.Cari.Penggantian.ClearFormatting

    Dengan Pemilihan. Cari

        .Teks = "^ p"

        .Replacement.Text = "^ p"

        . Maju = Betul

        .Balut = wdCariTeruskan

        .Format = Salah

        .MatchCase = Salah

        .MatchWholeWord = Salah

        .MatchWildcards = Salah

        .MatchSoundsLike = Salah

        .MatchAllWordForms = Salah

    Akhir Dengan

    Selection.Find.Execute Replace: = wdReplaceAll

    Pemilihan.Cari.ClearFormatting

    Pemilihan.Cari.Penggantian.ClearFormatting

    Dengan Pemilihan. Cari

        .Teks = "^ p"

        .Replacement.Text = "^ p"

        . Maju = Betul

        .Balut = wdCariTeruskan

        .Format = Salah

        .MatchCase = Salah

        .MatchWholeWord = Salah

        .MatchWildcards = Salah

        .MatchSoundsLike = Salah

        .MatchAllWordForms = Salah

    Akhir Dengan

    Selection.Find.Execute Replace: = wdReplaceAll

    Pemilihan.Cari.ClearFormatting

    Pemilihan.Cari.Penggantian.ClearFormatting

    Dengan Pemilihan. Cari

        .Teks = "^ p ^ p"

        .Replacement.Text = "^ p"

        . Maju = Betul

        .Balut = wdCariTeruskan

        .Format = Salah

        .MatchCase = Salah

        .MatchWholeWord = Salah

        .MatchWildcards = Salah

        .MatchSoundsLike = Salah

        .MatchAllWordForms = Salah

    Akhir Dengan

    Selection.Find.Execute Replace: = wdReplaceAll

    Pemilihan.Cari.ClearFormatting

    Pemilihan.Cari.Penggantian.ClearFormatting

    Dengan Pemilihan. Cari

        .Teks = "^ p ^ p"

        .Replacement.Text = "^ p"

        . Maju = Betul

        .Balut = wdCariTeruskan

        .Format = Salah

        .MatchCase = Salah

        .MatchWholeWord = Salah

        .MatchWildcards = Salah

        .MatchSoundsLike = Salah

        .MatchAllWordForms = Salah

    Akhir Dengan

    Selection.Find.Execute Replace: = wdReplaceAll

Akhir Sub

 

Bercakap tentang pakar dan pengguna lanjutan yang biasa dengan VBA, anda boleh menyesuaikan kod sepenuhnya untuk memenuhi keperluan anda, yang akan lebih mudah dan tepat.

Selamat Fail Anda

Pengguna Word di seluruh dunia cenderung memanfaatkannya dengan sebaik-baiknya. Ini adalah idea yang bagus dan berbahaya, kerana meningkatkan risiko runtuh Word dengan operasi yang salah. Oleh itu, anda harus selalu mencari jalan untuk mengamankan fail anda. Antara pilihan yang ada, mendapatkan a pembaikan doc alat sebelumnya terdengar tidak teruk.

Pengenalan Pengarang:

Vera Chen adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk pemulihan yang cemerlang and pdf membaiki produk perisian. Untuk maklumat lebih lanjut, lawati www.datanumen.com

Kongsi Sekarang:

Ruangan komen telah ditutup.