2 spôsoby dávkového odstránenia zátvoriek a vnútorných priestorov v dokumente Word

Zdieľať teraz:

V tomto článku nižšie vám ponúkneme 2 spôsoby hromadného odstránenia zátvoriek a vnútorných medzier v dokumente programu Word. 

Tu a tam ľudia radi používajú zátvorky na označenie slov na rôzne účely. Po chvíli sa však môžete rozhodnúť odstrániť všetky zátvorky, no zistíte, že ich je tak veľa, roztrúsených po vašom dokumente. Úprimne povedané, môže trvať večnosť, kým ich jeden po druhom odstránite. A čo viac, z nejakej špeciálnej potreby možno budete musieť odstrániť aj všetky medzery medzi párom zátvoriek.Dávkové odstránenie zátvoriek a vnútorných medzier v dokumente programu Word

To je dôvod, prečo si budete musieť prečítať tento článok, aby ste sa vybavili praktickejšími riešeniami.

Metóda 1: Použite zástupné znaky v príkaze „Rozšírené hľadanie“.

  1. Najprv kliknite na kartu „Domov“ a kliknite na rozbaľovacie tlačidlo pri príkaze „Nájsť“.
  2. Potom v rozbaľovacej ponuke vyberte položku „Rozšírené hľadanie“ a otvorte dialógové okno „Nájsť a nahradiť“.Kliknite na „Domov“->Kliknite na tlačidlo so šípkou na tlačidlo „Nájsť“->Vyberte „Rozšírené hľadanie“
  3. Napríklad, ak chcete nájsť všetky hranaté zátvorky, zadajte „\ [* \]“(bez úvodzoviek) v textovom poli „Nájsť čo“.
  4. Ďalej kliknite na tlačidlo „Viac“ a zobrazí sa ďalšie možnosti.
  5. Začiarknite políčko „Použiť zástupné znaky“.
  6. Potom kliknite na kartu „Nájsť v“ a vyberte „Hlavný dokument“. Uvidíte všetky hranaté zátvorky a priložené texty sú vo výbere, ako napríklad nižšie:Zadajte reťazce do textového poľa „Nájsť čo“->Začiarknite políčko „Použiť zástupné znaky“->Kliknite na tlačidlo „Nájsť“->Vyberte „Hlavný dokument“
  7. Teraz vymažte textové pole „Nájsť čo“ a zadajte „[[\] ]“(bez úvodzoviek).
  8. Kliknite na „Nájsť v“ a tentoraz vyberte „Aktuálny výber“. Všetky hranaté zátvorky a všetky medzery vo vnútri sú vo výbere nasledovne:Zadajte reťazce do textového poľa "Nájsť čo" -> kliknite na tlačidlo "Nájsť" -> vyberte "Aktuálny výber"
  9. Stlačením tlačidla „Odstrániť“ sa zbavíte hranatých zátvoriek a všetkých medzier vo vnútri.
  10. Ak však chcete ponechať medzery, stačí nahradiť reťazce v kroku 7 reťazcom „[[\]]".Efekt výberu len hranatých zátvoriek

V nasledujúcej tabuľke je niekoľko druhov bežne používaných oddeľovačov spolu s reťazcami na ich nájdenie alebo vnútorné medzery.

Konzoly Struny na nájdenie zátvoriek a všetkých priložených textov Struny na nájdenie zátvoriek a všetkých medzier vo vnútri Reťazce na vyhľadanie iba zátvoriek
Hranaté zátvorky

[]

\ [* \] [[\] ] [[\]]
okrúhle zátvorky

()

\ (* \) [(\) ] [(\)]
Konzoly (zložené zátvorky)

{}

\ {* \} [{\} ] [{\}]
Uhlové zátvorky

<>

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

Metóda 2: Spustenie kódov VBA

  1. Najskôr stlačte „Alt + F11“, aby ste otvorili editor VBA.
  2. Ďalej kliknite na „Normálne“ a potom na kartu „Vložiť“.
  3. Vyberte „Modul“.Kliknite na „Normálny“ -> Kliknite na „Vložiť“ -> Kliknite na „Modul“
  4. Potom ho otvorte dvojitým kliknutím.
  5. A vložte tam nasledujúce kódy:
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 si v makre „DeleteBracketsAndSpace“ ponechajte iba riadky, ktoré potrebujete, aby ste odstránili hranaté zátvorky, ktoré máte v dokumente, a odstráňte všetky nepotrebné riadky kódu.

Ak sa chcete zbaviť iba zátvoriek, musíte kódy trochu pozmeniť. Povedzme, že váš dokument obsahuje hranaté zátvorky. Potom prejdite na riadok „Call DeleteDelimiters(Selection.Find, „[“, „]“, True)“ a zmeňte „Pravdivý"To"Falošný".

  1. Nakoniec kliknite na tlačidlo „Spustiť“.Prilepiť kódy-> kliknite na tlačidlo „Spustiť“

Vyriešte problémy so slovom

Aby som bol úprimný, Word dokáže naozaj veľa úloh. Nakoniec to však nie je bezchybné. Keď sa vyskytne problém, výsledok môže byť zničujúci. Preto nikdy nemôžeme prehliadnuť akékoľvek malé problémy vo Worde, pretože vás to môže viesť k mŕtvemu Slovu skorumpovaný docx súbory. Najlepším riešením je získať pokročilý nástroj na opravu na obnovenie dokumentov programu Word.

Úvod autora:

Vera Chen je expertka na obnovu dát v DataNumen, Inc., ktorá je svetovým lídrom v oblasti technológií obnovy dát, vrátane xlsx oprava a pdf oprava softvérových produktov. Pre viac informácií navštívte www.datanumen. S

Zdieľať teraz:

Komentáre sú uzavreté.