Cara Menghapus Pemformatan Teks yang Disisipkan dengan Makro dan VBA di Word Anda

Solusi Kata September 28, 2025
Bagikan sekarang:

Artikel ini akan mendemonstrasikan cara menghapus pemformatan teks yang ditempelkan dengan makro dan VBA di kata Anda.

Ini sering terjadi saat Anda menyalin teks secara online, dan Anda menemukan teks tersebut dalam format kaya. Misalnya, ada kata yang berulang, baris kosong, karakter tab, dll. Namun, pemformatan seperti itu bisa sangat mengganggu terutama pada saat Anda tidak membutuhkannya. Biasanya, Anda akan menghapus format secara manual masing-masing. Namun, bagaimana jika teksnya sangat panjang? Maka cara diatas akan menjadi kurang efisien.

Faktanya, ada cara untuk menggunakan makro untuk menghapus semua format teks sekali untuk semua. Berikut lebih lanjut:

Langkah-langkah untuk Merekam Makro di Word

  1. Pertama, buka Word Anda.
  2. Dan pastikan Anda telah menambahkan tab "Pengembang" pada Pita terlebih dahulu. Untuk petunjuk mendetail untuk menambahkan "Pengembang", harap baca artikel: Cara Memasukkan Musik Latar ke Dokumen Word Anda
  3. Setelah tab "Pengembang" tersedia, klik tab tersebut.
  4. Kemudian klik "Rekam Makro" di grup "Kode".Klik "Pengembang" -> Klik "Rekam Makro"
  5. Sekarang kotak dialog "Rekam Makro" akan muncul. Pertama, ketikkan nama makro, seperti "copytext" di sini.
  6. Kemudian di bagian "Tetapkan makro ke", pilih salah satu "Tombol" atau "Keyboard". Di sini kita akan pergi "Tombol".
  7. Selanjutnya, klik "OK".Beri nama Makro -> Pilih "Tombol" atau "Keyboard" untuk "Tetapkan makro ke" -> Klik "OK"
  8. Dan sekarang Anda akan melihat jendela "Opsi Word". Klik "Sesuaikan Pita".
  9. Kemudian temukan lokasi untuk makro di sisi kanan. Di sini kita akan mengklik "Grup Baru" untuk menetapkan yang baru untuk makro.
  10. Noe terus memilih "Macro" dari daftar drop-down "Pilih perintah dari".
  11. Selanjutnya klik makro yang baru saja Anda buat.
  12. Kemudian klik "Tambahkan" di tengah jendela.
  13. Sekarang makro akan ditempatkan di grup baru. Cukup klik kanan makro.
  14. Dan pilih opsi "Ubah nama".Klik "Sesuaikan Pita" -> Pilih Tempat untuk Makro -> Pilih "Makro" di "Pilih perintah dari" -> Klik Makro -> klik "Tambah" -> Klik Kanan Makro -> Pilih "Ubah Nama"
  15. Dalam kotak dialog "Ubah nama", pilih simbol untuk makro Anda.
  16. Kemudian ketikkan nama tampilan.
  17. Klik "OK".Pilih Simbol -> Ketik Nama Tampilan -> Klik "OK"
  18. Sekarang kembali ke jendela "Opsi Word", dan klik "OK" di sana. Makro starts merekam dari sekarang.Klik "OK" di "Opsi Word"Kata Starting Merekam Makro

Tempel Teks sebagai Teks Tidak Berformat

  1. Pertama, salin bagian dari teks panjang.
  2. Kemudian klik tab "Beranda".
  3. Klik "Tempel".
  4. Selanjutnya, pilih "Tempel Spesial".Klik "Beranda" -> Klik "Tempel" -> Klik "Tempel Spesial"
  5. Dan pilih "Teks Tidak Berformat" di kotak dialog "Tempel Khusus".
  6. Lalu klik "OK". Anda mungkin mendapatkan teks dengan format seperti di bawah ini:Pilih "Teks Tidak Berformat" -> Klik "OK"Teks Ditempelkan sebagai Teks Tidak Berformat

Hapus Kata-kata yang Berulang

  1. S berikutnyatart menghapus format kiri. Tekan "Ctrl + H" untuk membuka kotak dialog "Temukan dan Ganti".
  2. Dan ketik "Panah" di kotak teks "Temukan apa".
  3. Kemudian klik "Ganti Semua".Ketik Kata Berulang dalam Kotak Teks "Temukan apa" -> Klik "Ganti Semua"

Hapus Karakter Tab

  1. Pertama, tekan "Ctrl + H" untuk membuka kotak dialog "Temukan dan Ganti".
  2. Kemudian ketik “^ t” di kotak teks “Find what”.
  3. Selanjutnya klik "Ganti Semua" untuk menghapus semua karakter tab.Ketik "^ t" dalam Kotak Teks "Temukan apa" -> Klik "Ganti Semua"

Hapus Kosong Ekstra

  1. Masih tekan "Ctrl + H" untuk membuka kotak dialog "Temukan dan Ganti".
  2. Dalam kotak teks "Temukan apa", tekan tombol kosong dua kali.
  3. Kemudian klik tombol "Ganti Semua".Tekan Tombol Kosong Dua kali dalam Kotak Teks "Temukan apa" -> Klik "Ganti Semua"

