Ga naar hoofdinhoud

Hoe verander ik het lettertype en de lettergrootte in alle tekstvakken in een Word-document?

Dit artikel gaat over het wijzigen van het lettertype en de tekengrootte in tekstvakken in het huidige document of documenten in een opgegeven map. Probeer de VBA-methode in het artikel.

Wijzig het lettertype en de tekengrootte in tekstvakken in het huidige document

Wijzig het lettertype en de tekengrootte in tekstvakken van alle documenten in een map


Wijzig het lettertype en de tekengrootte in tekstvakken in het huidige document

Voor de tekstvakken wijzigt u het lettertype en de lettergrootte in het huidige document, pas de onderstaande VBA-code toe om het probleem op te lossen.

1. druk de anders + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster.

2. In de Microsoft Visual Basic voor toepassingen venster klikt Invoegen > Moduleen kopieer vervolgens de volgende code naar het modulevenster.

VBA-code: wijzig het lettertype en de tekengrootte in alle tekstvakken in het huidige document

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

Note: In de code, "Arial"En"20”Is in mijn geval het opgegeven lettertype en de lettergrootte. U kunt ze wijzigen op basis van uw eigen behoeften.

3. druk de F5 sleutel om de code uit te voeren. Vervolgens worden het lettertype en de lettergrootte van alle teksten in de tekstvakken gewijzigd in het opgegeven lettertype en de lettergrootte. Zie screenshot:


Wijzig het lettertype en de tekengrootte in alle tekstvakken van alle documenten in een map

Om het lettertype en de lettergrootte van tekstvakken in bulk in meerdere Word-documenten te wijzigen, moet u de onderstaande VBA-code toepassen.

1. Verzamel alle doeldocumenten die tekstvakken bevatten. U wijzigt het lettertype en de tekengrootte onder dezelfde map.

2. Druk in een Word-document dat wordt geopend op de anders + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster.

3. In de Microsoft Visual Basic voor toepassingen venster klikt Invoegen > Moduleen kopieer vervolgens de volgende code naar het modulevenster.

VBA-code: wijzig het lettertype en de lettergrootte in tekstvakken van meerdere documenten

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. druk de F5 sleutel om de code uit te voeren. In de opening Blader Selecteer de map (bevat documenten waarvan u het lettertype en de lettergrootte in de tekstvakken wijzigt) en klik op het OK knop.

Vervolgens worden het lettertype en de lettergrootte van alle tekstvakken van documenten in de geselecteerde map gewijzigd in het opgegeven lettertype en lettergrootte.

Beste Office-productiviteitstools

Kutools for Word - Verbeter uw woordervaring met Over 100 Opmerkelijke kenmerken!

🤖 Kutools AI-assistent: Transformeer uw schrijven met AI - Inhoud genereren  /  Herschrijf tekst  /  Documenten samenvatten  /  Informeer voor informatie gebaseerd op document, allemaal binnen Word

📘 Documentbeheersing: Pagina's splitsen  /  Voeg documenten samen  /  Selectie exporteren in verschillende formaten (PDF/TXT/DOC/HTML...)  /  Batchconversie naar PDF  /  Pagina's exporteren als afbeeldingen  /  Meerdere bestanden tegelijk afdrukken...

Inhoud bewerken: Batch zoeken en vervangen over meerdere bestanden  /  Formaat van alle afbeeldingen wijzigen  /  Tabelrijen en -kolommen transponeren  /  Converteer tabel naar tekst...

🧹 Moeiteloos schoon: Veeg weg Extra ruimtes  /  Sectie-onderbrekingen  /  Alle koppen  /  Tekstvakken  /  hyperlinks  / Ga voor meer verwijdergereedschappen naar onze Groep verwijderen...

Creatieve invoegingen: Invoegen Duizend scheidingstekens  /  Vink vakjes aan  /  Radio knoppen  /  QR Code  /  Barcode  /  Diagonale lijntabel  /  Vergelijking bijschrift  /  Bijschrift bij afbeelding  /  Tabel titel  /  Meerdere afbeeldingen  / Ontdek meer in de Groep invoegen...

???? Precisieselecties: Vaststellen specifieke pagina's  /  tafels  /  vormen  /  kop paragrafen  / Verbeter de navigatie met meer Selecteer functies...

Sterverbeteringen: Navigeer snel naar elke locatie  /  automatisch herhaalde tekst invoegen  /  naadloos schakelen tussen documentvensters  /  11 Conversiehulpmiddelen...

👉 Wil je deze functies proberen? Kutools voor Word biedt een Gratis proefperiode van 60-dag, zonder beperkingen! 🚀
 
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