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. Накрая щракнете върху „Run“.Поставяне на кодове-> Щракнете върху "Изпълни"

Решете проблеми с думите

Честно казано, Word наистина се справя с много задачи. И все пак, в крайна сметка не е безупречно. Когато възникне проблем, резултатът може да бъде опустошителен. Следователно, ние никога не можем да пренебрегнем каквито и дребни проблеми в Word, тъй като това може да ви доведе до мъртъв Word с корумпиран docx файлове. Най-доброто решение е да получите усъвършенстван инструмент за поправка, за да възстановите вашите Word документи.

Въведение на автора:

Вера Чен е експерт по възстановяване на данни в DataNumen, Inc., която е световен лидер в технологиите за възстановяване на данни, включително xlsx ремонт и pdf ремонт на софтуерни продукти. За повече информация посетете WWW.datanumen.com

Споделете сега:

Коментарите са забранени.