Koekies help om ons dienste te lewer. Deur die gebruik van ons dienste, stem jy in tot ons gebruik van koekies.
Wenk: Ander tale is Google-vertaal. U kan die English weergawe van hierdie skakel.
Teken aan
x
or
x
x
registreer
x

or

Hoe om die lettertipe en lettergrootte in alle tekskassies in Word-dokument te verander?

Hierdie artikel handel oor die verandering van die lettertipe en lettergrootte in tekskassies in huidige dokumente of dokumente in 'n gespesifiseerde vouer. Probeer asseblief die VBA-metode in die artikel.

Verander die lettertipe en lettergrootte in tekskassies in die huidige dokument

Verander die lettertipe en lettergrootte in tekskassies van alle dokumente in 'n gids


Verander die lettertipe en lettergrootte in tekskassies in die huidige dokument

Vir die tekskassies sal u die lettertipe en lettergrootte in die huidige dokument verander, gebruik asseblief die onderstaande VBA-kode om die probleem op te los.

1. Druk die alt + F11 sleutels om die Microsoft Visual Basic vir toepassings venster.

2. In die Microsoft Visual Basic vir toepassings venster, kliek Plaas > module, en dan die volgende kode in die Module-venster kopieer.

VBA-kode: Verander die lettertipe en lettergrootte in alle tekskassies in die huidige dokument

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

nota: In die kode, "Arial"En"20"Is die gespesifiseerde font en lettergrootte in my geval. U kan dit verander op grond van u eie behoeftes.

3. Druk die F5 sleutel om die kode uit te voer. Dan word alle tekste se lettertipe en lettergrootte in die tekskassies verander na die gespesifiseerde lettertipe en lettergrootte. Sien skermkiekie:


Verander die lettertipe en lettergrootte in alle tekskassies van alle dokumente in 'n gids

As u die lettertypen en die lettertypen in grootmaat in verskeie Word-dokumente verander, moet u die onderstaande VBA-kode toepas.

1. Versamel asseblief alle doeldokumente wat tekskassies bevat. U sal die lettertipe en lettergrootte onder dieselfde gids verander.

2. In 'n oop Word-dokument druk die alt + F11 sleutels om die Microsoft Visual Basic vir toepassings venster.

3. In die Microsoft Visual Basic vir toepassings venster, kliek Plaas > module, en dan die volgende kode in die Module-venster kopieer.

VBA-kode: Verander die lettertipe en lettergrootte in tekskassies van verskeie dokumente

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 die F5 sleutel om die kode uit te voer. In die opening Kyk na venster, kies die gids (bevat dokumente wat u lettertipe en lettergrootte in die tekskassies sal verander) en klik op die OK knoppie.

Dan word alle lettertipes se lettertipe en lettergrootte van dokumente in geselekteerde vouer verander na die gespesifiseerde lettertipe en fontgrootte.



Kutools for Word

Meer as 100 Gevorderde funksies vir Word 2003, 2007, 2010, 2013, 2016 en 2019

shot-kutools-700-225-kte

Meer funksies | Gratis aflaai | Slegs $ 39.00 vir honderde funksies

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.