2 måder at batch-slette parenteser og indvendige rum i dit Word-dokument

I denne artikel nedenfor giver vi dig 2 måder at batch slette parenteser og de indvendige mellemrum i dit Word-dokument. 

Indimellem kan folk godt lide at bruge parenteser til at markere ord ud fra alle slags formål. Men efter et stykke tid kan du beslutte at fjerne alle parenteser, men kun for at finde ud af, at der er så mange af dem, der spredes rundt i dit dokument. Ærligt talt kan det tage evigt at slette dem en efter en. Hvad mere er, ud af et specielt behov skal du muligvis også fjerne alle mellemrummene mellem et par parenteser.Batch Slette parenteser og indvendige rum i dit Word-dokument

Dette er grunden til, at du bliver nødt til at læse denne artikel for at udstyre dig med mere praktiske løsninger.

Metode 1: Brug jokertegn i kommandoen “Advanced Find”

  1. Først og fremmest skal du klikke på fanen "Hjem" og klikke på rullemenuen på "Find" -kommandoen.
  2. Vælg derefter "Avanceret søgning" i rullemenuen for at åbne dialogboksen "Find og erstat".Klik på "Hjem" -> Klik på pileknappen på "Find" -knappen -> Vælg "Avanceret søgning"
  3. Hvis du f.eks. Vil finde alle firkantede parenteser, skal du indtaste “\ [* \]”(Uden anførselstegn) i tekstfeltet“ Find hvad ”.
  4. Klik derefter på knappen “Mere” for at få flere muligheder.
  5. Marker afkrydsningsfeltet "Brug jokertegn".
  6. Klik derefter på fanen "Find i", og vælg "Hoveddokument". Du vil se alle firkantede parenteser, og de vedlagte tekster er i valg, såsom nedenunder:Indtast strenge i "Find hvad" Tekstboks-> Marker "Brug jokertegn" Rude-> Klik på "Find i" -knappen-> Vælg "Hoveddokument"
  7. Ryd nu "Find hvad" tekstfeltet og indtast "[[\]]”(Uden anførselstegn).
  8. Klik på "Find i", og vælg denne gang "Aktuel markering". Du finder alle firkantede parenteser og alle mellemrum inde er valgt som følger:Indtast strenge i "Find hvad" tekstboks-> Klik på "Find i" -knap-> Vælg "Aktuel markering"
  9. Tryk på “Slet” for at slippe af med firkantede parenteser og alle mellemrum indeni.
  10. Men hvis du vil beholde mellemrum, skal du bare udskifte strengene i trin 7 med “[[\]]".Effekt af kun at vælge firkantede beslag

Der er flere slags almindeligt anvendte afgrænsere i bølgende bord sammen med strengene for at finde dem eller de indvendige rum.

Beslag Strenge for at finde beslag og alle vedlagte tekster Strenge for at finde beslag og alle rum inde Strenge for kun at finde beslag
Firkantede beslag

[]

\ [* \] [[\]] [[\]]
parenteser

()

\ (* \) [(\)] [(\)]
Seler (krøllede beslag)

{}

\ {* \} [{\}] [{\}]
Vinkelbeslag

<>

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

Metode 2: Kør VBA-koder

  1. For det første skal du trykke på “Alt + F11” for at åbne VBA-editor.
  2. Klik derefter på “Normal” og derefter “Indsæt” -fanen.
  3. Vælg “Modul”.Klik på "Normal" -> Klik på "Indsæt" -> Klik på "Modul"
  4. Dobbeltklik derefter på for at åbne den.
  5. Og indsæt følgende koder der:
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. I makroen "DeleteBracketsAndSpace" skal du kun beholde de linjer, du har brug for for at slette de parenteser, du har i dit dokument, og fjerne alle unødvendige kodelinjer.

Hvis du kun ønsker at slippe af med parenteser, skal du ændre koderne en smule. Lad os sige, at der er firkantede parenteser i dit dokument. Gå derefter til linjen "Call DeleteDelimiters (Selection.Find," [","], True) ", og skift"Sand"Til"False".

  1. Klik til sidst på "Kør".Indsæt koder-> Klik på "Kør"

Løs ordproblemer

For at være ærlig er Word virkelig i stand til mange opgaver. Alligevel er det trods alt ikke fejlfrit. Når der opstår et problem, kan resultatet være ødelæggende. Derfor kan vi aldrig overse de små problemer i Word, da det kan føre dig til et dødt Word med korrupt docx filer. Den bedste løsning er at få et avanceret reparationsværktøj til at gendanne dine Word-dokumenter.

Forfatter Introduktion:

Vera Chen er en datagendannelsesekspert i DataNumen, Inc., som er verdens førende inden for datagendannelsesteknologier, herunder xlsx reparation og pdf produkter til reparation af software. For mere information besøg www.datanumen.com

Kommentarer er lukket.