Πώς να γράψετε μακροεντολές Word 2016 για να αλλάξετε στοιχεία κειμένου

Όταν εργάζεστε με έγγραφα στο Word 2016, ειδικά με μεγαλύτερα, θα θέλετε την επιπλέον ευκολία και λειτουργικότητα των μακροεντολών που μπορούν να εναλλάσσουν λέξεις κειμένου, φράσεις ή στοιχεία. Για να δημιουργήσετε μακροεντολές, θα χρειαστείτε πιθανώς τη γλώσσα προγραμματισμού της Visual Basic for Applications (VBA), η οποία είναι τεράστια, πολύπλοκη και εκφοβιστική. Αυτό σημαίνει ότι έχει μεγάλες δυνατότητες, αλλά δεν είναι κάτι που θα καθίσετε και θα μάθετε σε ένα χαλαρό απόγευμα.

Ακολουθούν μερικές μακροεντολές "ανταλλαγής" που θα σας βοηθήσουν να ξεκινήσετε την προσαρμογή της εμπειρίας σας στο Word.

Εναλλαγή λέξεων στο Word 2016

Εδώ είναι μια εύχρηστη μακροεντολή που πιθανότατα θα χρησιμοποιείτε όλη την ώρα. Η μακροεντολή word_swap ανταλλάσσει δύο λέξεις. Κόβει την πρώτη λέξη και μετά την επικολλά μετά τη δεύτερη λέξη:

Sub word_swap()

'

' word_swap Macro

' Εναλλαγή δύο λέξεων, αριστερά-δεξιά

'

Selection.MoveRight Unit:=wdWord, Count:=1, Extend:=wdExtend

Selection.Cut

Selection.MoveRight Unit:=wdWord, Count:=1

Selection.Paste

End Sub

Αυτά τα πλήκτρα καταγράφηκαν για τη δημιουργία αυτής της μακροεντολής:

Ctrl+Shift+ →
Επιλέγεται η λέξη στα δεξιά του δρομέα.

Ctrl+X
Η λέξη κόβεται.

Ctrl+ →
Ο κέρσορας μετακινείται μετά τη δεύτερη λέξη.

Ctrl+V
Η αρχική λέξη έχει επικολληθεί.

Οι μακροεντολές του Word δεν μπορούν να καταγράψουν κλικ του ποντικιού. Όταν πρέπει να επιλέξετε κείμενο, χρησιμοποιήστε τα πλήκτρα του δρομέα συν το πλήκτρο Shift ή χρησιμοποιήστε το πλήκτρο F8 (εκτεταμένη επιλογή).

Επίσης, για να λειτουργήσει αυτή η μακροεντολή, ο δείκτης εισαγωγής πρέπει να βρίσκεται στην αρχή της πρώτης λέξης.

Και/ή ανταλλαγή λέξεων στο Word 2016

Μια άλλη μακροεντολή ανταλλαγής λέξεων που πιθανότατα θα χρησιμοποιείτε συχνά τη μακροεντολή and_or_word_swap . Σε αντίθεση με μια κανονική ανταλλαγή λέξεων, ο στόχος με αυτήν τη μακροεντολή είναι να ανταλλάξετε λέξεις και στις δύο πλευρές ενός συνδέσμου. Για παράδειγμα, αλλαγή αυτού ή εκείνου σε εκείνο ή αυτό.

Όπως και με τη μακροεντολή word_swap , αυτή η μακροεντολή καταγράφηκε από την είσοδο πληκτρολόγησης:

Sub and_or_word_swap()

'

' and_or_word_swap Μακροεντολή

' Ανταλλάξτε δύο λέξεις σε συνδυασμό

'

Selection.MoveRight Unit:=wdWord, Count:=1, Extend:=wdExtend

Selection.Cut

Selection.MoveRight Unit:=wdWord, Count:=1

Selection.Paste

Selection.MoveRight Unit:=wdWord, Count:=1, Extend:=wdExtend

Selection.Cut

Selection.MoveLeft Unit:=wdWord, Count:=2

Selection.Paste

End Sub

Ακολουθούν τα πλήκτρα που χρησιμοποιούνται για την εγγραφή αυτής της μακροεντολής:

Ctrl+Shift+ →

Ctrl+X
Η πρώτη λέξη κόβεται.

Ctrl+ →
Ο δείκτης εισαγωγής αναπηδά πάνω από το σύνδεσμο και ή ή.

Ctrl+V
Η λέξη επικολλάται μετά τον σύνδεσμο.

Ctrl+Shift+ →