Hapus Garis Kosong dan Kosong Ekstra Bersama-sama

Terkadang, saat menggunakan fungsi "Temukan dan Ganti" untuk menghapus pemformatan, Anda harus sedikit menyesuaikan untuk memenuhi kebutuhan Anda. Misalnya, jika Anda gagal menghapus semua bagian kosong tambahan saat menerapkan langkah-langkah di atas, Anda dapat menggunakan langkah-langkah di bawah ini untuk menghapusnya bersama dengan baris kosong.

  1. Demikian pula, tekan "Ctrl + H" untuk membuka kotak dialog "Temukan dan Ganti".
  2. Selanjutnya dalam kotak teks "Temukan apa", tekan tombol kosong terlebih dahulu.
  3. Lalu ketik “^ p”.
  4. Dalam kotak teks "Ganti dengan", ketik "^ p".
  5. Klik "Ganti Semua".Tekan Tombol Kosong Pertama -> Ketik "^ p" di Kotak Teks "Temukan apa" -> Ketik "^ p" di "Ganti dengan" Kotak Teks -> Klik "Ganti Semua"
  6. Sekali lagi buka kotak dialog "Temukan dan Ganti".
  7. Dan di kotak teks "Find what", pertama ketik "^ p".
  8. Kemudian tekan tombol kosong sekali.
  9. Kemudian ketik “^ p” di kotak teks “Replace with”.
  10. Terakhir klik tombol "Ganti Semua".Ketik "^ p" Pertama -> Tekan Tombol Kosong Setelah di Kotak Teks "Temukan apa" -> Ketik "^ p" di "Ganti dengan" Kotak Teks -> Klik "Ganti Semua"

Hapus Garis Kosong Kiri Jika Diperlukan

Namun, jika masih ada baris kosong, coba langkah-langkah berikut:

  1. Tekan "Ctrl + H" untuk membuka kotak dialog "Temukan dan Ganti".
  2. selanjutnya ketik “^ p ^ p” dalam kotak teks “Find what”.
  3. Dan ketik “^ p” di kotak teks “Replace with”.
  4. Terakhir, klik tombol "Ganti Semua".Ketik "^ p ^ p" di Kotak Teks "Temukan apa" -> Ketik "^ p" di "Ganti dengan" Kotak Teks -> Klik "Ganti Semua"

Sekarang, Anda bisa mendapatkan hasil seperti di bawah ini:Pengaruh Menggunakan Fungsi "Ganti" untuk Menghapus Pemformatan

Kami di sini menyarankan Anda mengambil perintah di atas untuk menghapus format teks sehingga Anda dapat menghapus format secara umum. Dan seperti yang telah kami sebutkan, terkadang Anda harus menghapus jenis pemformatan lain, lalu Anda harus menggunakan fungsi "Temukan dan Ganti" sendiri. Untuk lebih banyak cara untuk menghapus pemformatan, Anda dapat mengunjungi artikel ini: 3 Cara untuk Menghapus Elemen yang Tidak Diinginkan dari Dokumen Word Anda Secara Instan

Anda dapat melihat video berikut untuk melihat demonstrasi:

Berhenti Merekam Makro

  1. Setelah Anda selesai menghapus format teks, klik tab "Pengembang".
  2. Kemudian klik "Berhenti Merekam". Sekarang makro akan disimpan.Klik "Pengembang" -> Klik "Hentikan Merekam"

Bagaimana Menjalankan Makro

  1. Salin teks dengan pemformatan online, misalnya.
  2. Buka Word selanjutnya.
  3. Kemudian klik tab "Pengembang".
  4. Klik ikon makro dan Anda akan melihat teks pada dokumen tanpa format tambahan.Klik "Pengembang" -> Klik Makro Baru DirekamPengaruh Menggunakan Makro untuk Menghapus Pemformatan

Catatan: Untuk pemula, Anda bisa mengambil langkah-langkah di atas untuk membuat dan menjalankan makro. Menjalankan makro akan membantu Anda menyingkirkan pemformatan yang menjengkelkan secara luas, yang sudah cukup.

Kode VBA untuk Pakar

Pertama ada cara untuk melihat kode VBA.

  1. Pertama klik tab "Pengembang".
  2. Kemudian klik "Visual Basic 'di grup" Kode ".Klik "Pengembang" -> Klik "Visual Basic"
  3. Dalam editor "Microsoft Visual Basic for Applications", klik "Normal" di sisi kiri terlebih dahulu.
  4. Kemudian klik "Modul".
  5. Selanjutnya klik ganda "NewMacros" dan Anda akan dapat melihat kode di area sisi kanan.Klik "Normal" -> Klik "Modules" -> Klik Dua Kali "NewMacros"

Dalam hal ini, kodenya adalah sebagai berikut:

 

Sub copytext ()

'

'copytext Macro

'

'

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

        wdInLine, DisplayAsIcon: = False

    Seleksi.Temukan.Hapus Pemformatan

    Seleksi.Temukan.Penggantian.Hapus Format

    Dengan Seleksi. Temukan

        .Text = “Panah”

        .Penggantian.Teks = “”

        . Maju = Benar

        .Bungkus = wdTemukanLanjutkan

        .Format = Salah

        .MatchCase = Salah

        .MatchWholeWord = Salah

        .MatchWildcards = Salah

        .MatchSoundsLike = Salah

        .MatchAllWordForms = Salah

    Berakhir dengan

    Selection.Find.Execute Replace: = wdReplaceAll

    Seleksi.Temukan.Hapus Pemformatan

    Seleksi.Temukan.Penggantian.Hapus Format

    Dengan Seleksi. Temukan

        .Teks = “^ t”

        .Penggantian.Teks = “”

        . Maju = Benar

        .Bungkus = wdTemukanLanjutkan

        .Format = Salah

        .MatchCase = Salah

        .MatchWholeWord = Salah

        .MatchWildcards = Salah

        .MatchSoundsLike = Salah

        .MatchAllWordForms = Salah

    Berakhir dengan

    Selection.Find.Execute Replace: = wdReplaceAll

    Selection.Find.Execute Replace: = wdReplaceAll

    Seleksi.Temukan.Hapus Pemformatan

    Seleksi.Temukan.Penggantian.Hapus Format

    Dengan Seleksi. Temukan

        .Text = ""

        .Penggantian.Teks = “”

        . Maju = Benar

        .Bungkus = wdTemukanLanjutkan

        .Format = Salah

        .MatchCase = Salah

        .MatchWholeWord = Salah

        .MatchWildcards = Salah

        .MatchSoundsLike = Salah

        .MatchAllWordForms = Salah

    Berakhir dengan

    Selection.Find.Execute Replace: = wdReplaceAll

    Seleksi.Temukan.Hapus Pemformatan

    Seleksi.Temukan.Penggantian.Hapus Format

    Dengan Seleksi. Temukan

        .Teks = ”^ p”

        .Replacement.Text = “^ p”

        . Maju = Benar

        .Bungkus = wdTemukanLanjutkan

        .Format = Salah

        .MatchCase = Salah

        .MatchWholeWord = Salah

        .MatchWildcards = Salah

        .MatchSoundsLike = Salah

        .MatchAllWordForms = Salah

    Berakhir dengan

    Selection.Find.Execute Replace: = wdReplaceAll

    Seleksi.Temukan.Hapus Pemformatan

    Seleksi.Temukan.Penggantian.Hapus Format

    Dengan Seleksi. Temukan

        .Teks = “^ p“

        .Replacement.Text = “^ p”

        . Maju = Benar

        .Bungkus = wdTemukanLanjutkan

        .Format = Salah

        .MatchCase = Salah

        .MatchWholeWord = Salah

        .MatchWildcards = Salah

        .MatchSoundsLike = Salah

        .MatchAllWordForms = Salah

    Berakhir dengan

    Selection.Find.Execute Replace: = wdReplaceAll

    Seleksi.Temukan.Hapus Pemformatan

    Seleksi.Temukan.Penggantian.Hapus Format

    Dengan Seleksi. Temukan

        .Teks = “^ p ^ p”

        .Replacement.Text = “^ p”

        . Maju = Benar

        .Bungkus = wdTemukanLanjutkan

        .Format = Salah

        .MatchCase = Salah

        .MatchWholeWord = Salah

        .MatchWildcards = Salah

        .MatchSoundsLike = Salah

        .MatchAllWordForms = Salah

    Berakhir dengan

    Selection.Find.Execute Replace: = wdReplaceAll

    Seleksi.Temukan.Hapus Pemformatan

    Seleksi.Temukan.Penggantian.Hapus Format

    Dengan Seleksi. Temukan

        .Teks = “^ p ^ p”

        .Replacement.Text = “^ p”

        . Maju = Benar

        .Bungkus = wdTemukanLanjutkan

        .Format = Salah

        .MatchCase = Salah

        .MatchWholeWord = Salah

        .MatchWildcards = Salah

        .MatchSoundsLike = Salah

        .MatchAllWordForms = Salah

    Berakhir dengan

    Selection.Find.Execute Replace: = wdReplaceAll

End Sub

 

Berbicara tentang para ahli dan pengguna tingkat lanjut yang akrab dengan VBA, Anda dapat sepenuhnya menyesuaikan kode untuk memenuhi kebutuhan Anda, yang akan lebih nyaman dan tepat.

Amankan File Anda

Pengguna Word di seluruh dunia cenderung memanfaatkannya sebaik mungkin. Ini adalah ide yang bagus dan juga berbahaya, karena meningkatkan risiko runtuhnya Word dengan operasi yang salah. Oleh karena itu, Anda harus selalu mencari cara untuk mengamankan file Anda. Di antara opsi yang tersedia, mendapatkan file perbaikan doc alat sebelumnya terdengar tidak buruk.

Pengantar Penulis:

Vera Chen adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk unggul dalam pemulihan ke pdf memperbaiki produk perangkat lunak. Untuk informasi lebih lanjut kunjungi www.datanumen.com

Bagikan sekarang:

Komentar ditutup.