2 sposoby grupowego usuwania nawiasów i spacji wewnętrznych w dokumencie programu Word

Podziel się teraz:

W poniższym artykule zaproponujemy 2 sposoby grupowego usuwania nawiasów i spacji wewnętrznych w dokumencie programu Word. 

Od czasu do czasu ludzie lubią używać nawiasów, aby zaznaczyć słowa z różnych celów. Jednak po pewnym czasie możesz zdecydować się usunąć wszystkie nawiasy, ale tylko po to, by odkryć, że jest ich tak wiele, rozrzuconych po całym dokumencie. Szczerze mówiąc, usuwanie ich jeden po drugim może zająć wieczność. Co więcej, z jakiejś szczególnej potrzeby może być konieczne usunięcie wszystkich odstępów między parą nawiasów.Grupowe usuwanie nawiasów i spacji wewnętrznych w dokumencie programu Word

Dlatego musisz przeczytać ten artykuł, aby zaopatrzyć się w bardziej praktyczne rozwiązania.

Metoda 1: Użyj symboli wieloznacznych w poleceniu „Wyszukiwanie zaawansowane”.

  1. Przede wszystkim kliknij kartę „Strona główna” i kliknij przycisk rozwijany przy poleceniu „Znajdź”.
  2. Następnie wybierz „Wyszukiwanie zaawansowane” z menu rozwijanego, aby otworzyć okno dialogowe „Znajdź i zamień”.Kliknij „Strona główna” -> kliknij przycisk strzałki na przycisku „Znajdź” -> wybierz „Wyszukiwanie zaawansowane”
  3. Na przykład, jeśli chcesz znaleźć wszystkie nawiasy kwadratowe, wpisz „\ [* \]”(bez cudzysłowów) w polu tekstowym „Znajdź co”.
  4. Następnie kliknij przycisk „Więcej”, aby wyświetlić więcej opcji.
  5. Zaznacz pole „Użyj symboli wieloznacznych”.
  6. Następnie kliknij zakładkę „Znajdź w” i wybierz „Dokument główny”. Zobaczysz wszystkie nawiasy kwadratowe i zaznaczony tekst, na przykład poniżej:Wprowadź ciągi znaków w polu tekstowym „Znajdź co” -> zaznacz pole „Użyj symboli wieloznacznych” -> kliknij przycisk „Znajdź w” -> wybierz „Dokument główny”
  7. Teraz wyczyść pole tekstowe „Znajdź co” i wpisz „[[\]]”(bez cudzysłowów).
  8. Kliknij „Znajdź w” i tym razem wybierz „Aktualny wybór”. Znajdziesz wszystkie nawiasy kwadratowe i wszystkie spacje w środku są zaznaczone w następujący sposób:Wprowadź ciągi znaków w polu tekstowym „Znajdź co” -> kliknij przycisk „Znajdź w” -> wybierz „Bieżący wybór”
  9. Naciśnij „Usuń”, aby pozbyć się nawiasów kwadratowych i wszystkich spacji w środku.
  10. Jeśli jednak chcesz zachować spacje, po prostu zamień łańcuchy w kroku 7 na „[[\]]".Efekt zaznaczenia tylko nawiasów kwadratowych

W ryczącej tabeli znajduje się kilka rodzajów powszechnie używanych ograniczników, wraz z ciągami znaków służącymi do ich znalezienia lub spacji wewnętrznych.

Wsporniki Ciągi znaków do znalezienia nawiasów i wszystkich załączonych tekstów Ciągi do znajdowania nawiasów i wszystkich spacji w środku Ciągi do znajdowania tylko nawiasów
Nawiasy kwadratowe

[]

\ [* \] [[\]] [[\]]
Zdanie wtrącone

()

\ (* \) [(\)] [(\)]
Szelki (nawiasy kręcone)

{}

\ {* \} [{\}] [{\}]
Wsporniki kątowe

<>

\ <* \> [<\>] [<\>]

Metoda 2: Uruchom kody VBA

  1. Najpierw naciśnij „Alt + F11”, aby otworzyć edytor VBA.
  2. Następnie kliknij „Normalny”, a następnie zakładkę „Wstaw”.
  3. Wybierz „Moduł”.Kliknij „Normalne” -> Kliknij „Wstaw” -> Kliknij „Moduł”
  4. Następnie kliknij dwukrotnie, aby go otworzyć.
  5. I wklej tam następujące kody:
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. Teraz w makrze „DeleteBracketsAndSpace” zachowaj tylko linie potrzebne do usunięcia nawiasów w dokumencie i usuń wszystkie niepotrzebne linie kodu.

Jeśli chcesz pozbyć się tylko nawiasów, musisz trochę zmienić kody. Załóżmy, że w twoim dokumencie są nawiasy kwadratowe. Następnie przejdź do wiersza „Call DeleteDelimiters(Selection.Find,„[„,„]”, True)” i zmień „Prawdziwy"Do"Fałszywy".

  1. Na koniec kliknij „Uruchom”.Wklej kody-> Kliknij „Uruchom”

Rozwiąż problemy z Wordem

Szczerze mówiąc, Word jest naprawdę zdolny do wielu zadań. Mimo wszystko nie jest bezbłędny. Kiedy pojawia się problem, wynik może być druzgocący. Dlatego nigdy nie możemy przeoczyć drobnych problemów w programie Word, ponieważ może to doprowadzić do martwego słowa uszkodzony docx akta. Najlepszym rozwiązaniem jest uzyskanie zaawansowanego narzędzia do naprawy w celu odzyskania dokumentów programu Word.

Wprowadzenie autora:

Vera Chen jest ekspertem w dziedzinie odzyskiwania danych w DataNumen, Inc., która jest światowym liderem w technologiach odzyskiwania danych, w tym xlsx naprawa i pdf oprogramowanie do naprawy. po więcej informacji odwiedź www.datanumen.com

Podziel się teraz:

Możliwość dodawania komentarzy nie jest dostępna.