2 moduri de a șterge în loturi paranteze și spații din interiorul documentului Word

Distribuie acum:

Î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.Ștergeți în loturi paranteze și spații din interiorul documentului Word

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ă”.

  1. În primul rând, faceți clic pe fila „Acasă” și faceți clic pe butonul derulant de pe comanda „Găsiți”.
  2. Apoi alegeți „Găsire avansată” din meniul derulant pentru a deschide caseta de dialog „Găsiți și înlocuiți”.Faceți clic pe „Acasă”->Faceți clic pe butonul săgeată pe butonul „Găsiți”->Alegeți „Găsire avansată”
  3. 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”.
  4. Apoi faceți clic pe butonul „Mai multe” pentru a afișa mai multe opțiuni.
  5. Bifați caseta „Folosiți caractere metalice”.
  6. 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:Introduceți șiruri în caseta de text „Găsiți ce”-> Bifați caseta „Folosiți caractere metalice”->Faceți clic pe butonul „Găsiți în”->Alegeți „Documentul principal”
  7. Acum ștergeți caseta de text „Găsiți ce” și introduceți „[[\] ]”(fără ghilimele).
  8. 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ă:Introduceți șiruri în caseta de text „Găsiți ce”->Faceți clic pe butonul „Găsiți în”->Alegeți „Selectare curentă”
  9. Apăsați „Șterge” pentru a scăpa de paranteze pătrate și de toate spațiile din interior.
  10. Cu toate acestea, dacă doriți să păstrați spații, înlocuiți șirurile de la pasul 7 cu „[[\]]".Efectul selectării numai a parantezelor pătrate

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

  1. În primul rând, apăsați „Alt+ F11” pentru a deschide editorul VBA.
  2. Apoi faceți clic pe „Normal” și apoi pe fila „Inserare”.
  3. Alegeți „Modul”.Faceți clic pe „Normal” -> Faceți clic pe „Inserare” -> Faceți clic pe „Modul”
  4. Apoi faceți dublu clic pe pentru a-l deschide.
  5. Ș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
  1. 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".

  1. În cele din urmă, faceți clic pe „Rulați”.Lipiți coduri-> Faceți clic pe „Run”

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

Distribuie acum:

Comentariile sunt închise.