Jak změnit písmo a velikost písma ve všech textových polích v dokumentu Word?
Tento článek hovoří o změně písma a velikosti písma v textových polích v aktuálním dokumentu nebo dokumentech ve stanovené složce. Vyzkoušejte metodu VBA v článku.
Změňte písmo a velikost písma v textových polích v aktuálním dokumentu
Změňte písmo a velikost písma v textových polích všech dokumentů ve složce
Změňte písmo a velikost písma v textových polích v aktuálním dokumentu
U textových polí, která změníte písmo a velikost písma v aktuálním dokumentu, použijte k vyřešení problému níže uvedený kód VBA.
1. zmáčkni Další + F11 klávesy pro otevření Microsoft Visual Basic pro aplikace okno.
2. V Microsoft Visual Basic pro aplikace okno, klepněte na tlačítko Vložit > Modula potom zkopírujte následující kód do okna modulu.
Kód VBA: Změňte písmo a velikost písma ve všech textových polích v aktuálním dokumentu
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
Poznámka: V kódu, “Arial"A"20„Je v mém případě zadané písmo a velikost písma. Můžete je změnit na základě svých vlastních potřeb.
3. zmáčkni F5 klíč ke spuštění kódu. Poté se písmo a velikost písma všech textů v textových polích změní na zadané písmo a velikost písma. Viz screenshot:
Změňte písmo a velikost písma ve všech textových polích všech dokumentů ve složce
Chcete-li hromadně měnit písmo a velikost písma textových polí ve více dokumentech Word, musíte použít níže uvedený kód VBA.
1. Shromážděte prosím všechny cílové dokumenty, které obsahují textová pole, ve stejné složce změníte písmo a velikost písma.
2. V úvodním dokumentu Word stiskněte Další + F11 klávesy pro otevření Microsoft Visual Basic pro aplikace okno.
3. V Microsoft Visual Basic pro aplikace okno, klepněte na tlačítko Vložit > Modula potom zkopírujte následující kód do okna modulu.
Kód VBA: Změňte písmo a velikost písma v textových polích více dokumentů
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. zmáčkni F5 klíč ke spuštění kódu. V otvoru Procházet v okně vyberte složku (obsahuje dokumenty, v textových polích změníte písmo a velikost písma) a klikněte na OK .
Poté se změní písmo a velikost písma všech textových polí ve vybrané složce na zadané písmo a velikost písma.
Nejlepší nástroje pro produktivitu v kanceláři
Kutools pro Word - Zvyšte své zkušenosti se slovem Over 100 Pozoruhodné vlastnosti!
🤖 Kutools AI asistent: Transformujte své psaní pomocí AI - Generovat obsah / Přepsat text / Shrnout dokumenty / Vyžádejte si informace na základě dokumentu, vše ve Wordu
📘 Mistrovství dokumentů: Rozdělit stránky / Sloučit dokumenty / Exportovat výběr v různých formátech (PDF/TXT/DOC/HTML...) / Dávkový převod do PDF / Exportujte stránky jako obrázky / Tisk více souborů najednou...
✏ Úprava obsahu: Dávkové hledání a nahrazení přes více souborů / Změnit velikost všech obrázků / Transponujte řádky a sloupce tabulky / Převést tabulku na text...
🧹 Čištění bez námahy: Smést pryč Extra prostory / Sekce přestávky / Všechny záhlaví / Textová pole / Odkazy / Další nástroje pro odstraňování naleznete u nás Odstranit skupinu...
➕ Kreativní vložky: Vložit Tisíc separátorů / Zaškrtávací políčka / Tlačítka rádia / QR kód / čárový kód / Tabulka diagonálních čar / Titulek rovnice / Titulek obrázku / Titulek tabulky / Více obrázků / Objevte více v Vložit skupinu...
???? Přesné výběry: Přesně konkrétní stránky / Tabulky / Tvary / nadpisové odstavce / Vylepšete navigaci pomocí vice Vyberte funkce...
⭐ Vylepšení hvězd: Navigujte rychle na libovolné místo / automatické vkládání opakujícího se textu / plynule přepínat mezi okny dokumentů / 11 Konverzní nástroje...