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 = ""
 
  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” зберігайте лише ті рядки, які вам потрібні, щоб видалити дужки, які є у вашому документі, і видаліть усі непотрібні рядки коду.

Якщо ви хочете позбутися лише дужок, вам потрібно трохи змінити коди. Скажімо, у вашому документі є квадратні дужки. Потім перейдіть до рядка “Call DeleteDelimiters (Selection.Find,“ [“,“] ”, True)” і змініть параметр “Правда"Кому"Помилковий".

  1. Нарешті, натисніть «Виконати».Вставити коди-> Натиснути "Виконати"

Вирішити проблеми зі словами

Чесно кажучи, Word насправді здатний виконувати багато завдань. І все-таки це не бездоганно. Коли виникає проблема, результат може бути руйнівним. Тому ми ніколи не можемо пропустити будь-які дрібні проблеми в Word, оскільки це може привести вас до мертвого Word за допомогою корумпований docx файлів. Найкраще рішення - отримати вдосконалений інструмент відновлення для відновлення документів Word.

Вступ автора:

Віра Чень є експертом з відновлення даних у DataNumen, Inc., яка є світовим лідером у галузі технологій відновлення даних, в тому числі ремонт xlsx та pdf ремонт програмних продуктів. Для отримання додаткової інформації відвідайте WWW.datanumen.com

Поділитися зараз:

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