Επιλογή και ταυτόχρονη μορφοποίηση όλων των εξισώσεων σε ένα αρχείο Word

[add2math]

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



Παρακάτω έχουμε τον κώδικα σε VBA για την επιλογή όλων των μαθηματικών εξισώσεων που έχουν δημιουργηθεί με τον equation editor σε ένα αρχείο Word.

Κώδικας: Επιλογή όλων

Sub SelectAllEquations()
Dim xMath As OMath
Dim I As Integer
With ActiveDocument
.DeleteAllEditableRanges wdEditorEveryone
For I = 1 To .OMaths.Count
Set xMath = .OMaths.Item(I)
xMath.Range.Editors.Add wdEditorEveryone
Next
.SelectAllEditableRanges wdEditorEveryone
.DeleteAllEditableRanges wdEditorEveryone
End With
End Sub

Για να τρέξετε τον κώδικα αυτόν σε ένα αρχείο Word, ακολουθήστε τα παρακάτω βήματα:
1. Ανοίξτε το αρχείο Word που θέλετε να επιλέξετε όλες τις εξισώσεις.
2. Πατήστε τα πλήκτρα “Alt + F11” για να ανοίξετε την επεξεργασία μακροεντολών.
3. Επιλέξτε “Insert” -> “Module” για να δημιουργήσετε ένα νέο module.
4. Αντιγράψτε και επικολλήστε τον παραπάνω κώδικα στο module.
5. Πατήστε το πλήκτρο “F5” για να εκτελέσετε τον κώδικα.

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

επιλογη εξισωσεων με VBA.png (74.05 KiB) Προβλήθηκε 494 φορές

Καλή επιτυχία!

ΥΓ: Ο κώδικας είναι δοκιμασμένος σε Word 2016, δεν έχει δοκιμαστεί για παλιότερες εκδόσεις του, λογικά δεν επιλέγει εξισώσεις που δημιουργήθηκαν μέσω του Mathtype.

ΥΓ2: 'thanx chatgpt for code