Gå til hovedindhold

Hvordan ændres skrifttype og skriftstørrelse i alle tekstfelter i Word-dokument?

Forfatter: Siluvia Sidst ændret: 2018-12-12

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!

🤖 Kutools AI-assistent: Transformer din skrivning med AI - Generer indhold  /  Omskriv tekst  /  Opsummer dokumenter  /  Spørg for information baseret på Dokument, alt sammen i Word

📘 Dokumentbeherskelse: Opdelt sider  /  Flet dokumenter  /  Eksporter udvalg i forskellige formater (PDF/TXT/DOC/HTML...)  /  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 mere fjernelse af værktøjer, gå til Fjern gruppe...

Kreative indlæg: Indsæt Tusind adskillere  /  Afkrydsningsfelter  /  Radio knapper  /  QR kode  /  Stregkode  /  Diagonal linjebord  /  Ligningstekst  /  Billede Caption  /  Tabeltekst  /  Flere billeder  / Oplev mere i Indsæt gruppe...

???? Præcisionsvalg: Find ud af Specifikke sider  /  tabeller  /  Former  /  Overskriftsparagraffer  / Forbedre navigation med mere Vælg funktioner...

Stjerneforbedringer: Naviger til enhver placering  /  Auto-indsæt gentagen tekst  /  Skift mellem dokumentvinduer  /  11 Konverteringsværktøjer...

???? Vil du prøve disse funktioner? Kutools for Word tilbyder en 60-dages gratis prøveperiode, uden begrænsninger! 🚀
 
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