Τα cookies μάς βοηθούν να παρέχουμε τις υπηρεσίες μας. Με τη χρήση των υπηρεσιών μας, συμφωνείτε με τη χρήση των cookies.
Συμβουλή: Άλλες γλώσσες μεταφράζονται από την Google. Μπορείτε να επισκεφθείτε το English έκδοση αυτής της σύνδεσης.
Σύνδεση
x
or
x
x
Κανω ΕΓΓΡΑΦΗ
x

or

Πώς να αλλάξετε τη γραμματοσειρά και το μέγεθος γραμματοσειράς σε όλα τα πλαίσια κειμένου στο έγγραφο του Word;

Αυτό το άρθρο μιλά για την αλλαγή της γραμματοσειράς και του μεγέθους γραμματοσειράς σε πλαίσια κειμένου σε τρέχον έγγραφο ή έγγραφα σε ένα συγκεκριμένο φάκελο. Δοκιμάστε τη μέθοδο VBA στο άρθρο.

Αλλάξτε τη γραμματοσειρά και το μέγεθος γραμματοσειράς σε πλαίσια κειμένου στο τρέχον έγγραφο

Αλλάξτε τη γραμματοσειρά και το μέγεθος γραμματοσειράς σε πλαίσια κειμένων όλων των εγγράφων σε ένα φάκελο


Αλλάξτε τη γραμματοσειρά και το μέγεθος γραμματοσειράς σε πλαίσια κειμένου στο τρέχον έγγραφο

Για τα πλαίσια κειμένου, θα αλλάξετε τη γραμματοσειρά και το μέγεθος γραμματοσειράς στο τρέχον έγγραφο, εφαρμόστε τον παρακάτω κώδικα VBA για να λύσετε το πρόβλημα.

1. Πάτα το άλλος + F11 για να ανοίξετε το Microsoft Visual Basic για εφαρμογές παράθυρο.

2. Στο Microsoft Visual Basic για εφαρμογές παράθυρο, κάντε κλικ στην επιλογή Κύριο θέμα > Μονάδα μέτρησης, και στη συνέχεια αντιγράψτε τον ακόλουθο κώδικα στο παράθυρο της ενότητας.

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

Κωδικός 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

Περισσότερες από τις προχωρημένες λειτουργίες 100 για Word 2003, 2007, 2010, 2013, 2016 και 2019

shot-kutools-700-225-ud

περισσότερα Χαρακτηριστικά | Δωρεάν κατέβασμα | Μόνο $ 39.00 για εκατοντάδες λειτουργίες

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.