Πώς να αυξήσετε το κείμενο στο Word 2016

Όταν γράφετε στο 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 για να διασφαλιστεί ότι η μακροεντολή δεν εμφανίζει ένα άσχημο μήνυμα σφάλματος όταν δεν είναι επιλεγμένο κείμενο. Αυτή η διαδικασία είναι μέρος του αμυντικού προγραμματισμού, όπου αναμένετε ότι δεν ξεκινά κάθε μακροεντολή υπό ιδανικές συνθήκες. Σε αυτήν την περίπτωση, μια μη ιδανική συνθήκη είναι όταν το κείμενο δεν είναι επιλεγμένο.