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.

---

Rekommenderade Word-produktivitetsverktyg

 

Kutools For Word - Mer än 100 avancerade funktioner för Word, spara 50 % tid

• Komplicerade och upprepade operationer kan göras engångsbehandling på några sekunder.
• Infoga flera bilder över mappar i Word-dokumentet samtidigt.
• Slå ihop och kombinera flera Word-filer över mappar till en med önskad ordning.
• Dela upp det aktuella dokumentet i separata dokument enligt rubrik, avsnittbrytning eller andra kriterier.
• Konvertera filer mellan Doc och Docx, Docx och PDF, samling verktyg för vanliga konverteringar och val, och så vidare ...

Läs mer Hämta hem nu Inköp