批量刪除Word文檔中的括號和內部空間的2種方法

立即分享:

在下面的文章中,我們將為您提供2種方法來批量刪除Word文檔中的括號和內部空格。 

人們不時地喜歡使用方括號來標記出於各種目的的單詞。 但是,過了一會兒,您可能決定刪除所有括號,但只是發現其中有很多括號分散在文檔中。 老實說,一勞永逸地刪除它們。 此外,出於某些特殊需要,您可能還必須刪除一對方括號之間的所有空格。在Word文檔中批量刪除括號和內部空間

這就是為什麼您需要閱讀本文以為自己配備更實際的解決方案的原因。

方法1:在“高級查找”命令中使用通配符

  1. 首先,單擊“主頁”選項卡,然後單擊“查找”命令上的下拉按鈕。
  2. 接下來,在下拉菜單上選擇“高級查找”以打開“查找和替換”對話框。單擊“主頁”->單擊“查找”按鈕上的箭頭按鈕->選擇“高級查找”
  3. 例如,如果要查找所有方括號,請輸入“\ [* \]“查找內容”文本框中的“(不帶引號)。
  4. 接下來單擊“更多”按鈕以帶出更多選項。
  5. 選中“使用通配符”框。
  6. 然後單擊“查找”選項卡,然後選擇“主文檔”。 您將看到所有方括號,並且隨附的文本處於選中狀態,例如波紋管:在“查找內容”文本框中輸入字符串->選中“使用通配符”,然後單擊框->單擊“查找”按鈕->選擇“主文檔”
  7. 現在清除“查找內容”文本框,然後輸入“[[\]]”(不帶引號)。
  8. 單擊“查找”,這次選擇“當前選擇”。 您會發現所有方括號,並且其中的所有空格都處於選中狀態,如下所示:在“查找內容”文本框中輸入字符串->單擊“查找”按鈕->選擇“當前選擇”
  9. 按“刪除”刪除方括號和其中的所有空格。
  10. 但是,如果要保留空格,只需將第7步中的字符串替換為“[[\]]“。僅選擇方括號的效果

下表中包含幾種常用的定界符,以及用於查找它們或內部空間的字符串。

括號 查找括號和所有封閉文本的字符串 查找括號和內部所有空格的字符串 僅用於查找括號的字符串
方括號

[]

\ [* \] [[\]] [[\]]
括弧

()

\(* \) [(\)] [(\)]
大括號(彎括號)

{}

\ {* \} [{\}] [{\}]
尖括號

<>

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

方法2:運行VBA代碼

  1. 首先,按“ Alt + F11”打開VBA編輯器。
  2. 接下來,單擊“普通”,然後單擊“插入”選項卡。
  3. 選擇“模塊”。單擊“常規”->單擊“插入”->單擊“模塊”
  4. 然後雙擊打開它。
  5. 並在其中粘貼以下代碼:
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. 現在,在宏“ DeleteBracketsAndSpace”中,僅保留您需要刪除文檔中具有的括號並刪除所有不需要的代碼行的行。

如果只想刪除方括號,則需要稍微更改一下代碼。 假設您的文檔中有方括號。 然後轉到“調用DeleteDelimiters(Selection.Find,“ [”,“]”,True)“行,然後更改““要”“。

  1. 最後,單擊“運行”。粘貼代碼->單擊“運行”

解決單詞問題

老實說,Word確實能夠執行許多任務。 但是,它並不是完美無缺的。 當發生問題時,結果可能是災難性的。 因此,我們決不能忽略Word中的任何小問題,因為它可能導致您死於Word 損壞的docx 文件。 最好的解決方案是獲得高級修復工具來恢復您的Word文檔。

作者簡介:

陳薇薇(Vera Chen)是 DataNumen,Inc.是數據恢復技術的全球領導者,包括 xlsx維修 以及 pdf 維修軟件產品。 欲了解更多信息,請訪問 萬維網。datanumen.COM

立即分享:

評論被關閉。