В тази статия по-долу ще ви предложим 2 начина за групово изтриване на скоби и вътрешните интервали във вашия Word документ.
От време на време хората обичат да използват скоби, за да маркират думи за всякакви цели. И все пак след известно време може да решите да премахнете всички скоби, но само за да откриете, че има толкова много от тях, разпръснати из вашия документ. Честно казано, изтриването им един по един може да отнеме цяла вечност. Нещо повече, поради някаква специална нужда може да се наложи да премахнете и всички интервали между чифт скоби.
Ето защо ще трябва да прочетете тази статия, за да се снабдите с по-практични решения.
Метод 1: Използвайте заместващи символи в командата „Разширено търсене“.
- Първо щракнете върху раздела „Начало“ и щракнете върху падащия бутон върху командата „Намиране“.
- След това изберете „Разширено търсене“ от падащото меню, за да отворите диалоговия прозорец „Намиране и замяна“.
- Например, ако искате да намерите всички квадратни скоби, въведете „\ [* \]”(без кавички) в текстовото поле „Намерете какво“.
- След това щракнете върху бутона „Още“, за да изведете повече опции.
- Поставете отметка в квадратчето „Използване на заместващи знаци“.
- След това щракнете върху раздела „Намиране в“ и изберете „Основен документ“. Ще видите всички квадратни скоби и приложените текстове са в селекцията, като например по-долу:
- Сега изчистете текстовото поле „Намери какво“ и въведете „[[\] ]” (без кавички).
- Щракнете върху „Намиране в“ и този път изберете „Текуща селекция“. Ще намерите всички квадратни скоби и всички интервали вътре в селекцията, както следва:
- Натиснете „Изтриване“, за да се отървете от квадратните скоби и всички интервали вътре.
- Ако обаче искате да запазите интервали, просто заменете низовете в стъпка 7 с „[[\]]".
Има няколко вида често използвани разделители в горната таблица, заедно с низовете за намирането им или вътрешните пространства.
| Скоби | Струни за намиране на скоби и всички затворени текстове | Низове за намиране на скоби и всички интервали вътре | Низове за намиране само на скоби |
| Квадратни скоби
[] |
\ [* \] | [[\] ] | [[\]] |
| Скоби
() |
\ (* \) | [(\) ] | [(\)] |
| Скоби (къдрави скоби)
{} |
\ {* \} | [{\} ] | [{\}] |
| Ъглови скоби
<> |
\ <* \> | [<\> ] | [<\>] |
Метод 2: Изпълнете VBA кодове
- Първо, натиснете „Alt + F11“, за да отворите редактора на VBA.
- След това щракнете върху „Нормално“ и след това върху раздела „Вмъкване“.
- Изберете „Модул“.
- След това кликнете два пъти, за да го отворите.
- И поставете следните кодове там:
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
- Сега, в макроса „DeleteBracketsAndSpace“, запазете само редовете, от които се нуждаете, за да изтриете скобите, които имате във вашия документ, и премахнете всички ненужни кодови редове.
Ако искате да се отървете само от скобите, трябва да промените малко кодовете. Да приемем, че във вашия документ има квадратни скоби. След това отидете на ред „Call DeleteDelimiters(Selection.Find, „[“, „]“, True)“ и променете „Вярно"Да"Фалшив".
- Накрая щракнете върху „Run“.
Решете проблеми с думите
Честно казано, Word наистина се справя с много задачи. И все пак, в крайна сметка не е безупречно. Когато възникне проблем, резултатът може да бъде опустошителен. Следователно, ние никога не можем да пренебрегнем каквито и дребни проблеми в Word, тъй като това може да ви доведе до мъртъв Word с корумпиран docx файлове. Най-доброто решение е да получите усъвършенстван инструмент за поправка, за да възстановите вашите Word документи.
Въведение на автора:
Вера Чен е експерт по възстановяване на данни в DataNumen, Inc., която е световен лидер в технологиите за възстановяване на данни, включително xlsx ремонт и pdf ремонт на софтуерни продукти. За повече информация посетете WWW.datanumen.com






