2 būdai, kaip grupiniu būdu ištrinti skliaustus ir vidinius tarpus „Word“ dokumente

Bendrinti dabar:

Šiame straipsnyje mes jums pasiūlysime 2 būdus, kaip paketiniu būdu ištrinti skliaustus ir vidinius tarpus „Word“ dokumente. 

Retkarčiais žmonės mėgsta naudoti skliaustus, norėdami pažymėti žodžius įvairiais tikslais. Tačiau po kurio laiko galite nuspręsti pašalinti visus skliaustus, bet tik pamatysite, kad jų tiek daug, išsibarsčiusių aplink jūsų dokumentą. Sąžiningai, gali užtrukti amžinai, kol juos ištrinsite po vieną. Be to, dėl ypatingo poreikio gali tekti pašalinti ir visus tarpus tarp skliaustų poros.Ištrinkite skliaustus ir vidinius tarpus savo Word dokumente

Štai kodėl turėsite perskaityti šį straipsnį, kad galėtumėte rasti praktiškesnių sprendimų.

1 būdas: naudokite pakaitos simbolius komandoje „Išplėstinė paieška“.

  1. Pirmiausia spustelėkite skirtuką „Pagrindinis“ ir spustelėkite išskleidžiamąjį mygtuką komandoje „Rasti“.
  2. Tada išskleidžiamajame meniu pasirinkite „Išplėstinė paieška“, kad atidarytumėte dialogo langą „Rasti ir pakeisti“.Spustelėkite „Pagrindinis“ -> Spustelėkite rodyklės mygtuką ant mygtuko „Rasti“ -> Pasirinkite „Išplėstinis paieška“
  3. Pavyzdžiui, jei norite rasti visus laužtinius skliaustus, įveskite „\[*\]“ (be kabučių) teksto laukelyje „Rasti ką“.
  4. Tada spustelėkite mygtuką „Daugiau“, kad pamatytumėte daugiau parinkčių.
  5. Pažymėkite laukelį „Naudoti pakaitos simbolius“.
  6. Tada spustelėkite skirtuką „Rasti“ ir pasirinkite „Pagrindinis dokumentas“. Pamatysite visus laužtinius skliaustus, o pridedami tekstai yra pasirinkti, pvz., žemiau:Įveskite eilutes į "Rasti ką" teksto laukelį-> Pažymėkite laukelį "Naudoti pakaitos simbolius" -> Spustelėkite mygtuką "Rasti" -> Pasirinkite "Pagrindinis dokumentas"
  7. Dabar išvalykite teksto laukelį „Rasti ką“ ir įveskite „[[\] ]”(be kabučių).
  8. Spustelėkite „Rasti“ ir šį kartą pasirinkite „Dabartinis pasirinkimas“. Rasite visus laužtinius skliaustus ir visas vidines erdves pasirinksite taip:Įveskite eilutes į "Rasti ką" teksto laukelį -> spustelėkite mygtuką "Rasti" -> Pasirinkite "Dabartinis pasirinkimas"
  9. Paspauskite „Ištrinti“, kad pašalintumėte laužtinius skliaustus ir visus tarpus viduje.
  10. Tačiau jei norite palikti tarpus, tiesiog pakeiskite eilutes 7 veiksme į „[[\]]".Tik laužtinių skliaustų pasirinkimo poveikis

Lentelėje yra keletas dažniausiai naudojamų skiriamųjų ženklų, taip pat eilutės jiems rasti arba vidinės erdvės.

Kilpos Stygos, skirtos skliausteliams ir visiems pridedamiems tekstams rasti Stygos skliausteliams ir visiems tarpams viduje rasti Stygos, skirtos tik skliausteliams rasti
Laužtiniai skliaustai

[]

\[*\] [[\] ] [[\]]
Skliaustai

()

\(*\) [(\) ] [(\)]
Petnešos (garbanotieji skliaustai)

{}

\{*\} [{\} ] [{\}]
Kampiniai laikikliai

<>

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

2 būdas: paleiskite VBA kodus

  1. Pirmiausia paspauskite „Alt + F11“, kad atidarytumėte VBA redaktorių.
  2. Tada spustelėkite „Įprastas“, tada „Įterpti“ skirtuką.
  3. Pasirinkite „Modulis“.Spustelėkite "Įprastas" -> Spustelėkite "Įterpti" -> spustelėkite "Modulis"
  4. Tada dukart spustelėkite, kad atidarytumėte.
  5. Ir įklijuokite ten šiuos kodus:
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. Dabar makrokomandoje „DeleteBracketsAndSpace“ palikite tik tas eilutes, kurių reikia, kad ištrintumėte skliaustus, kuriuos turite savo dokumente, ir pašalinkite visas nereikalingas kodo eilutes.

Jei norite atsikratyti tik skliaustų, turite šiek tiek pakeisti kodus. Tarkime, kad jūsų dokumente yra laužtinių skliaustų. Tada eikite į eilutę „Call DeleteDelimiters (Selection.Find, „[“, „]“, True)“ ir pakeiskite „Tiesa"Iki"Klaidingas".

  1. Galiausiai spustelėkite „Vykdyti“.Įklijuoti kodus -> Spustelėkite "Vykdyti"

Išspręskite Word problemas

Tiesą sakant, „Word“ tikrai gali atlikti daugybę užduočių. Vis dėlto tai nėra nepriekaištinga. Iškilus problemai, rezultatas gali būti pražūtingas. Todėl niekada negalime nepastebėti jokių mažų Word problemų, nes tai gali jus nuvesti į mirusį Wordą sugadintas docx failus. Geriausias sprendimas yra gauti pažangų taisymo įrankį, kad galėtumėte atkurti „Word“ dokumentus.

Autoriaus įvadas:

Vera Chen yra duomenų atkūrimo ekspertė DataNumen, Inc., kuri yra pasaulyje duomenų atkūrimo technologijų lyderė, įskaitant xlsx remontas bei pdf programinės įrangos gaminių taisymas. Norėdami gauti daugiau informacijos, apsilankykite WWW.datanumen.com

Bendrinti dabar:

Komentarai yra uždaryti.