Note: The other languages of the website are Google-translated. Back to English

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 din
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 ...
Sortera kommentarer efter
Kommentarer (1)
Inga betyg än. Bli först med att betygsätta!
Denna kommentar minimerades av moderatoren på webbplatsen
Det här är ett fantastiskt inlägg. Verkligen mycket informativt och kreativt innehåll. Dessa koncept är ett bra sätt att förbättra kunskapen. Jag gillar det och hjälper mig att utvecklas väldigt bra. Tack för denna korta förklaring och mycket trevlig information. Nåväl, jag har en bra kunskap.

Java-träning i Chennai
Java-utbildning i Coimbatore
Java-utbildning i Bangalore
Det finns inga kommentarer här ännu
Lämna dina kommentarer
Postar som gäst
×
Betygsätt detta inlägg:
0   Tecken
Föreslagna platser

Följ oss

Copyright © 2009 - www.extendoffice.com. | Alla rättigheter förbehållna. Drivs av ExtendOffice. | | Sitemap
Microsoft och Office-logotypen är varumärken eller registrerade varumärken som tillhör Microsoft Corporation i USA och / eller andra länder.
Skyddad av Sectigo SSL