Tip: andere talen zijn Google-Vertaald. Je kunt het English versie van deze link.
Log in
x
or
x
x
Registreren
x

or

Hoe het lettertype en de lettergrootte in alle tekstvakken in Word-document te veranderen?

In dit artikel wordt gesproken over het wijzigen van het lettertype en de tekengrootte in tekstvakken in het huidige document of in 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 lettergrootte in de 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 tekengrootte 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 bijvoegsel > moduleen kopieer de volgende code naar het modulevenster.

VBA-code: verander 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

Notes: In de code, "Arial"En"20"Is het opgegeven lettertype en de tekengrootte in mijn geval. Je kunt ze veranderen op basis van je eigen behoeften.

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


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

Voor het lettertype en de lettertypegrootte van tekstvakken in meerdere Word-documenten moet u de onderstaande VBA-code toepassen.

1. Verzamel alle doeldocumenten die tekstvakken bevatten, zodat u het lettertype en de tekengrootte onder dezelfde map kunt wijzigen.

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

3. In de Microsoft Visual Basic voor toepassingen venster klikt bijvoegsel > moduleen kopieer de volgende code naar het modulevenster.

VBA-code: verander het lettertype en de tekengrootte 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 venster, selecteer de map (bevat documenten waarin u het lettertype en de tekengrootte in de tekstvakken wilt wijzigen) en klik op de OK knop.

Vervolgens worden het lettertype en de tekengrootte van alle tekstvakken in de geselecteerde map in het tekstvak en het lettertype gewijzigd.



Aanbevolen Word-productiviteitstools

Kutools voor Word - meer dan 100 geavanceerde functies voor Word, bespaar uw 50% tijd

  • Gecompliceerde en herhaalde bewerkingen kunnen eenmalig worden uitgevoerd in seconden.
  • Voeg meerdere afbeeldingen in meerdere mappen tegelijk in Word-documenten in.
  • Voeg meerdere Word-bestanden samen en combineer ze tot één map met de door u gewenste volgorde.
  • Splits het huidige document in afzonderlijke documenten volgens kop, sectie-einde of andere criteria.
  • Converteer bestanden tussen Doc en Docx, Docx en PDF, verzameling tools voor algemene conversies en selectie, enzovoort ...
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.
  • To post as a guest, your comment is unpublished.
    pavithra · 2 months ago
    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