Πώς να αλλάξετε το μέγεθος της γραμματοσειράς και της γραμματοσειράς σε όλα τα πλαίσια κειμένου στο έγγραφο του Word;
Αυτό το άρθρο αναφέρεται για την αλλαγή της γραμματοσειράς και του μεγέθους της γραμματοσειράς σε πλαίσια κειμένου στο τρέχον έγγραφο ή έγγραφα σε έναν καθορισμένο φάκελο. Δοκιμάστε τη μέθοδο VBA στο άρθρο.
Αλλάξτε τη γραμματοσειρά και το μέγεθος γραμματοσειράς σε πλαίσια κειμένου στο τρέχον έγγραφο
Αλλάξτε τη γραμματοσειρά και το μέγεθος γραμματοσειράς σε πλαίσια κειμένου στο τρέχον έγγραφο
Για τα πλαίσια κειμένου θα αλλάξετε τη γραμματοσειρά και το μέγεθος της γραμματοσειράς στο τρέχον έγγραφο, εφαρμόστε τον παρακάτω κώδικα VBA για να λύσετε το πρόβλημα.
1. Πάτα το άλλος + F11 για να ανοίξετε το Microsoft Visual Basic για εφαρμογές παράθυρο.
2. Στο Microsoft Visual Basic για εφαρμογές παράθυρο, κάντε κλικ στην επιλογή Κύριο θέμα > Μονάδα μέτρησηςκαι, στη συνέχεια, αντιγράψτε τον ακόλουθο κώδικα στο παράθυρο Module.
Κωδικός VBA: Αλλάξτε τη γραμματοσειρά και το μέγεθος της γραμματοσειράς σε όλα τα πλαίσια κειμένου στο τρέχον έγγραφο
Sub FormatTextsInTextBoxes()
'Updated by ExtendOffice 20181128
Dim I As Long
Dim xShape As Shape
Dim xDoc As Document
Set xDoc = ActiveDocument
On Error Resume Next
For Each xShape In xDoc.Shapes
xShape.Select
If xShape.GroupItems Is Nothing Then
With xShape.TextFrame.TextRange.Font
.Name = "Arial"
.Size = 20
End With
GoTo LblExit
End If
For I = 1 To xShape.GroupItems.Count
With xShape.GroupItems(I).TextFrame.TextRange.Font
.Name = "Arial"
.Size = 20
End With
Next
LblExit:
Next
End Sub
Note: Στον κώδικα, "Arial"Και"20Είναι το καθορισμένο μέγεθος γραμματοσειράς και γραμματοσειράς στην περίπτωσή μου. Μπορείτε να τα αλλάξετε με βάση τις δικές σας ανάγκες.
3. Πάτα το F5 κλειδί για την εκτέλεση του κώδικα. Στη συνέχεια, όλα τα γραμματοσειρά και το μέγεθος της γραμματοσειράς των κειμένων στα πλαίσια κειμένου αλλάζουν στο καθορισμένο μέγεθος γραμματοσειράς και γραμματοσειράς. Δείτε το στιγμιότυπο οθόνης:
Αλλάξτε τη γραμματοσειρά και το μέγεθος της γραμματοσειράς σε όλα τα πλαίσια κειμένου όλων των εγγράφων σε ένα φάκελο
Για να αλλάξετε μαζικά τη γραμματοσειρά και το μέγεθος της γραμματοσειράς σε πολλά έγγραφα του Word, πρέπει να εφαρμόσετε τον παρακάτω κώδικα VBA.
1. Συλλέξτε όλα τα έγγραφα-στόχους που περιέχουν πλαίσια κειμένου που θα αλλάξετε τη γραμματοσειρά και το μέγεθος της γραμματοσειράς στον ίδιο φάκελο.
2. Σε ένα εισαγωγικό έγγραφο του Word, πατήστε το άλλος + F11 για να ανοίξετε το Microsoft Visual Basic για εφαρμογές παράθυρο.
3. Στο Microsoft Visual Basic για εφαρμογές παράθυρο, κάντε κλικ στην επιλογή Κύριο θέμα > Μονάδα μέτρησηςκαι, στη συνέχεια, αντιγράψτε τον ακόλουθο κώδικα στο παράθυρο Module.
Κωδικός VBA: Αλλάξτε τη γραμματοσειρά και το μέγεθος γραμματοσειράς σε πλαίσια κειμένου πολλαπλών εγγράφων
Sub FormatTextsInTextBoxesInMultiDoc()
'Updated by ExtendOffice 20181128
Dim I As Long
Dim xShape As Shape
Dim xDlg As FileDialog
Dim xFolder As Variant
Dim xFileStr As String
On Error Resume Next
Set xDlg = Application.FileDialog(msoFileDialogFolderPicker)
If xDlg.Show = -1 Then
xFolder = xDlg.SelectedItems(1) + "\"
xFileStr = Dir(xFolder & "*.doc", vbNormal)
While xFileStr <> ""
Documents.Open xFolder & xFileStr
For Each xShape In ActiveDocument.Shapes
xShape.Select
If xShape.GroupItems Is Nothing Then
With xShape.TextFrame.TextRange.Font
.Name = "Arial"
.Size = 20
End With
GoTo LblExit
End If
For I = 1 To xShape.GroupItems.Count
With xShape.GroupItems(I).TextFrame.TextRange.Font
.Name = "Arial"
.Size = 20
End With
Next
LblExit:
Next
ActiveDocument.Save
ActiveDocument.Close
xFileStr = Dir()
Wend
End If
End Sub
4. Πάτα το F5 κλειδί για την εκτέλεση του κώδικα. Στο άνοιγμα Αναζήτηση παράθυρο, επιλέξτε το φάκελο (περιέχει έγγραφα που θα αλλάξετε γραμματοσειρά και μέγεθος γραμματοσειράς στα πλαίσια κειμένου) και κάντε κλικ στο OK κουμπί.
Στη συνέχεια, η γραμματοσειρά όλων των κειμένων και το μέγεθος γραμματοσειράς των εγγράφων στον επιλεγμένο φάκελο αλλάζουν στο καθορισμένο μέγεθος γραμματοσειράς και γραμματοσειράς.
Τα καλύτερα εργαλεία παραγωγικότητας γραφείου
Kutools for Word - Βελτιώστε την εμπειρία σας στο Word με το Over 100 Αξιοσημείωτα χαρακτηριστικά!
Βουτήξτε στις επισημασμένες λειτουργίες παρακάτω ή κάντε κλικ εδώ για να εξερευνήσετε την πλήρη ισχύ του Kutools for Word.
📘 Κυριαρχία εγγράφων: Διαίρεση σελίδων / Συγχώνευση εγγράφων / Εξαγωγή επιλογής σε διάφορες μορφές (PDF/TXT/DOC/XLSX) / Μαζική μετατροπή σε PDF / Εξαγωγή σελίδων ως εικόνες / Εκτύπωση πολλών αρχείων ταυτόχρονα ...
✏ Επεξεργασία Περιεχομένων: Μαζική εύρεση και αντικατάσταση σε πολλά αρχεία / Αλλαγή μεγέθους όλων των εικόνων / Μεταφορά σειρών και στηλών πίνακα / Μετατροπή πίνακα σε κείμενο ...
🧹 Καθαρισμός χωρίς κόπο: Σαρώστε μακριά Επιπλέον χώροι / Διακοπές ενότητας / Όλες οι κεφαλίδες / Κουτιά κειμένου / Υπερ-συνδέσεις / Για περισσότερα εργαλεία αφαίρεσης, κατευθυνθείτε στην Ομάδα κατάργησης
➕ Δημιουργικά ένθετα: Κύριο θέμα Χιλιάδες Διαχωριστές / Πλαίσια ελέγχου / Κουμπιά ραδιοφώνου / QR Code / barcode / Διαγώνιος γραμμικός πίνακας / Λεζάντα εξίσωσης / Λεζάντα εικόνας / Λεζάντα πίνακα / Πολλαπλές εικόνες / Ανακαλύψτε περισσότερα στην Ομάδα Εισαγωγής
🔍 Επιλογές Ακρίβειας: Εντοπίστε συγκεκριμένες σελίδες / πίνακες / σχήματα / επικεφαλίδες παραγράφους / Πλοηγηθείτε με ευκολία χρησιμοποιώντας την Ομάδα Επιλογής
⭐ Βελτιώσεις αστεριών: Πλοηγηθείτε γρήγορα σε οποιαδήποτε τοποθεσία / αυτόματη εισαγωγή επαναλαμβανόμενου κειμένου / εναλλαγή μεταξύ των παραθύρων εγγράφων / 11 Εργαλεία μετατροπής ...
Μεταμορφώστε τις εργασίες σας στο Word με το Kutools. 👉 Λήψη με δοκιμή 30 ημερών τώρα 🚀.