Ctrl+X
Η λέξη μετά τον σύνδεσμο (τώρα μετά την πρώτη λέξη που επικολλήσατε στο Βήμα 4) επιλέγεται και κόβεται.

Ctrl+ ← , Ctrl+ ←
Ο κέρσορας επιστρέφει ακριβώς πριν από τη σύνδεση.

Ctrl+V
Η δεύτερη λέξη επικολλάται.

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

Για να είναι αποτελεσματική αυτή η μακροεντολή, ο δείκτης εισαγωγής πρέπει να αναβοσβήνει στην αρχή της πρώτης λέξης.

Αλλάξτε προτάσεις στο Word 2016

Ακριβώς όπως μπορείτε να ανταλλάξετε δύο λέξεις στη σειρά, μπορείτε επίσης να ανταλλάξετε δύο προτάσεις. Η μακροεντολή swap_sentences κάνει ακριβώς αυτό. Και, όπως σε άλλες μακροεντολές χειρισμού κειμένου, χρησιμοποιήστε το πληκτρολόγιο — όχι το ποντίκι — για να επιλέξετε κείμενο.

Στον παρακάτω κώδικα, η εντολή Selection.Extend αντιπροσωπεύει το πάτημα του πλήκτρου F8 στο πληκτρολόγιο. Όταν πατάτε αυτό το πλήκτρο τρεις φορές, επιλέγεται μια πρόταση.

Sub swap_sentences()

'

' swap_sentences Macro

Ανταλλάξτε δύο προτάσεις

«

Selection.Extend

Selection.Extend

Selection.Extend

Selection.Cut

Selection.Extend

Selection.Extend

Selection.Extend

Selection.EscapeKey

Selection.MoveRight Unit:=wdCharacter, Count:=1

Selection.Paste

End Sub

Ακολουθούν τα πλήκτρα που καταγράφονται για τη δημιουργία της μακροεντολής swap_sentences :

F8, F8, F8
Επιλέγεται η τρέχουσα πρόταση.

Ctrl+X

F8, F8, F8
Επιλέγεται η επόμενη πρόταση.

Esc, →
Η επιλογή ακυρώνεται και ο δείκτης εισαγωγής τοποθετείται στην αρχή της επόμενης πρότασης.

Ctrl+V
Η πρώτη πρόταση επικολλάται μετά τη δεύτερη πρόταση.

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

Εναλλαγή κειμένου κεφαλίδας και υποσέλιδου στο Word 2016

Η μακροεντολή swap_header_footer ανταλλάσσει το κείμενο της κεφαλίδας και το κείμενο του υποσέλιδου του εγγράφου. Θα μπορούσατε να ολοκληρώσετε αυτήν τη διαδικασία με μη αυτόματο τρόπο, αλλά το πρόβλημα είναι ότι η μακροεντολή δεν καταγράφει με ακρίβεια όλες τις ενέργειες. Έτσι, παρόλο που μπορείτε να καταγράψετε τις βασικές πληκτρολογήσεις, πρέπει να επιστρέψετε στο πρόγραμμα επεξεργασίας της Visual Basic για να ολοκληρώσετε τη μακροεντολή:

Sub swap_header_footer()

'

' swap_header_footer Μακροεντολή

' Ανταλλαγή κειμένου κεφαλίδας/υποσέλιδου

'

Εάν ActiveWindow.View.SplitSpecial <> wdPaneNone Στη συνέχεια

ActiveWindow.Panes(2).Κλείσιμο

άκρου Εάν

ActiveWindow.ActivePane.ViewdNormalView. _

ActivePane.View.Type = wdOutlineView Στη συνέχεια

ActiveWindow.ActivePane.View.Type = wdPrintView

End If

ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader

Selection.WholeStory

Selection.Cut

ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter

Selection.HomeKey Μονάδα: = wdLine

Selection.Paste

Selection.EndKey Unit:=wdLine, Extend:=wdExtend

Selection.Cut

ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader

Selection.Paste

ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument

End Sub

Το συνολικό αποτέλεσμα αυτής της μακροεντολής είναι η επεξεργασία της κεφαλίδας του εγγράφου, η επιλογή και η αποκοπή όλου αυτού του κειμένου και, στη συνέχεια, η μετάβαση στο υποσέλιδο. Μόλις μπει στο υποσέλιδο, επικολλάται το κείμενο της κεφαλίδας και, στη συνέχεια, επιλέγεται και κόβεται το κείμενο του υποσέλιδου. Η μακροεντολή επιστρέφει στην κεφαλίδα και επικολλά το κείμενο του υποσέλιδου. Στη συνέχεια, η μακροεντολή κλείνει την κεφαλίδα.