Tipp: Az egyéb nyelvek a Google Fordítva vannak. Látogasson el a English a link verziója.
Belépek
x
or
x
x
Regisztráció
x

or

Hogyan módosíthatja a betűtípust és betűméretet a Word dokumentum összes szövegdobozában?

Ez a cikk a betű és betűméret megváltoztatásáról szól az aktuális dokumentumban vagy dokumentumokban egy megadott mappában. Próbáld ki a VBA módszerrel a cikket.

Módosítsa a betűtípus és a betűméretet a szövegdobozokban az aktuális dokumentumban

Módosítsa a betűtípus és betűméretet a mappában lévő összes dokumentum szövegdobozában


Módosítsa a betűtípus és a betűméretet a szövegdobozokban az aktuális dokumentumban

A szövegdobozok esetén megváltoztatjuk a betűméretet és a betűméretet az aktuális dokumentumban, kérjük, használja 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: A betű és betűméret módosítása az aktuális dokumentum összes szövegdobozában

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"A megadott betűtípus és betűméret az én esetemben. Megváltoztathatja őket a saját igényei alapján.

3. megnyomni a F5 kulcs a kód futtatásához. Ezután a szövegdobozok betűtípusa és betűmérete a megadott betűméretre és betűméretre változik. Lásd a képernyőképet:


Módosítsa a betűtípust és a betűméretet minden mappában lévő összes dokumentum szövegdobozában

A szövegdobozok betűtípusának és betűméretének módosítása több Word dokumentumban, az alábbi VBA kódot kell alkalmazni.

1. Kérjük, gyűjtsön össze minden olyan szövegcímet tartalmazó céldokumentumot, amelyik a betűtípust és a betűméretet ugyanabban a mappában módosítja.

2. Egy nyitó Word dokumentumban nyomja meg a 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: A betű és betűméret módosítása több dokumentum szövegdobozában

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 kulcs a kód futtatásához. A nyitóban Tallózás ablakban válassza ki a mappát (amely tartalmazza a betűtípus és betűméret megváltoztatását a szövegdobozokban), majd kattintson a OK gombot.

Ezután a kiválasztott mappában lévő összes betűtípus és betűméret megváltozik a megadott betűméretre és betűméretre.



Kutools for Word

Több mint 100 Fejlett funkciók a Word 2003, 2007, 2010, 2013, 2016 és 2019

shot-kutools-700-225-KTE

További funkciók | ingyenes letöltés | Csak $ 39.00 több száz funkcióért

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.