În acest articol de mai jos, vă vom oferi 2 moduri de a șterge în serie parantezele și spațiile interioare din documentul Word.
Din când în când, oamenilor le place să folosească paranteze pentru a marca cuvintele din tot felul de scopuri. Cu toate acestea, după un timp, puteți decide să eliminați toate parantezele, dar numai să descoperiți că sunt atât de multe, împrăștiate în jurul documentului dvs. Sincer, poate dura o veșnicie pentru a le șterge unul câte unul. În plus, dintr-o nevoie specială, poate fi necesar să eliminați și toate spațiile dintre o pereche de paranteze.
Acesta este motivul pentru care va trebui să citiți acest articol pentru a vă echipa cu soluții mai practice.
Metoda 1: Folosiți caracterele metalice în comanda „Găsire avansată”.
- În primul rând, faceți clic pe fila „Acasă” și faceți clic pe butonul derulant de pe comanda „Găsiți”.
- Apoi alegeți „Găsire avansată” din meniul derulant pentru a deschide caseta de dialog „Găsiți și înlocuiți”.
- De exemplu, dacă doriți să găsiți toate parantezele pătrate, introduceți „\[*\]”(fără ghilimele) în caseta de text „Găsiți ce”.
- Apoi faceți clic pe butonul „Mai multe” pentru a afișa mai multe opțiuni.
- Bifați caseta „Folosiți caractere metalice”.
- Apoi faceți clic pe fila „Find In” și alegeți „Main Document”. Veți vedea toate parantezele pătrate și textele anexate sunt selectate, cum ar fi mai jos:
- Acum ștergeți caseta de text „Găsiți ce” și introduceți „[[\] ]”(fără ghilimele).
- Faceți clic pe „Find In” și de data aceasta alegeți „Current Selection”. Veți găsi toate parantezele pătrate și toate spațiile din interior sunt selectate după cum urmează:
- Apăsați „Șterge” pentru a scăpa de paranteze pătrate și de toate spațiile din interior.
- Cu toate acestea, dacă doriți să păstrați spații, înlocuiți șirurile de la pasul 7 cu „[[\]]".
Există mai multe feluri de delimitatori folosiți în mod obișnuit în tabelul de mai jos, împreună cu șirurile pentru a le găsi sau spațiile interioare.
| Console | Șiruri pentru a găsi paranteze și toate textele incluse | Șiruri pentru a găsi paranteze și toate spațiile din interior | Șiruri pentru a găsi numai paranteze |
| Paranteza patrata
[] |
\[*\] | [[\] ] | [[\]] |
| Paranteze
() |
\(*\) | [(\) ] | [(\)] |
| Acolade (Paranteze)
{} |
\{*\} | [{\} ] | [{\}] |
| Paranteze unghiulare
<> |
\<*\> | [<\> ] | [<\>] |
Metoda 2: Rulați coduri VBA
- În primul rând, apăsați „Alt+ F11” pentru a deschide editorul VBA.
- Apoi faceți clic pe „Normal” și apoi pe fila „Inserare”.
- Alegeți „Modul”.
- Apoi faceți dublu clic pe pentru a-l deschide.
- Și lipiți următoarele coduri acolo:
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
- Acum, în macrocomanda „DeleteBracketsAndSpace”, păstrați doar liniile de care aveți nevoie pentru a șterge parantezele pe care le aveți în document și pentru a elimina toate liniile de cod care nu sunt necesare.
Dacă doriți să scăpați doar de paranteze, trebuie să modificați puțin codurile. Să presupunem că există paranteze drepte în documentul dvs. Apoi accesați linia „Call DeleteDelimiters(Selection.Find, „[“, „]”, True)” și schimbați „Adevărat"La"Fals".
- În cele din urmă, faceți clic pe „Rulați”.
Rezolvați problemele cu cuvintele
Pentru a fi sincer, Word este într-adevăr capabil de o mulțime de sarcini. Cu toate acestea, nu este perfect până la urmă. Când apare o problemă, rezultatul poate fi devastator. Prin urmare, nu putem trece niciodată cu vederea orice probleme mici în Word, deoarece vă poate duce la un Cuvânt mort cu corupt docx fișiere. Cea mai bună soluție este să obțineți un instrument avansat de reparare pentru a vă recupera documentele Word.
Introducerea autorului:
Vera Chen este expertă în recuperarea datelor DataNumen, Inc., care este lider mondial în tehnologiile de recuperare a datelor, inclusiv reparare xlsx și pdf repararea produselor software. Pentru mai multe informații vizitați www.datanumen.com






