2 způsoby hromadného odstranění závorek a vnitřních mezer v dokumentu aplikace Word

V tomto článku níže vám nabídneme 2 způsoby hromadného odstranění závorek a vnitřních mezer v dokumentu aplikace Word. 

Občas lidé rádi používají závorky k označení slov ze všech druhů účelů. Po chvíli se však můžete rozhodnout odstranit všechny závorky, ale zjistíte, že jich je po vašem dokumentu tolik. Upřímně řečeno, může trvat věčnost, než je jeden po druhém smažete. A co víc, z nějaké zvláštní potřeby budete možná muset odstranit také všechny mezery mezi párem závorek.

To je důvod, proč si budete muset přečíst tento článek, abyste se vybavili praktičtějšími řešeními.

Metoda 1: Použijte zástupné znaky v příkazu „Rozšířené hledání“.

1. Nejprve klikněte na kartu „Domů“ a klikněte na rozbalovací tlačítko u příkazu „Najít“.
2. Poté v rozevírací nabídce vyberte „Pokročilé hledání“ a otevřete dialogové okno „Najít a nahradit“.
3. Pokud například chcete najít všechny hranaté závorky, zadejte „\ [* \]“(bez uvozovek) v textovém poli „Najít“.
4. Dále klikněte na tlačítko „Více“ a zobrazí se další možnosti.
5. Zaškrtněte políčko „Použít zástupné znaky“.
6. Poté klikněte na kartu „Najít v“ a vyberte „Hlavní dokument“. Uvidíte všechny hranaté závorky a přiložené texty jsou ve výběru, například níže:
7. Nyní vymažte textové pole „Najít co“ a zadejte „[[\] ]“ (bez uvozovek).
8. Klikněte na „Najít v“ a tentokrát vyberte „Aktuální výběr“. Všechny hranaté závorky a všechny mezery uvnitř jsou ve výběru následovně:
9. Stisknutím tlačítka „Smazat“ se zbavíte hranatých závorek a všech mezer uvnitř.
10. Pokud však chcete zachovat mezery, stačí nahradit řetězce v kroku 7 za „[[\]]".

V následující tabulce je několik druhů běžně používaných oddělovačů spolu s řetězci k jejich vyhledání nebo vnitřních mezer.

Metoda 2: Spuštění kódů VBA

1. Nejprve stisknutím kombinace kláves „Alt + F11“ otevřete editor VBA.
2. Dále klikněte na „Normální“ a poté na kartu „Vložit“.
3. Vyberte „Modul“.
4. Poté jej otevřete dvojitým kliknutím.
5. A vložte tam následující kódy:

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

6. Nyní v makru „DeleteBracketsAndSpace“ ponechte pouze řádky, které potřebujete, abyste odstranili závorky, které máte v dokumentu, a odstraňte všechny nepotřebné řádky kódu.

Pokud se chcete zbavit pouze závorek, musíte kódy trochu pozměnit. Řekněme, že váš dokument obsahuje hranaté závorky. Poté přejděte na řádek „Call DeleteDelimiters(Selection.Find, „[“, „]“, True)“ a změňte „Pravdivý"To"Falešný".

7. Nakonec klikněte na „Spustit“.

Vyřešte problémy se slovem

Abych byl upřímný, Word umí opravdu spoustu úkolů. Přesto to nakonec není bezchybné. Když se vyskytne problém, výsledek může být zničující. Proto nikdy nemůžeme přehlédnout jakékoli malé problémy ve Wordu, protože vás to může vést k mrtvému ​​Wordu poškozený docx soubory. Nejlepším řešením je získat pokročilý nástroj pro opravu, který obnoví vaše dokumenty aplikace Word.

Úvod autora:

Vera Chen je expertka na obnovu dat DataNumen, Inc., která je světovým lídrem v oblasti technologií pro obnovu dat, včetně xlsx oprava a pdf opravy softwarových produktů. Pro více informací navštivte www.datanumen.com