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.
Anbefalede Word-produktivitetsværktøjer
Kutools For Word - Mere end 100 avancerede funktioner til Word, spar 50 % tid
- Komplicerede og gentagne operationer kan udføres engangsbehandling på få sekunder.
- Indsæt flere billeder på tværs af mapper i Word-dokumentet på én gang.
- Flet og kombiner flere Word-filer på tværs af mapper i en med den ønskede rækkefølge.
- Opdel det aktuelle dokument i separate dokumenter efter overskrift, sektionsskift eller andre kriterier.
- Konverter filer mellem Doc og Docx, Docx og PDF, samling af værktøjer til almindelige konverteringer og markering osv. ...