2 Cara Batch Delete Brackets dan Inside Spaces di Word Document Anda

Bagikan sekarang:

Pada artikel di bawah ini, kami akan menawarkan 2 cara untuk menghapus tanda kurung dan spasi di dalam dokumen Word Anda. 

Kadang-kadang, orang suka menggunakan tanda kurung untuk menandai kata-kata dari semua jenis tujuan. Namun, setelah beberapa saat, Anda mungkin memutuskan untuk menghapus semua tanda kurung tetapi hanya untuk menemukan ada begitu banyak tanda kurung, tersebar di sekitar dokumen Anda. Sejujurnya, perlu waktu lama untuk menghapusnya satu per satu. Terlebih lagi, karena beberapa kebutuhan khusus, Anda mungkin juga harus menghapus semua spasi di antara sepasang tanda kurung.Batch Hapus Kurung dan Spasi Di Dalam Dokumen Word Anda

Inilah sebabnya mengapa Anda perlu membaca artikel ini untuk melengkapi diri Anda dengan solusi yang lebih praktis.

Metode 1: Gunakan Wildcard di Perintah "Penemuan Lanjutan"

  1. Pertama-tama, klik tab "Beranda" dan klik tombol tarik-turun pada perintah "Temukan".
  2. Selanjutnya pilih “Advanced Find” pada menu drop-down untuk membuka kotak dialog “Find and Replace”.Klik "Beranda"->Klik Tombol Panah pada Tombol "Temukan"->Pilih "Penemuan Lanjutan"
  3. Misalnya, jika Anda ingin menemukan semua tanda kurung siku, masukkan “\ [* \]”(tanpa tanda kutip) di kotak teks “Temukan apa”.
  4. Selanjutnya klik tombol "Lainnya" untuk memunculkan lebih banyak opsi.
  5. Centang kotak "Gunakan wildcard".
  6. Kemudian klik tab "Temukan Di" dan pilih "Dokumen Utama". Anda akan melihat semua tanda kurung siku dan teks terlampir sedang dipilih, seperti di bawah ini:Masukkan String di Kotak Teks "Temukan apa"-> Centang Kotak "Gunakan wildcard"-> Klik Tombol "Temukan"-> Pilih "Dokumen Utama"
  7. Sekarang kosongkan kotak teks "Temukan apa" dan masukkan "[[\] ]”(tanpa tanda petik).
  8. Klik "Temukan Di" dan kali ini pilih "Pilihan Saat Ini". Anda akan menemukan semua tanda kurung siku dan semua spasi di dalamnya dipilih sebagai berikut:Masukkan String di Kotak Teks "Temukan apa"->Klik Tombol "Temukan"->Pilih "Pilihan Saat Ini"
  9. Tekan "Hapus" untuk menghilangkan tanda kurung siku dan semua spasi di dalamnya.
  10. Namun, jika Anda ingin menyimpan spasi, ganti saja string di langkah 7 dengan “[[\]]".Efek Memilih Kurung Kotak Saja

Ada beberapa jenis pembatas yang umum digunakan dalam tabel di bawah ini, bersama dengan string untuk menemukannya atau ruang di dalam.

Kurung String untuk Menemukan Tanda Kurung dan Semua Teks Tertutup String untuk Menemukan Kurung dan Semua Spasi Di Dalam String untuk Menemukan Kurung Saja
Tanda Kurung Persegi

[]

\ [* \] [[\] ] [[\]]
Tanda kurung

()

\ (* \) [(\) ] [(\)]
Kawat Gigi (Kurung Keriting)

{}

\ {* \} [{\} ] [{\}]
Kurung Sudut

<>

\ <* \> [<\> ] [<\>]

Metode 2: Jalankan Kode VBA

  1. Pertama, tekan "Alt + F11" untuk membuka editor VBA.
  2. Selanjutnya klik "Normal" dan kemudian tab "Sisipkan".
  3. Pilih "Modul".Klik "Normal" -> Klik "Sisipkan" -> Klik "Modul"
  4. Kemudian klik dua kali untuk membukanya.
  5. Dan tempel kode berikut di sana:
Sub DeleteDelimiters(objFind As Find, strLeftDelimiter As String, strRightDelimiter As String, bDeleteSpace As Boolean)
  Dim strFind1 As String
  Dim strFind2 As String
 
  strFind1 = "\" & strLeftDelimiter & "*\" & strRightDelimiter
  If (bDeleteSpace) Then
    strFind2 = "[" & strLeftDelimiter & "\" & strRightDelimiter & " ]"
  Else
    strFind2 = "[" & strLeftDelimiter & "\" & strRightDelimiter & "]"
  End If
 
  Selection.HomeKey Unit:=wdStory
  objFind.ClearFormatting
  objFind.Replacement.Text = ""
 
  While objFind.Execute(FindText:=strFind1, MatchWildcards:=True)
    objFind.Execute FindText:=strFind2, MatchWildcards:=True, _
      ReplaceWith:="", Replace:=wdReplaceAll, Wrap:=wdFindStop
  Wend

End Sub


Sub DeleteBracketsAndSpace()
  Application.ScreenUpdating = False
 
  '  Delet all square brackets and the space in it.
  Call DeleteDelimiters(Selection.Find, "[", "]", True)
 
  '  Delet all parenthesis and the space in it.
  Call DeleteDelimiters(Selection.Find, "(", ")", True)
 
  '  Delet all braces and the space in it.
  Call DeleteDelimiters(Selection.Find, "{", "}", True)
 
  '  Delet all angle brackets and the space in it.
  Call DeleteDelimiters(Selection.Find, "<", ">", Ture)
 
  Application.ScreenUpdating = True
End Sub
  1. Sekarang, di makro "DeleteBracketsAndSpace", simpan hanya baris yang Anda butuhkan untuk menghapus tanda kurung yang Anda miliki di dokumen Anda dan hapus semua baris kode yang tidak dibutuhkan.

Jika Anda ingin menghilangkan tanda kurung saja, Anda perlu mengubah kodenya sedikit. Katakanlah ada tanda kurung siku di dokumen Anda. Lalu masuk ke baris "Call DeleteDelimiters(Selection.Find, "[", "]", True)", dan ubah "Benar"To"Salah".

  1. Terakhir, klik "Jalankan".Tempel Kode-> Klik "Jalankan"

Memecahkan Masalah Kata

Sejujurnya, Word benar-benar mampu melakukan banyak tugas. Namun, itu tidak sempurna. Ketika ada masalah yang terjadi, hasilnya bisa sangat menghancurkan. Oleh karena itu, kami tidak pernah bisa mengabaikan masalah kecil apa pun di Word, karena itu dapat membawa Anda ke Word yang mati dengan docx yang rusak file. Solusi terbaik adalah mendapatkan alat perbaikan canggih untuk memulihkan dokumen Word Anda.

Pengantar Penulis:

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

Bagikan sekarang:

Komentar ditutup.