Πώς να αλλάξετε το μέγεθος της γραμματοσειράς και της γραμματοσειράς σε όλα τα πλαίσια κειμένου στο έγγραφο του 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, συλλογή εργαλείων για κοινές μετατροπές και επιλογή και ούτω καθεξής ...

Δείτε Περισσότερα Κατεβάστε τώρα Αγορά