2 Kaedah untuk Menghapus Kurungan dan Ruang Dalam dalam Dokumen Word Anda

Kongsi Sekarang:

Dalam artikel ini di bawah ini, kami akan menawarkan kepada anda 2 cara untuk memasang kurungan penghapus dan ruang dalam dalam dokumen Word anda. 

Sesekali, orang suka menggunakan tanda kurung untuk menandakan kata-kata daripada semua jenis tujuan. Namun, setelah beberapa lama, anda mungkin memutuskan untuk menghapus semua tanda kurung tetapi hanya untuk mengetahui terdapat banyak dari mereka, menyebarkan dokumen anda. Sejujurnya, ia memerlukan masa selama-lamanya untuk menghapusnya satu persatu. Lebih-lebih lagi, dari beberapa keperluan khas, anda mungkin juga harus membuang semua ruang antara sepasang tanda kurung.Batch Delete Bracket dan Inside Spaces dalam Word Word Anda

Inilah sebabnya mengapa anda perlu membaca artikel ini untuk melengkapkan diri dengan penyelesaian yang lebih praktikal.

Kaedah 1: Gunakan Wildcard dalam Perintah "Advanced Find"

  1. Pertama sekali, klik tab "Rumah" dan klik butang lungsur pada perintah "Cari".
  2. Seterusnya pilih "Advanced Find" pada menu drop-down untuk membuka kotak dialog "Cari dan Ganti".Klik "Laman Utama" -> Klik Tombol Anak Panah pada Butang "Cari "-> Pilih" Cari Lanjutan "
  3. Sebagai contoh, jika anda ingin mencari semua tanda kurung persegi, masukkan "\ [* \]"(Tanpa tanda petik) dalam kotak teks" Cari apa ".
  4. Selanjutnya klik butang "Lagi" untuk mengeluarkan lebih banyak pilihan.
  5. Tandakan kotak "Gunakan wildcard".
  6. Kemudian klik tab "Cari Dalam" dan pilih "Dokumen Utama". Anda akan melihat semua tanda kurung persegi dan teks terlampir ada dalam pilihan, seperti di bawah:Masukkan Rentetan di Kotak Teks "Cari apa" -> Centang "Gunakan wildcard" -> Butang "Cari Di "-> Pilih" Dokumen Utama "
  7. Sekarang kosongkan kotak teks "Cari apa" dan masukkan "[[\]]”(Tanpa tanda petik).
  8. Klik "Cari Dalam" dan kali ini pilih "Pemilihan Semasa". Anda akan mendapati semua tanda kurung persegi dan semua ruang di dalamnya dipilih seperti berikut:Masukkan Rentetan di Kotak Teks "Cari apa "-> Klik Butang" Cari Di "-> Pilih "Pemilihan Semasa"
  9. Tekan "Padam" untuk menghilangkan tanda kurung persegi dan semua ruang di dalamnya.
  10. Namun, jika anda ingin mengekalkan ruang, ganti tali pada langkah 7 dengan “[[\]]".Kesan Memilih Kurungan Persegi Sahaja

Terdapat beberapa jenis pembatas yang biasa digunakan di meja bawah, bersama dengan tali untuk menemukannya atau ruang dalam.

Kurungan Rentetan untuk Mencari Kurungan dan Semua Teks yang Terlampir Rentetan untuk Mencari Kurungan dan Semua Ruang Di dalamnya Rentetan untuk Mencari Kurungan Sahaja
Dalam kurungan

[]

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

()

\ (* \) [(\)] [(\)]
Pendakap (Kurung Keriting)

{}

\ {* \} [{\}] [{\}]
Kurungan Sudut

<>

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

Kaedah 2: Jalankan Kod VBA

  1. Pertama, tekan "Alt + F11" untuk membuka editor VBA.
  2. Seterusnya klik "Normal" dan kemudian "Insert" tab.
  3. Pilih "Modul".Klik "Normal" -> Klik "Insert" -> Klik "Module"
  4. Kemudian klik dua kali untuk membukanya.
  5. Dan tampal kod 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, dalam makro "DeleteBracketsAndSpace", simpan garis yang anda perlukan untuk menghapus kurungan yang anda ada dalam dokumen anda dan hapus semua baris kod yang tidak diperlukan.

Sekiranya anda ingin menghilangkan tanda kurung sahaja, anda perlu sedikit mengubah kodnya. Katakan terdapat tanda kurung dalam dokumen anda. Kemudian pergi ke baris "Call DeleteDelimiters (Selection.Cari," [","] ", True)", dan ubah "Benar"Kepada"Palsu".

  1. Akhirnya, klik "Jalankan".Tampal Kod-> Klik "Jalankan"

Selesaikan Masalah Perkataan

Sejujurnya, Word benar-benar mampu melakukan banyak tugas. Namun, ia tidak sempurna. Apabila ada masalah yang terjadi, hasilnya dapat menghancurkan. Oleh itu, kita tidak boleh mengabaikan masalah kecil apa pun di Word, kerana ia boleh membawa anda ke Word yang mati docx rosak fail. Penyelesaian terbaik adalah dengan mendapatkan alat pembaikan yang canggih untuk memulihkan dokumen Word anda.

Pengenalan Pengarang:

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

Kongsi Sekarang:

Ruangan komen telah ditutup.