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 SubMegjegyzé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 Sub4. 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!
🤖 Kutools AI asszisztens: Alakítsa át írását mesterséges intelligencia segítségével - Tartalom létrehozása / Szöveg átírása / Összefoglalja a dokumentumokat / Információért érdeklődjön dokumentum alapján, mindezt a Word-en belül
📘 Dokumentummesterség: Felosztott oldalak / Dokumentumok egyesítése / Kijelölés exportálása különböző formátumokban (PDF/TXT/DOC/HTML...) / 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ás: Söpörj el Extra helyek / Szakaszszünetek / Minden fejléc / Szövegdobozok / Hiperhivatkozások / További eltávolító eszközökért látogasson el a mi oldalunkra Csoport eltávolítása...
➕ Kreatív betétek: Beszúrás 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 Csoport beszúrása...
???? Precíziós kiválasztás: Pontosan konkrét oldalak / asztalok / formák / címsor bekezdései / A navigáció javítása a következővel: több Jelölje ki a funkciókat...
⭐ 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...
