Video: Coding SIMPAN EDIT HAPUS dan VALIDASI di UserForm VBA Excel 2024
Sebelum menyimpan akhir itu, atau sewaktu Anda mengerjakan dokumen besar di Word 2016, pertimbangkan untuk melakukan beberapa pembersihan dokumen. Ini adalah proses yang melibatkan pencarian karakter nakal dan teks bermasalah lainnya.
Rutin pembersihan dokumen melibatkan pencarian spasi tambahan di akhir paragraf, ruang ganda, tab ganda, dan ganda Masukkan kunci (paragraf kosong). Ini semua adalah barang yang harus dihindari, tapi tetap ada dokumen lama.
Proses menghilangkan elemen yang tidak diinginkan ini melibatkan penggunaan kotak dialog Find and Replace. Anda perlu menggunakan tombol Special untuk memasukkan karakter khusus, seperti Space, Tab, dan Enter.
Makro yang dibuat untuk melakukan pekerjaan pembersihan dokumen mencatat penekanan tombol yang digunakan untuk mencari dan mengganti untuk berbagai karakter. Kemudian Editor Visual Basic digunakan untuk menghapus beberapa kode yang berlebihan. Inilah hasilnya:
Sub document_cleanup ()
'
' document_cleanup Makro
'Hapus spasi dan spasi ganda, tab, dan tombol Enter
'
Seleksi. HomeKey Unit: = wdStory
Seleksi. Menemukan. ClearFormatting
Seleksi. Menemukan. Penggantian. ClearFormatting
'Hapus spasi tambahan dari paragraf
Dengan Seleksi. Temukan
. Teks = "^ w ^ v"
. Penggantian. Teks = "^ v"
. Teruskan = Benar
Selesai Dengan
Seleksi. Menemukan. Execute Replace: = wdReplaceAll
'Hapus spasi ganda
Dengan Seleksi. Temukan >>. Teks = ""
. Penggantian. Text = ""
Selesai Dengan
Seleksi. Menemukan. Execute Replace: = wdReplaceAll
'Hapus tab ganda
Dengan Seleksi. Temukan
. Teks = "^ t ^ t"
. Penggantian. Text = "^ t"
Selesai Dengan
Seleksi. Menemukan. Execute Replace: = wdReplaceAll
'Hapus ganda Masukkan kunci (paragraf kosong)
Dengan Seleksi. Temukan
. Teks = "^ v ^ v"
. Penggantian. Text = "^ v"
Selesai Dengan
Seleksi. Menemukan. Execute Replace: = wdReplaceAll
End Sub
Operasi pencarian dan ganti pertama menghapus spasi tambahan. Teks pencarian adalah ^ w ^ v, yang mencari karakter spasi putih (^ w) sebelum tombol Enter (^ v). Karakter spasi ini - spasi, tab, dan sebagainya - diganti dengan tombol Enter, yang akan menghapus spasi tambahan.
Pencarian dan ganti kedua menghapus spasi ganda. tekan spacebar dua kali untuk teks pencarian dan tekan spasi satu waktu untuk teks pengganti.
Pencarian ketiga dan ganti menghapus tab ganda. Huruf t mewakili karakter tab di kotak dialog Find and Replace.
Pencarian akhir dan ganti menghapus paragraf kosong. Karakter ^ v mewakili tombol Enter, jadi mengganti ^ v ^ v dengan ^ v menghapus paragraf kosong apapun.
Makro ini bekerja baik-baik saja, tapi bisa lebih baik. Misalnya, tidak menangani tiga ruang atau tiga tab. Anda harus menjalankan makro untuk kedua kalinya. Jika Anda menyediakan bakat pemrograman, kode makro bisa mengatasi masalah tersebut.