2 načina grupnog brisanja zagrada i razmaka u vašem Word dokumentu

Podijeli sada:

U ovom članku u nastavku ponudit ćemo vam 2 načina grupnog brisanja zagrada i unutarnjeg prostora u vašem Word dokumentu. 

Tu i tamo, ljudi vole koristiti zagrade za označavanje riječi iz svih vrsta svrha. Ipak, nakon nekog vremena možete odlučiti ukloniti sve zagrade, ali samo da biste ustanovili da ih ima toliko mnogo, razbacanih po vašem dokumentu. Iskreno govoreći, brisanje jednog po jednog može potrajati zauvijek. Štoviše, zbog neke posebne potrebe, možda ćete morati ukloniti i sve razmake između para zagrada.Skupno brisanje zagrada i razmaka u vašem Word dokumentu

Zbog toga ćete morati pročitati ovaj članak kako biste se opremili praktičnijim rješenjima.

Metoda 1: Koristite zamjenske znakove u naredbi "Napredno traženje".

  1. Prije svega kliknite karticu "Početna" i kliknite padajući gumb na naredbu "Traži".
  2. Zatim odaberite "Napredno traženje" na padajućem izborniku da biste otvorili dijaloški okvir "Pronađi i zamijeni".Kliknite "Početna"->Kliknite gumb sa strelicom na gumb "Traži"->Odaberite "Napredno traženje"
  3. Na primjer, ako želite pronaći sve uglate zagrade, unesite "\[*\]” (bez navodnika) u tekstnom okviru „Pronađi što”.
  4. Zatim kliknite gumb "Više" da biste prikazali više opcija.
  5. Označite okvir "Koristi zamjenske znakove".
  6. Zatim kliknite karticu "Traži u" i odaberite "Glavni dokument". Vidjet ćete sve uglate zagrade i priloženi tekstovi su u izboru, kao što je dolje:Unesite nizove u tekstualni okvir "Pronađi što"->Označite okvir "Koristi zamjenske znakove"->Kliknite gumb "Pronađi u"->Odaberite "Glavni dokument"
  7. Sada poništite tekstualni okvir "Pronađi što" i unesite "[[\] ]” (bez navodnika).
  8. Pritisnite “Traži u” i ovaj put odaberite “Trenutni odabir”. Pronaći ćete sve uglate zagrade i sva mjesta unutar njih u odabiru kako slijedi:Unesite nizove u tekstualni okvir "Pronađi što"->Kliknite gumb "Pronađi u"->Odaberite "Trenutni odabir"
  9. Pritisnite "Izbriši" da biste se riješili uglatih zagrada i svih razmaka unutar njih.
  10. Međutim, ako želite zadržati razmake, samo zamijenite nizove u koraku 7 s "[[\]]".Učinak odabira samo uglastih zagrada

Postoji nekoliko vrsta često korištenih graničnika u tablici ispod, zajedno sa nizovima za njihovo pronalaženje ili unutarnje razmake.

Nosači Nizovi za pronalaženje zagrada i svih ograđenih tekstova Nizovi za pronalaženje zagrada i svih razmaka unutra Nizovi za traženje samo zagrada
Uglate zagrade

[]

\[*\] [[\] ] [[\]]
zagrada '()'

()

\(*\) [(\) ] [(\)]
Zagrade (vitičaste zagrade)

{}

\{*\} [{\} ] [{\}]
Kutne zagrade

<>

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

Metoda 2: Pokrenite VBA kodove

  1. Prvo pritisnite “Alt+ F11” da biste otvorili VBA editor.
  2. Zatim kliknite "Normalno", a zatim karticu "Umetni".
  3. Odaberite "Modul".Kliknite "Normalno"->Kliknite "Umetni"->Kliknite "Modul"
  4. Zatim dvaput kliknite da biste ga otvorili.
  5. I tamo zalijepite sljedeće kodove:
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. Sada, u makronaredbi “DeleteBracketsAndSpace”, zadržite samo retke koji su vam potrebni za brisanje zagrada koje imate u dokumentu i uklonite sve nepotrebne retke koda.

Ako se želite riješiti samo zagrada, trebate malo izmijeniti kodove. Recimo da u vašem dokumentu postoje uglate zagrade. Zatim idite na redak “Pozovi DeleteDelimiters(Selection.Find, “[“, “]”, True)” i promijenite “Pravi"Da"Lažan".

  1. Na kraju kliknite "Pokreni".Zalijepite kodove->Kliknite "Pokreni"

Riješite probleme s riječima

Da budem iskren, Word je stvarno sposoban za puno zadataka. Ipak, ipak nije besprijekoran. Kada se pojavi problem, ishod može biti poražavajući. Stoga nikada ne možemo previdjeti bilo kakve male probleme u Wordu, budući da vas to može dovesti do mrtvog Worda pokvareni docx datoteke. Najbolje rješenje je nabaviti napredni alat za popravak za oporavak vaših Word dokumenata.

Uvod za autora:

Vera Chen stručnjakinja je za oporavak podataka u DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući xlsx popravak i pdf popraviti softverske proizvode. Za više informacija posjetite www.datanumen.com

Podijeli sada:

Komentari su zatvoreni.