Πώς να αλλάξετε το μέγεθος της γραμματοσειράς και της γραμματοσειράς σε όλα τα πλαίσια κειμένου στο έγγραφο του 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 για το Word - Βελτιώστε την εμπειρία σας στο Word με το Over 100 Αξιοσημείωτα χαρακτηριστικά!

🤖 Kutools AI Assistant: Μεταμορφώστε το γραπτό σας με AI - Δημιουργία Περιεχομένου  /  Ξαναγράψτε το κείμενο  /  Συνοψίστε τα έγγραφα  /  Ζητήστε πληροφορίες με βάση το Έγγραφο, όλα μέσα στο Word

📘 Κυριαρχία εγγράφων: Διαίρεση σελίδων  /  Συγχώνευση εγγράφων  /  Εξαγωγή επιλογής σε διάφορες μορφές (PDF/TXT/DOC/HTML...)  /  Μαζική μετατροπή σε PDF  /  Εξαγωγή σελίδων ως εικόνες  /  Εκτύπωση πολλών αρχείων ταυτόχρονα...

✏ Επεξεργασία Περιεχομένων: Μαζική εύρεση και αντικατάσταση σε πολλά αρχεία  /  Αλλαγή μεγέθους όλων των εικόνων  /  Μεταφορά σειρών και στηλών πίνακα  /  Μετατροπή πίνακα σε κείμενο...

🧹 Καθαρισμός χωρίς κόπο: Σαρώστε μακριά Επιπλέον χώροι  /  Διακοπές ενότητας  /  Όλες οι κεφαλίδες  /  Κουτιά κειμένου  /  Υπερ-συνδέσεις  / Για περισσότερα εργαλεία αφαίρεσης, κατευθυνθείτε στο δικό μας Κατάργηση ομάδας...

➕ Δημιουργικά ένθετα: Εισάγετε Χιλιάδες Διαχωριστές  /  Πλαίσια ελέγχου  /  Κουμπιά ραδιοφώνου  /  QR Code  /  barcode  /  Διαγώνιος γραμμικός πίνακας  /  Λεζάντα εξίσωσης  /  Λεζάντα εικόνας  /  Λεζάντα πίνακα  /  Πολλαπλές εικόνες  / Ανακαλύψτε περισσότερα στο Εισαγωγή ομάδας...

🔍 Επιλογές Ακρίβειας: Επισήμανση συγκεκριμένες σελίδες  /  πίνακες  /  σχήματα  /  επικεφαλίδες παραγράφους  / Βελτιώστε την πλοήγηση με περισσότερο Επιλέξτε χαρακτηριστικά...

⭐ Βελτιώσεις αστεριών: Πλοηγηθείτε γρήγορα σε οποιαδήποτε τοποθεσία  /  αυτόματη εισαγωγή επαναλαμβανόμενου κειμένου  /  εναλλαγή μεταξύ των παραθύρων εγγράφων  /  11 Εργαλεία μετατροπής...

???? Θέλετε να δοκιμάσετε αυτές τις δυνατότητες; Το Kutools για το Word προσφέρει α Δωρεάν δοκιμαστική περίοδο 60, χωρίς περιορισμούς! 🚀

Δωρεάν κατέβασμα     Δείτε Περισσότερα     Άμεση αγορά