Όταν γράφετε στο Word 2016, ειδικά αν εργάζεστε σε μια ακαδημαϊκή εργασία ή ακόμα και σε ένα μεγάλο έργο μυθοπλασίας, μπορεί να θέλετε να αυξήσετε μεγάλα κομμάτια κειμένου αντί να τα διαγράψετε. Για να αυξήσετε το κείμενο, το επιλέγετε και στη συνέχεια το μετακινείτε προς τα κάτω στο τέλος του εγγράφου. Όταν «τελειώσετε» το γράψιμο, ελέγξτε τις αιχμές σας για να δείτε αν αξίζει να αποθηκεύσετε κάτι.
Ακολουθεί κώδικας για μια μακροεντολή spike_text που αυτοματοποιεί τη διαδικασία:
Sub spike_text()
'
' spike_text Macro
' Μετακίνηση επιλεγμένου κειμένου στο τέλος του εγγράφου
'
If Selection.Type = wdSelectionNormal Τότε
Selection.Cut
Selection.EndKey Unit:=wdStory
Selection.TypeParagraph
Selection.Paste
Application.GoBack
Application.GoBack
Else
MsgBox "Nothing to spike"
End If
End Sub
Αυτή η μακροεντολή περιέχει μια δομή if-else . Η δοκιμή if καθορίζει εάν είναι επιλεγμένο κείμενο. Εάν ναι, το κείμενο κόβεται και επικολλάται στο τέλος του εγγράφου. Όταν το κείμενο δεν είναι επιλεγμένο, το άλλο μέρος της εξίσωσης εμφανίζει ένα πλαίσιο μηνύματος με το κείμενο "Nothing to spike".
Αυτή η μακροεντολή καταγράφηκε αρχικά και χρησιμοποίησε αυτά τα πλήκτρα:
Ctrl+X
Ctrl+End
Ctrl+V
Shift+F5, Shift+F5
Η συντόμευση πληκτρολογίου Shift+F5 σάς επιστρέφει στην προηγούμενη θέση επεξεργασίας στο έγγραφο.
Μετά την καταγραφή των πλήκτρων, προστέθηκε η δομή if-else για να διασφαλιστεί ότι η μακροεντολή δεν εμφανίζει ένα άσχημο μήνυμα σφάλματος όταν δεν είναι επιλεγμένο κείμενο. Αυτή η διαδικασία είναι μέρος του αμυντικού προγραμματισμού, όπου αναμένετε ότι δεν ξεκινά κάθε μακροεντολή υπό ιδανικές συνθήκες. Σε αυτήν την περίπτωση, μια μη ιδανική συνθήκη είναι όταν το κείμενο δεν είναι επιλεγμένο.