Πώς να μετατρέψετε τα σχόλια σε υποσημειώσεις ή τελικές σημειώσεις στο Microsoft Word;
Ας υποθέσουμε ότι υπάρχουν πολλά σχόλια στο έγγραφο του Word, πώς μπορείτε να μετατρέψετε όλα αυτά τα σχόλια σε υποσημειώσεις ή τελικές σημειώσεις ταυτόχρονα; Αυτό το άρθρο παρέχει μεθόδους VBA για την επίτευξή του.
Μετατροπή σχολίων σε υποσημειώσεις ή υποσημειώσεις με κωδικό VBA
Μετατροπή σχολίων σε υποσημειώσεις ή υποσημειώσεις με κωδικό VBA
Οι παρακάτω κωδικοί VBA μπορούν να σας βοηθήσουν να μετατρέψετε γρήγορα όλα τα σχόλια στο τρέχον έγγραφο σε υποσημειώσεις ή υποσημειώσεις. Κάντε τα εξής:
1. Ανοίξτε το έγγραφο που περιέχει σχόλια που θα μετατρέψετε σε υποσημειώσεις ή τελικές σημειώσεις, πατήστε το άλλος + F11 για να ανοίξετε το Microsoft Visual Basic για εφαρμογές παράθυρο.
2. Στο Microsoft Visual Basic για εφαρμογές παράθυρο, κάντε κλικ στην επιλογή Κύριο θέμα > Μονάδα μέτρησης. Στη συνέχεια, αντιγράψτε κάτω από τον κώδικα VBA στο παράθυρο Module.
Κωδικός VBA: Μετατροπή σχολίων σε υποσημειώσεις:
Sub ConvertCommentsToFootnotes()
Dim xComm As Comment
Dim xCommRange As Range
Dim xDoc As Document
Application.ScreenUpdating = False
Set xDoc = ActiveDocument
For Each xComm In xDoc.Comments
Set xCommRange = xComm.Range
xDoc.Footnotes.Add xComm.Scope, , xCommRange.Text
xComm.Delete
Next
Application.ScreenUpdating = True
End Sub
Κωδικός VBA: Μετατροπή σχολίων σε τελικές σημειώσεις:
Sub ConvertCommentsToEndnotes()
Dim xComm As Comment
Dim xCommRange As Range
Dim xDoc As Document
Application.ScreenUpdating = False
Set xDoc = ActiveDocument
For Each xComm In xDoc.Comments
Set xCommRange = xComm.Range
xDoc.Endnotes.Add xComm.Scope, , xCommRange.Text
xComm.Delete
Next
Application.ScreenUpdating = True
End Sub
3. Πάτα το F5 κλειδί για την εκτέλεση του κώδικα.
Στη συνέχεια, όλα τα σχόλια στο τρέχον έγγραφο μετατρέπονται σε υποσημειώσεις ή τελικές σημειώσεις με βάση τον κώδικα VBA που εφαρμόσατε.
Σχετικά άρθρα:
- Πώς μπορείτε να προσθέσετε νέα σελίδα ή κείμενο μετά από σημειώσεις σε ένα έγγραφο του Word;
- Πώς να επιλέξετε όλες τις υποσημειώσεις σε ένα έγγραφο του Word;
Τα καλύτερα εργαλεία παραγωγικότητας γραφείου
Kutools για το Word - Βελτιώστε την εμπειρία σας στο Word με το Over 100 Αξιοσημείωτα χαρακτηριστικά!
🤖 Kutools AI Assistant: Μεταμορφώστε το γραπτό σας με AI - Δημιουργία Περιεχομένου / Ξαναγράψτε το κείμενο / Συνοψίστε τα έγγραφα / Ζητήστε πληροφορίες με βάση το Έγγραφο, όλα μέσα στο Word
📘 Κυριαρχία εγγράφων: Διαίρεση σελίδων / Συγχώνευση εγγράφων / Εξαγωγή επιλογής σε διάφορες μορφές (PDF/TXT/DOC/HTML...) / Μαζική μετατροπή σε PDF / Εξαγωγή σελίδων ως εικόνες / Εκτύπωση πολλών αρχείων ταυτόχρονα...
✏ Επεξεργασία Περιεχομένων: Μαζική εύρεση και αντικατάσταση σε πολλά αρχεία / Αλλαγή μεγέθους όλων των εικόνων / Μεταφορά σειρών και στηλών πίνακα / Μετατροπή πίνακα σε κείμενο...
🧹 Καθαρισμός χωρίς κόπο: Σαρώστε μακριά Επιπλέον χώροι / Διακοπές ενότητας / Όλες οι κεφαλίδες / Κουτιά κειμένου / Υπερ-συνδέσεις / Για περισσότερα εργαλεία αφαίρεσης, κατευθυνθείτε στο δικό μας Κατάργηση ομάδας...
➕ Δημιουργικά ένθετα: Εισάγετε Χιλιάδες Διαχωριστές / Πλαίσια ελέγχου / Κουμπιά ραδιοφώνου / QR Code / barcode / Διαγώνιος γραμμικός πίνακας / Λεζάντα εξίσωσης / Λεζάντα εικόνας / Λεζάντα πίνακα / Πολλαπλές εικόνες / Ανακαλύψτε περισσότερα στο Εισαγωγή ομάδας...
🔍 Επιλογές Ακρίβειας: Επισήμανση συγκεκριμένες σελίδες / πίνακες / σχήματα / επικεφαλίδες παραγράφους / Βελτιώστε την πλοήγηση με περισσότερο Επιλέξτε χαρακτηριστικά...
⭐ Βελτιώσεις αστεριών: Πλοηγηθείτε γρήγορα σε οποιαδήποτε τοποθεσία / αυτόματη εισαγωγή επαναλαμβανόμενου κειμένου / εναλλαγή μεταξύ των παραθύρων εγγράφων / 11 Εργαλεία μετατροπής...