Ugrás a tartalomra

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.

A legjobb irodai hatékonyságnövelő eszközök

Kutools for Word - Növelje Word-élményét az Over segítségével 100 Figyelemre méltó tulajdonságok!

Merüljön el az alábbi kiemelt funkciókban vagy kattintson ide, hogy felfedezze a Kutools for Word teljes erejét.

📘 Dokumentummesterség: Felosztott oldalak  /  Dokumentumok egyesítése  /  Kijelölés exportálása különböző formátumokban (PDF/TXT/DOC/XLSX)  /  Kötegelt konvertálás PDF-be  /  Oldalak exportálása képként  /  Nyomtasson több fájlt egyszerre ...

Tartalom Szerkesztés: Kötegelt keresés és csere Több fájl között   /  Minden kép átméretezése   /  Transzponálja a táblázat sorait és oszlopait  /  Táblázat konvertálása szöveggé ...

🧹 Könnyed tisztításSöpörj el Extra helyek  /  Szakaszszünetek  /   Minden fejléc  /  Szövegdobozok  /  Hiperhivatkozások  /  További eltávolító eszközökért keresse fel az Eltávolítási csoportot

Kreatív betétek: betétlap Ezer elválasztó  /  Jelölőnégyzetek  /  Rádió gombok  /  QR-kód  /  Vonalkód  /  Átlós vonal táblázat  /  Egyenletfelirat  /  Képfelirat  /  Táblázat felirata  /  Több kép  /  Fedezzen fel többet a Beszúrás csoportunkban

???? Precíziós kiválasztás: Határozzon meg konkrét oldalakat  /  asztalok  /  formák  /  címsor bekezdései  /  A Select Group segítségével könnyedén navigálhat

Star Enhancements: Gyorsan navigáljon bármely helyre  /  ismétlődő szöveg automatikus beszúrása  /  zökkenőmentesen válthat a dokumentumablakok között  /  11 Konverziós eszközök ...

Alakítsa át Word feladatait a Kutools segítségével. 👉 Töltse le most 30 napos próbaverzióval 🚀.

 
Comments (1)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
This is an awesome post.Really very informative and creative contents. These concept is a good way to enhance the knowledge.I like it and help me to development very well.Thank you for this brief explanation and very nice information.Well, got a good knowledge.

Java Training in Chennai
Java Training in Coimbatore
Java Training in Bangalore
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations