Hur ändrar jag teckensnitt och teckenstorlek i alla textrutor i Word-dokument?

Den här artikeln talar om att ändra teckensnitt och teckenstorlek i textrutor i aktuellt dokument eller dokument i en viss mapp. Försök med VBA-metoden i artikeln.

Ändra teckensnitt och teckenstorlek i textrutor i det aktuella dokumentet

Ändra teckensnitt och teckenstorlek i textrutor för alla dokument i en mapp

Ändra teckensnitt och teckenstorlek i textrutor i det aktuella dokumentet

För textrutorna kommer du att ändra teckensnitt och teckenstorlek i det aktuella dokumentet. Använd VBA-koden nedan för att lösa problemet.

1. tryck på andra + F11 nycklar för att öppna Microsoft Visual Basic för applikationer fönster.

2. I Microsoft Visual Basic för applikationer fönstret klickar Insert > Modulernaoch kopiera sedan följande kod till modulfönstret.

VBA-kod: Ändra teckensnitt och teckenstorlek i alla textrutor i det aktuella dokumentet

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

Anmärkningar: I koden, “arial"Och"20”Är det angivna teckensnittet och teckensnittsstorleken i mitt fall. Du kan ändra dem baserat på dina egna behov.

3. tryck på F5 för att köra koden. Sedan ändras alla texters teckensnitt och teckenstorlek i textrutorna till angiven teckensnitt och teckenstorlek. Se skärmdump:

Ändra teckensnitt och teckenstorlek i alla textrutor i alla dokument i en mapp

För att ändra textrutans teckensnitt och teckensnittstorlek i flera Word-dokument måste du tillämpa nedanstående VBA-kod.

1. Vänligen samla alla måldokument som innehåller textrutor. Du kommer att ändra teckensnitt och teckenstorlek under samma mapp.

2. I ett inledande Word-dokument trycker du på andra + F11 nycklar för att öppna Microsoft Visual Basic för applikationer fönster.

3. I Microsoft Visual Basic för applikationer fönstret klickar Insert > Modulernaoch kopiera sedan följande kod till modulfönstret.

VBA-kod: Ändra teckensnitt och teckenstorlek i textrutor i flera 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. tryck på F5 för att köra koden. I öppningen Bläddra välj mappen (innehåller dokument som du kommer att ändra teckensnitt och teckenstorlek i textrutorna) och klicka på OK knapp.

Sedan ändras alla textrutors teckensnitt och teckenstorlek för dokument i vald mapp till angiven teckensnitt och teckenstorlek.

Bästa kontorsproduktivitetsverktyg

Kutools för Word - Höj din ordupplevelse med Over 100 Anmärkningsvärda funktioner!

🤖 Kutools AI Assistant: Förvandla ditt skrivande med AI - Generera innehåll  /  Skriv om text  /  Sammanfatta dokument  /  Fråga för information baserat på dokument, allt i Word

📘 Dokumentbehärskning: Dela sidor  /  Sammanfoga dokument  /  Exportera urval i olika format (PDF/TXT/DOC/HTML...)  /  Batchkonvertera till PDF  /  Exportera sidor som bilder  /  Skriv ut flera filer samtidigt...

✏ Innehållsredigering: Batch Hitta och ersätt över flera filer  /  Ändra storlek på alla bilder  /  Transponera tabellrader och kolumner  /  Konvertera tabell till text...

🧹 Enkel rengöring: Svep bort Extra utrymmen  /  Avsnitt bryter  /  Alla rubriker  /  Textrutor  /  Hyperlänkar  / För fler borttagningsverktyg, gå till vår Ta bort gruppen...

➕ Kreativa inlägg: Föra in Tusen avskiljare  /  Kryssrutor  /  radio Knappar  /  QR-kod  /  Streckkod  /  Diagonal linjebord  /  Bildtext för ekvation  /  Bild Bildtext  /  Tabelltextning  /  Flera bilder  / Upptäck mer i Infoga grupp...

🔍 Precisionsval: Precisera specifika sidor  /  Tabellerna  /  former  /  rubrikerna  / Förbättra navigering med mer Välj funktioner...

⭐ Stjärnförbättringar: Navigera snabbt till vilken plats som helst  /  infoga repetitiv text automatiskt  /  växla sömlöst mellan dokumentfönster  /  11 Konverteringsverktyg...

👉 Vill du prova dessa funktioner? Kutools för Word erbjuder en 60-dagars gratis försök, utan begränsningar! 🚀

Gratis nedladdning     Läs mer     Köp nu