Cookies hjälper oss att leverera våra tjänster. Genom att använda våra tjänster samtycker du till vår användning av cookies.
Tips: Andra språk är Google-översatta. Du kan besöka English version av den här länken.
Logga in
x
or
x
x
Registrera
x

or

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

Den här artikeln handlar om att ändra teckensnitt och teckenstorlek i textrutor i aktuellt dokument eller dokument i en angiven mapp. Vänligen prova VBA-metoden i artikeln.

Ändra teckensnitt och teckenstorlek i textrutor i det aktuella dokumentet

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


Ändra teckensnitt och teckenstorlek i textrutor i det aktuella dokumentet

För textrutorna ändrar du teckensnittet och teckensnittstorleken i det aktuella dokumentet, använd den nedan angivna VBA-koden 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 Infoga > Modulerna, och 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 den angivna teckensnittstypen och teckensnittstorleken i mitt fall. Du kan ändra dem utifrån dina egna behov.

3. tryck på F5 nyckeln för att köra koden. Då ändras alla textstorlekar och teckensnittstorlek i textrutorna till angiven typsnitt och teckensnittstorlek. Se skärmdump:


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

För att ändra textfältets teckensnitt och teckenstorlek i bulk i flera Word-dokument måste du tillämpa VBA-koden nedan.

1. Vänligen samla in alla måldokument som innehåller textrutor. Du ändrar teckensnittet och teckensnittstorleken under samma mapp.

2. I ett öppet 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 Infoga > Modulerna, och kopiera sedan följande kod till modulfönstret.

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

Därefter ändras alla textrutans teckensnitt och teckensnittstorlek i dokument i vald mapp till angiven typsnitt och teckensnittstorlek.



Kutools för Word

Mer än 100 avancerade funktioner för Word 2003, 2007, 2010, 2013, 2016 och 2019

shot-kutools-700-225-KTE

Mer funktioner | Gratis nedladdning | Bara $ 39.00 för hundratals funktioner

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.