Πώς να αλλάξετε το μέγεθος της γραμματοσειράς και της γραμματοσειράς σε όλα τα πλαίσια κειμένου στο έγγραφο του 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 κουμπί.
Στη συνέχεια, η γραμματοσειρά όλων των κειμένων και το μέγεθος γραμματοσειράς των εγγράφων στον επιλεγμένο φάκελο αλλάζουν στο καθορισμένο μέγεθος γραμματοσειράς και γραμματοσειράς.
Συνιστώμενα εργαλεία παραγωγικότητας του Word
Kutools For Word - Περισσότερες από 100 προηγμένες λειτουργίες του Word, εξοικονομήστε 50% χρόνο
- Περίπλοκες και επαναλαμβανόμενες λειτουργίες μπορούν να γίνουν μία φορά επεξεργασία σε δευτερόλεπτα.
- Εισαγάγετε πολλές εικόνες στους φακέλους στο έγγραφο του Word ταυτόχρονα.
- Συγχώνευση και συνδυασμός πολλαπλών αρχείων Word σε όλους τους φακέλους σε ένα με την επιθυμητή σειρά.
- Διαχωρίστε το τρέχον έγγραφο σε ξεχωριστά έγγραφα σύμφωνα με την επικεφαλίδα, το τμήμα αλλαγής ή άλλα κριτήρια.
- Μετατροπή αρχείων μεταξύ Doc και Docx, Docx και PDF, συλλογή εργαλείων για κοινές μετατροπές και επιλογή και ούτω καθεξής ...