2 načina za grupno brisanje zagrada i razmaka u vašem Word dokumentu

Podijeli sada:

U ovom članku ispod, ponudit ćemo vam 2 načina grupnog brisanja zagrada i unutrašnjih razmaka u vašem Word dokumentu. 

S vremena na vrijeme, ljudi vole koristiti zagrade za označavanje riječi iz svih vrsta namjena. Ipak, nakon nekog vremena, možda ćete odlučiti da uklonite sve zagrade, ali samo da biste otkrili da ih ima toliko, razbacanih po vašem dokumentu. Iskreno, može potrajati zauvijek da ih izbrišete jednu po jednu. Štaviše, zbog neke posebne potrebe, možda ćete morati ukloniti i sve razmake između para zagrada.Grupno brisanje zagrada i razmaka u vašem Word dokumentu

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

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

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

Postoji nekoliko vrsta uobičajenih graničnika u donjoj tabeli, zajedno sa nizovima za njihovo pronalaženje ili unutrašnjim razmacima.

Nosači Stringovi za pronalaženje zagrada i svih priloženih tekstova Nizovi za pronalaženje zagrada i svih razmaka unutra Nizovi za pronalaženje samo zagrada
Uglaste zagrade

[]

\[*\] [[\] ] [[\]]
Zagrade

()

\(*\) [(\) ] [(\)]
Zagrade (kovrčave zagrade)

{}

\{*\} [{\} ] [{\}]
Ugaone zagrade

<>

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

Metod 2: Pokrenite VBA kodove

  1. Prvo pritisnite “Alt+ F11” da otvorite VBA editor.
  2. Zatim kliknite na “Normal”, a zatim na karticu “Insert”.
  3. Odaberite “Module”.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 redove koji su vam potrebni da izbrišete zagrade koje imate u svom dokumentu i uklonite sve nepotrebne linije koda.

Ako se želite riješiti samo zagrada, morate malo promijeniti kodove. Recimo da u vašem dokumentu postoje uglaste zagrade. Zatim idite na liniju “Call DeleteDelimiters(Selection.Find, “[“, “]”, True)” i promijenite “istinski"Do"lažan".

  1. Na kraju, kliknite "Pokreni".Zalijepi kodove->Klikni na "Pokreni"

Riješite probleme sa riječima

Da budem iskren, Word je zaista sposoban za mnoge zadatke. Ipak, ipak nije besprekorno. Kada dođe do problema, ishod može biti poražavajući. Stoga, nikada ne možemo previdjeti bilo kakve male probleme u Wordu, jer vas to može dovesti do mrtve Worda corrupt docx datoteke. Najbolje rješenje je nabaviti napredni alat za popravku za oporavak Word dokumenata.

Uvod za autora:

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

Podijeli sada:

Komentari su zatvoreni.