2 способа пакетного удаления скобок и внутренних пробелов в документе Word

Поделись сейчас:

В этой статье ниже мы предложим вам 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 = " " Пока 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 ' Удалить все квадратные скобки и пробелы в них. Call DeleteDelimiters(Selection.Find, "[", "]", True) ' Удалить все скобки и пробелы в них. Вызов DeleteDelimiters(Selection.Find, "(", ")", True) ' Удалить все фигурные скобки и пробел в них. Вызов DeleteDelimiters(Selection.Find, "{", "}", True) ' Удалить все угловые скобки и пробел в них. Вызов DeleteDelimiters(Selection.Find, "<", ">", Ture) Application.ScreenUpdating = True End Sub
  1. Теперь в макросе «DeleteBracketsAndSpace» оставьте только те строки, которые вам нужны, чтобы удалить скобки, которые есть в вашем документе, и удалить все ненужные строки кода.

Если вы хотите избавиться только от скобок, вам нужно немного изменить коды. Допустим, в вашем документе есть квадратные скобки. Затем перейдите к строке «Call DeleteDelimiters(Selection.Find, «[», «]», True)» и измените «Правда"К"Ложь».

  1. Наконец, нажмите «Выполнить».Вставьте коды-> Нажмите «Выполнить».

Решить проблемы со словами

Честно говоря, Word действительно способен выполнять множество задач. Тем не менее, он не безупречен в конце концов. Когда возникает проблема, результат может быть разрушительным. Поэтому мы никогда не можем упускать из виду любые мелкие проблемы в Word, так как это может привести вас к мертвому Word с поврежденный документ файлы. Лучшее решение — получить расширенный инструмент для восстановления документов Word.

Об авторе:

Вера Чен — эксперт по восстановлению данных в DataNumen, Inc., которая является мировым лидером в области технологий восстановления данных, включая xlsx ремонт и pdf ремонт программных продуктов. Для получения дополнительной информации посетите www.datanumen.com

Поделись сейчас:

Комментарии закрыты.