Hogyan lehet megváltoztatni a betűtípust és a betűméretet a Word dokumentum összes szövegmezőjében?

Ez a cikk a betűkészlet és a betűméret megváltoztatásáról szól az aktuális dokumentum vagy egy megadott mappában lévő dokumentumok szövegmezőiben. Kérjük, próbálja ki a VBA módszert a cikkben.

Módosítsa a betűtípust és a betűméretet az aktuális dokumentum szövegmezőiben

Változtassa meg a betűtípust és a betűméretet a mappában lévő összes dokumentum szövegmezőiben

Módosítsa a betűtípust és a betűméretet az aktuális dokumentum szövegmezőiben

Az aktuális dokumentum betűtípusát és betűméretét tartalmazó szövegdobozokhoz kérjük, alkalmazza az alábbi VBA kódot a probléma megoldásához.

1. megnyomni a más + F11 billentyűk megnyitásához Microsoft Visual Basic for Applications ablak.

2. Ban,-ben Microsoft Visual Basic for Applications ablakban kattintson betétlap > Modulok, majd másolja a következő kódot a Modul ablakba.

VBA-kód: Az aktuális dokumentum összes szövegmezőjében módosíthatja a betűtípust és a betűméretet

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

Megjegyzések: A kódban:Arial"És"20”Az esetemben a megadott betűtípus és betűméret. Megváltoztathatja őket saját igényei alapján.

3. megnyomni a F5 gombot a kód futtatásához. Ezután az összes szöveg betűtípusa és betűmérete a szövegdobozokban megváltozik a megadott betűtípusra és betűméretre. Lásd a képernyőképet:

Változtassa meg a betűtípust és a betűméretet a mappában található összes dokumentum összes szövegmezőjében

A szövegdobozok betűtípusának és betűméretének tömeges megváltoztatásához több Word dokumentumban az alábbi VBA kódot kell alkalmaznia.

1. Kérjük, gyűjtse össze az összes olyan céldokumentumot, amely szövegmezőket tartalmaz, és ugyanabban a mappában módosítja a betűtípust és a betűméretet.

2. Egy megnyíló Word dokumentumban nyomja meg a gombot más + F11 billentyűk megnyitásához Microsoft Visual Basic for Applications ablak.

3. Ban,-ben Microsoft Visual Basic for Applications ablakban kattintson betétlap > Modulok, majd másolja a következő kódot a Modul ablakba.

VBA kód: Változtassa meg a betűtípust és a betűméretet több dokumentum szövegmezőiben

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. megnyomni a F5 gombot a kód futtatásához. A megnyitón Tallózás ablakban válassza ki a mappát (olyan dokumentumokat tartalmaz, amelyeknél a szövegdobozokban megváltoztatja a betűtípust és a betűméretet), majd kattintson a gombra OK gombot.

Ezután az összes szövegmező betűje és a kiválasztott mappában lévő dokumentumok betűmérete a megadott betűtípusra és betűméretre változik.

---

Ajánlott Word-termelékenységi eszközök

 

Kutools For Word - Több mint 100 speciális szolgáltatás a Word számára, 50%-os időt takaríthat meg

• A bonyolult és ismételt műveletek másodpercek alatt egyszeri feldolgozást végezhetnek.
• Egyszerre több képet illesszen be a mappákba a Word dokumentumba.
• Egyesítsen és egyesítsen több Word-fájlt a mappák között a kívánt sorrenddel.
• Bontja az aktuális dokumentumot külön dokumentumokká címsor, szakasz törés vagy egyéb szempontok szerint.
• Fájlok konvertálása a Doc és a Docx, a Docx és a PDF között, a közös konverzióhoz és kiválasztáshoz szükséges eszközök gyűjteménye stb.

KATT ide Töltse le most Vásárlás