Πώς να κεφαλαιοποιήσετε το πρώτο γράμμα μετά από άνω και κάτω τελεία σε ένα έγγραφο του Word;
Εάν πρέπει να κεφαλαιοποιήσετε τα πρώτα γράμματα μετά από τελεία σε ένα έγγραφο του Word, η αλλαγή τους ένα προς ένα χειροκίνητα δεν θα είναι καλή επιλογή. Αυτό το άρθρο, θα μιλήσω για έναν τρόπο αλλαγής του πρώτου πεζού σε κεφαλαίο γράμμα μετά τα άνω και κάτω τελεία το συντομότερο δυνατό.
Κεφαλαιοποιήστε τα πρώτα γράμματα μετά τελεία με κωδικό VBA σε ένα έγγραφο του Word
Κεφαλαιοποιήστε τα πρώτα γράμματα μετά τελεία με κωδικό VBA σε ένα έγγραφο του Word
Ο παρακάτω κώδικας VBA μπορεί να σας βοηθήσει να γράψετε κεφαλαία όλα τα πρώτα γράμματα μετά τα άνω και κάτω τελεία σε ολόκληρο το έγγραφο του Word, κάντε το ως εξής:
1. Κρατήστε πατημένο το ALT + F11 για να ανοίξετε το Microsoft Visual Basic για εφαρμογές παράθυρο.
2. Κλίκ Κύριο θέμα > Μονάδα μέτρησηςκαι επικολλήστε τον ακόλουθο κώδικα στο παράθυρο της ενότητας.
Κωδικός VBA: Κεφαλαιοποιήστε τα πρώτα γράμματα μετά από τελεία:
Sub CapitalizeWordAfterColon()
Application.ScreenUpdating = False
Selection.HomeKey wdStory
With Selection.Find
.ClearFormatting
.Text = ": ([a-z])"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchWholeWord = False
.MatchSoundsLike = False
.MatchCase = False
.MatchWildcards = True
.MatchAllWordForms = False
With .Replacement.Font
.AllCaps = True
.SmallCaps = False
End With
End With
Selection.Find.Execute Replace:=wdReplaceAll
Application.ScreenUpdating = True
End Sub
3. Στη συνέχεια, πατήστε F5 κλειδί για την εκτέλεση αυτού του κώδικα και όλα τα πρώτα γράμματα μετά την τελική αλλαγή των τελών σε κεφαλαία γράμματα, δείτε το στιγμιότυπο οθόνης:
Τα καλύτερα εργαλεία παραγωγικότητας γραφείου
Kutools για το Word - Βελτιώστε την εμπειρία σας στο Word με το Over 100 Αξιοσημείωτα χαρακτηριστικά!
🤖 Kutools AI Assistant: Μεταμορφώστε το γραπτό σας με AI - Δημιουργία Περιεχομένου / Ξαναγράψτε το κείμενο / Συνοψίστε τα έγγραφα / Ζητήστε πληροφορίες με βάση το Έγγραφο, όλα μέσα στο Word
📘 Κυριαρχία εγγράφων: Διαίρεση σελίδων / Συγχώνευση εγγράφων / Εξαγωγή επιλογής σε διάφορες μορφές (PDF/TXT/DOC/HTML...) / Μαζική μετατροπή σε PDF / Εξαγωγή σελίδων ως εικόνες / Εκτύπωση πολλών αρχείων ταυτόχρονα...
✏ Επεξεργασία Περιεχομένων: Μαζική εύρεση και αντικατάσταση σε πολλά αρχεία / Αλλαγή μεγέθους όλων των εικόνων / Μεταφορά σειρών και στηλών πίνακα / Μετατροπή πίνακα σε κείμενο...
🧹 Καθαρισμός χωρίς κόπο: Σαρώστε μακριά Επιπλέον χώροι / Διακοπές ενότητας / Όλες οι κεφαλίδες / Κουτιά κειμένου / Υπερ-συνδέσεις / Για περισσότερα εργαλεία αφαίρεσης, κατευθυνθείτε στο δικό μας Κατάργηση ομάδας...
➕ Δημιουργικά ένθετα: Εισάγετε Χιλιάδες Διαχωριστές / Πλαίσια ελέγχου / Κουμπιά ραδιοφώνου / QR Code / barcode / Διαγώνιος γραμμικός πίνακας / Λεζάντα εξίσωσης / Λεζάντα εικόνας / Λεζάντα πίνακα / Πολλαπλές εικόνες / Ανακαλύψτε περισσότερα στο Εισαγωγή ομάδας...
🔍 Επιλογές Ακρίβειας: Επισήμανση συγκεκριμένες σελίδες / πίνακες / σχήματα / επικεφαλίδες παραγράφους / Βελτιώστε την πλοήγηση με περισσότερο Επιλέξτε χαρακτηριστικά...
⭐ Βελτιώσεις αστεριών: Πλοηγηθείτε γρήγορα σε οποιαδήποτε τοποθεσία / αυτόματη εισαγωγή επαναλαμβανόμενου κειμένου / εναλλαγή μεταξύ των παραθύρων εγγράφων / 11 Εργαλεία μετατροπής...