Μια από τις αμαρτίες που μπορείτε να διαπράξετε γράφοντας μια εργασία όρου ή μια διατριβή είναι να τοποθετήσετε πάρα πολλές παρενθετικές σημειώσεις σε μια σελίδα. Πολλοί καθηγητές το εκτιμούν όταν χρησιμοποιείτε υποσημειώσεις. Θα εκτιμήσετε επίσης τη μακροεντολή parenthetical_to_footnote, η οποία αυτοματοποιεί τη διαδικασία.
Χρησιμοποιήθηκαν πληκτρολογήσεις για την εγγραφή αυτής της μακροεντολής, αλλά ο δείκτης εισαγωγής πρέπει να είναι τοποθετημένος με ακρίβεια για να λειτουργεί: Κάντε κλικ στον δείκτη εισαγωγής πριν από την παρενθετική πρόταση, ακριβώς πριν από την περίοδο στην οποία θέλετε να εμφανίζεται η υποσημείωση. Το σχήμα απεικονίζει τη θέση και το αποτέλεσμα μετά την εκτέλεση της μακροεντολής.
Εκτέλεση της μακροεντολής parenthetical_to-footnote.
Subparenthetical_to_footnote()
'
'parenthetical_to_footnote Μακροεντολή
' Μετατροπή παρενθετικού κειμένου ακολουθώντας τον δρομέα σε υποσημείωση
'
Selection.Extend
Selection.Extend Character:="("
Selection.EscapeKey
Selection.MoveRight Unit:=wdCharacter, Count:=1
Selection.Extend
Selection.Extend Character:=")"
Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend
Selection.Cut
Selection.MoveRight Unit:=wdCharacter, Count:=1
Selection.TypeBackspace
Selection.TypeBackspace
Selection.TypeBackspace
Selection.TypeBackspace
Selection.TypeText Text:="."
Selection.MoveLeft Μονάδα: = wdCharacter, Count: = 1
με την επιλογή
Με .FootnoteOptions
.Location = wdBottomOfPage
.NumberingRule = wdRestartContinuous
.StartingNumber = 1
.NumberStyle = wdNoteNumberStyleArabic
.LayoutColumns = 0
End With
.Footnotes.Add Σειρά: = Selection.Range, Αναφορά:=""
End With
Selection.Paste
End Sub
Τα ακόλουθα πλήκτρα χρησιμοποιήθηκαν για τη δημιουργία αυτής της μακροεντολής. Είναι αρκετά περίπλοκα:
Πατήστε F8 και στη συνέχεια τον χαρακτήρα ( (αριστερή παρένθεση).
Η εντολή F8 εισέρχεται σε λειτουργία εκτεταμένης επιλογής. Όταν πατάτε ένα πλήκτρο, όπως το πλήκτρο (, το κείμενο επιλέγεται μέχρι και συμπεριλαμβανομένου αυτού του χαρακτήρα.
Esc, → Η
επιλογή ακυρώνεται και το πλήκτρο → μετακινεί τον δείκτη εισαγωγής στην αρχή του παρενθετικού κειμένου.
F8, ) Το
κείμενο επιλέγεται μέχρι και τον χαρακτήρα ).
←
Ο χαρακτήρας ) αφαιρείται από την επιλογή.
Ctrl+X
Το κείμενο στην παρένθεση κόβεται. Τα επόμενα πλήκτρα αφαιρούν την παρένθεση και τοποθετούν τον δείκτη εισαγωγής για την υποσημείωση.
Backspace, Backspace, Backspace, Backspace, . (περίοδος), ←
Κάντε κλικ στην καρτέλα Αναφορές και, στην ομάδα Υποσημειώσεις, κάντε κλικ στο κουμπί Εισαγωγή υποσημείωσης.
Ctrl+V
Το κείμενο επικολλάται στην υποσημείωση.