Hoppa till huvudinnehåll

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!

Dyk in i de markerade funktionerna nedan eller klicka här för att utforska den fulla kraften i Kutools för Word.

📘 Dokumentbehärskning: Dela sidor  /  Sammanfoga dokument  /  Exportera urval i olika format (PDF/TXT/DOC/XLSX)  /  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öringSvep bort Extra utrymmen  /  Avsnitt bryter  /   Alla rubriker  /  Textrutor  /  Hyperlänkar  /  För fler borttagningsverktyg, gå till vår Remove Group

Kreativa inlägg: Insert Tusen avskiljare  /  Kryssrutor  /  radio Knappar  /  QR-kod  /  Streckkod  /  Diagonal linjebord  /  Bildtext för ekvation  /  Bild Bildtext  /  Tabelltextning  /  Flera bilder  /  Upptäck mer i vår Insert Group

🔍 Precisionsval: Hitta specifika sidor  /  Tabellerna  /  former  /  rubrikerna  /  Navigera med lätthet med hjälp av vår Select Group

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 ...

Förvandla dina Word-uppgifter med Kutools. 👉 Ladda ner med 30-dagars provversion nu 🚀.

Läs mer       Gratis nedladdning      Inköp
 
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