2 τρόποι μαζικής διαγραφής αγκυλών και εσωτερικών χώρων στο έγγραφο του Word

Σε αυτό το άρθρο παρακάτω, θα σας προσφέρουμε 2 τρόπους για να αφαιρέσετε αγκύλες κατά διαστήματα και τους εσωτερικούς χώρους στο έγγραφο του Word. 

Τώρα, οι άνθρωποι θέλουν να χρησιμοποιούν αγκύλες για να επισημάνουν λέξεις από κάθε είδους σκοπούς. Ωστόσο, μετά από λίγο, μπορεί να αποφασίσετε να αφαιρέσετε όλες τις αγκύλες, αλλά μόνο για να διαπιστώσετε ότι υπάρχουν τόσα πολλά από αυτά, που διασκορπίζονται γύρω από το έγγραφό σας. Ειλικρινά, μπορεί να χρειαστούν για πάντα να τα διαγράψετε ένα προς ένα. Επιπλέον, από κάποια ειδική ανάγκη, ίσως χρειαστεί να αφαιρέσετε όλα τα κενά μεταξύ ενός ζεύγους αγκυλών επίσης.

Γι 'αυτό θα πρέπει να διαβάσετε αυτό το άρθρο για να εξοπλίσετε τον εαυτό σας με πιο πρακτικές λύσεις.

Μέθοδος 1: Χρησιμοποιήστε χαρακτήρες μπαλαντέρ στην εντολή "Advanced Find"

1. Πρώτα απ 'όλα, κάντε κλικ στην καρτέλα "Αρχική σελίδα" και κάντε κλικ στο αναπτυσσόμενο κουμπί στην εντολή "Εύρεση".
2. Στη συνέχεια, επιλέξτε "Σύνθετη Εύρεση" στο αναπτυσσόμενο μενού για να ανοίξετε το παράθυρο διαλόγου "Εύρεση και αντικατάσταση".
3. Για παράδειγμα, εάν θέλετε να βρείτε όλες τις αγκύλες, εισαγάγετε "\ [* \]"(Χωρίς εισαγωγικά) στο πλαίσιο κειμένου" Εύρεση τι ".
4. Στη συνέχεια, κάντε κλικ στο κουμπί "Περισσότερα" για να εμφανίσετε περισσότερες επιλογές.
5. Επιλέξτε το πλαίσιο "Χρήση μπαλαντέρ".
6. Στη συνέχεια, κάντε κλικ στην καρτέλα "Εύρεση σε" και επιλέξτε "Κύριο έγγραφο". Θα δείτε όλες τις αγκύλες και τα συνημμένα κείμενα είναι επιλεγμένα, όπως παρακάτω:
7. Τώρα καθαρίστε το πλαίσιο κειμένου "Εύρεση τι" και εισαγάγετε "[[\]]"(Χωρίς εισαγωγικά).
8. Κάντε κλικ στο "Εύρεση σε" και αυτή τη φορά επιλέξτε "Τρέχουσα επιλογή". Θα βρείτε όλες τις αγκύλες και όλοι οι χώροι μέσα είναι σε επιλογή ως εξής:
9. Πατήστε "Διαγραφή" για να απαλλαγείτε από αγκύλες και όλους τους χώρους μέσα.
10. Ωστόσο, εάν θέλετε να διατηρήσετε κενά, απλώς αντικαταστήστε τις χορδές στο βήμα 7 με "[[\]]".

Υπάρχουν πολλά είδη οριοθετών που χρησιμοποιούνται συνήθως στον παρακάτω πίνακα, μαζί με τις χορδές για να τα βρείτε ή τους εσωτερικούς χώρους.

Μέθοδος 2: Εκτέλεση κωδικών VBA

1. Αρχικά, πατήστε "Alt + F11" για να ανοίξετε το πρόγραμμα επεξεργασίας VBA.
2. Στη συνέχεια κάντε κλικ στην καρτέλα "Normal" και στη συνέχεια "Insert".
3. Επιλέξτε «Ενότητα».
4. Στη συνέχεια, κάντε διπλό κλικ για να το ανοίξετε.
5. Και επικολλήστε τους ακόλουθους κωδικούς εκεί:

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

6. Τώρα, στη μακροεντολή "DeleteBracketsAndSpace", διατηρήστε μόνο τις γραμμές που χρειάζεστε για να διαγράψετε τις αγκύλες που έχετε στο έγγραφό σας και αφαιρέστε όλες τις άχρηστες γραμμές κώδικα.

Εάν θέλετε να απαλλαγείτε από αγκύλες μόνο, πρέπει να αλλάξετε λίγο τους κωδικούς. Ας υποθέσουμε ότι υπάρχουν αγκύλες στο έγγραφό σας. Στη συνέχεια, μεταβείτε στη γραμμή "Call DeleteDelimiters (Selection.Find," [","] ", True)" και αλλάξτε το "Οι αληθινοί "Προς"Ψευδής".

7. Τέλος, κάντε κλικ στο "Εκτέλεση".

Επίλυση προβλημάτων του Word

Για να είμαι ειλικρινής, το Word είναι πραγματικά ικανό για πολλές εργασίες. Ωστόσο, δεν είναι άψογο. Όταν υπάρχει κάποιο πρόβλημα, το αποτέλεσμα μπορεί να είναι καταστροφικό. Επομένως, δεν μπορούμε ποτέ να παραβλέψουμε οποιαδήποτε μικρά προβλήματα στο Word, καθώς μπορεί να σας οδηγήσει σε ένα νεκρό Word με κατεστραμμένο docx αρχεία. Η καλύτερη λύση είναι να αποκτήσετε ένα προηγμένο εργαλείο επιδιόρθωσης για την ανάκτηση των εγγράφων του Word.

Εισαγωγή συγγραφέα:

Η Vera Chen είναι ειδικός ανάκτησης δεδομένων στο DataNumen, Inc., η οποία είναι ο παγκόσμιος ηγέτης στις τεχνολογίες ανάκτησης δεδομένων, συμπεριλαμβανομένων επισκευή xlsx και pdf επισκευή προϊόντων λογισμικού. Για περισσότερες πληροφορίες επισκεφθείτε www.datanumen.com