2 Γρήγορες μέθοδοι για μαζική προσθήκη αγκυλών για να σημειώσετε αριθμούς στο έγγραφο του Word

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

Όποτε συντάσσουμε ένα μακρύ έγγραφο, είναι πιθανό να εισάγουμε υποσημειώσεις και σημειώσεις. Γνωρίζουμε ότι υπάρχουν επιλογές για τη μορφή αριθμού mote. Ωστόσο, δεν υπάρχει ενσωματωμένο στυλ αριθμών με αγκύλες. Αυτό που θα συζητήσουμε στα επόμενα κείμενα είναι οι 2 λύσεις για την αντιμετώπιση ενός τέτοιου ζητήματος.

Μέθοδος 1: Χρησιμοποιήστε τη λειτουργία "Εύρεση και αντικατάσταση"

1. Για να ξεκινήσετε, κάντε κλικ στην καρτέλα "Αρχική" στο έγγραφο προορισμού.
2. Στη συνέχεια, κάντε κλικ στην εντολή "Αντικατάσταση" στην ομάδα "Επεξεργασία" για να ανοίξετε το παράθυρο διαλόγου "Εύρεση και αντικατάσταση".
3. Τώρα, εάν εργάζεστε με υποσημειώσεις, εισαγάγετε "^ f" στο πλαίσιο κειμένου "Εύρεση τι".
4. Πληκτρολογήστε "[^ &]" στο πλαίσιο κειμένου "Αντικατάσταση με".
5. Στη συνέχεια κάντε κλικ στο "Αντικατάσταση όλων".
6. Το επόμενο πράγμα που βλέπετε είναι ότι όλοι οι αριθμοί υποσημειώσεων βρίσκονται σε αγκύλες. Κάντε κλικ στο "OK" για να κλείσετε το πλαίσιο μηνυμάτων.

Εκτός αυτού, για να προσθέσετε αγκύλες στα endnotes, απλώς αντικαταστήστε το "^ f" με το "^ e" στα πλαίσια κειμένου "Εύρεση τι".

Μέθοδος 2: Εκτέλεση Word μακροεντολής

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

Sub AddBracketForFootnoteAndEndnote()
  Application.ScreenUpdating = False
 
  Dim objRange As Range
 
  With ActiveDocument

    '  add bracket for footnotes. 
    If ActiveDocument.Footnotes.Count > 0 Then
      Call UpdateFootnoteRange(.Range)
      For Each objRange In .StoryRanges
        If objRange.StoryType = wdFootnotesStory Then
          Call UpdateFootnoteRange(objRange): Exit For
        End If
      Next
      MsgBox ("All footnotes have been added brackets.")
    Else
      MsgBox ("There is no footnote in this document")
    End If

    '  add bracket for footnotes. 
    If ActiveDocument.Endnotes.Count > 0 Then
      Call UpdateEndnoteRange(.Range)
      For Each objRange In .StoryRanges
        If objRange.StoryType = wdEndnotesStory Then
          Call UpdateEndnoteRange(objRange): Exit For
        End If
      Next
      MsgBox ("All endnotes have been added brackets.")
    Else
      MsgBox ("There is no endnote in this document")
    End If
  End With
 
  Application.ScreenUpdating = True
End Sub

Sub UpdateFootnoteRange(objRange As Range)
  With objRange.Find
    .ClearFormatting
    .Replacement.ClearFormatting
    .Text = "^f"
    .Replacement.Text = "[^&]"
    .Forward = True
    .Wrap = wdFindContinue
    .Format = True
    .MatchCase = False
    .MatchWholeWord = False
    .MatchByte = True
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
    .Execute Replace:=wdReplaceAll
  End With
End Sub

Sub UpdateEndnoteRange(objRange As Range)
  With objRange.Find
    .ClearFormatting
    .Replacement.ClearFormatting
    .Text = "^e"
    .Replacement.Text = "[^&]"
    .Forward = True
    .Wrap = wdFindContinue
    .Format = True
    .MatchCase = False
    .MatchWholeWord = False
    .MatchByte = True
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
    .Execute Replace:=wdReplaceAll
  End With
End Sub

6. Τώρα τοποθετήστε το δείκτη εισαγωγής μέσα στην πρώτη μακροεντολή και κάντε κλικ στο "Εκτέλεση".
7. Στη συνέχεια, πρώτα υπάρχει ένα πλαίσιο μηνύματος που λέει ότι έχουν προστεθεί αγκύλες σε όλους τους αριθμούς υποσημειώσεων.
8. Έπειτα υπάρχει το δεύτερο που λέει ότι η μετατροπή είναι πλήρης σε όλους τους αριθμούς τελικών σημειώσεων.

Εδώ είναι το αποτέλεσμα που έχουμε:

Αποτροπή απώλειας εγγράφου

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

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

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