Hvordan ændres skrifttype og skriftstørrelse i alle tekstfelter i Word-dokument?
Denne artikel taler om at ændre skrifttype og skriftstørrelse i tekstfelter i det aktuelle dokument eller dokumenter i en bestemt mappe. Prøv VBA-metoden i artiklen.
Skift skrifttype og skriftstørrelse i tekstfelter i det aktuelle dokument
Skift skrifttype og skriftstørrelse i tekstfelter i alle dokumenter i en mappe
Skift skrifttype og skriftstørrelse i tekstfelter i det aktuelle dokument
For tekstfelterne ændrer du skrifttype og skriftstørrelse i det aktuelle dokument. Brug nedenstående VBA-kode for at løse problemet.
1. Tryk på andre + F11 nøgler til at åbne Microsoft Visual Basic til applikationer vindue.
2. i Microsoft Visual Basic til applikationer vindue, skal du klikke på indsatte > Moduler, og kopier derefter følgende kode i modulvinduet.
VBA-kode: Skift skrifttype og skriftstørrelse i alle tekstfelter i det aktuelle dokument
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
Bemærk: I koden, “Arial"Og"20”Er den specificerede skrifttype og skriftstørrelse i mit tilfælde. Du kan ændre dem ud fra dine egne behov.
3. Tryk på F5 nøgle for at køre koden. Derefter ændres alle teksters skrifttype og skriftstørrelse i tekstfelterne til den angivne skrifttype og skriftstørrelse. Se skærmbillede:
Skift skrifttype og skriftstørrelse i alle tekstfelter i alle dokumenter i en mappe
For at ændre tekstfelters skrifttype og skriftstørrelse i bulk i flere Word-dokumenter skal du anvende nedenstående VBA-kode.
1. Saml venligst alle måldokumenter, der indeholder tekstfelter, du vil ændre skrifttype og skriftstørrelse under den samme mappe.
2. I et åbent Word-dokument skal du trykke på andre + F11 nøgler til at åbne Microsoft Visual Basic til applikationer vindue.
3. i Microsoft Visual Basic til applikationer vindue, skal du klikke på indsatte > Moduler, og kopier derefter følgende kode i modulvinduet.
VBA-kode: Skift skrifttype og skriftstørrelse i tekstbokse i flere dokumenter
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. Tryk på F5 nøgle for at køre koden. I åbningen Gennemse vindue, vælg mappen (indeholder dokumenter, du vil ændre skrifttype og skriftstørrelse i tekstfelterne) og klik på OK .
Derefter ændres alle tekstfelters skrifttype og skriftstørrelse for dokumenter i den valgte mappe til den angivne skrifttype og skriftstørrelse.
Bedste kontorproduktivitetsværktøjer
Kutools for Word - Forøg din Word-oplevelse med Over 100 Bemærkelsesværdige funktioner!
Dyk ned i de fremhævede funktioner nedenfor eller klik her for at udforske den fulde kraft af Kutools for Word.
📘 Dokumentbeherskelse: Opdelt sider / Flet dokumenter / Eksporter udvalg i forskellige formater (PDF/TXT/DOC/XLSX) / Batch Konverter til PDF / Eksporter sider som billeder / Udskriv flere filer på én gang ...
✏ Indholdsredigering: Batch Find og erstat på tværs af flere filer / Ændr størrelse på alle billeder / Transponer tabelrækker og kolonner / Konverter tabel til tekst ...
🧹 Ubesværet rengøring: Fej væk Ekstra pladser / Afsnit bryder / Alle overskrifter / Tekstbokse / Hyperlinks / For flere fjernelsesværktøjer, gå til vores Fjerngruppe
➕ Kreative indlæg: indsatte Tusind adskillere / Afkrydsningsfelter / Radio knapper / QR kode / Stregkode / Diagonal linjebord / Ligningstekst / Billede Caption / Tabeltekst / Flere billeder / Opdag mere i vores Indsæt-gruppe
???? Præcisionsvalg: Find bestemte sider / tabeller / former / overskrifter / Naviger nemt ved hjælp af vores udvalgte gruppe
⭐ Stjerneforbedringer: Naviger hurtigt til ethvert sted / automatisk indsæt gentagende tekst / skifte problemfrit mellem dokumentvinduer / 11 Konverteringsværktøjer ...
Transformer dine Word-opgaver med Kutools. 👉 Download med 30-dages prøveversion nu 🚀.
