Cookies palīdzēs mums sasniegt mūsu pakalpojumus. Izmantojot mūsu pakalpojumus, jūs piekrītat mūsu sīkdatņu izmantošanu.
Padoms. Citas valodas ir Google tulkotas. Jūs varat apmeklēt English šīs saites versiju.
Pieslēgties
x
or
x
x
Reģistrēties
x

or

Kā Word dokumentā mainīt fontu un fontu lielumu visos tekstlodziņos?

Šis raksts ir par fonta un fontu lieluma maiņu teksta lodziņos pašreizējā dokumentā vai dokumentos norādītajā mapē. Lūdzu, izmēģiniet VBA metodi rakstā.

Mainiet fontu un fontu lielumu pašreizējā dokumenta teksta lodziņos

Mainiet fontu un fontu lielumu teksta lodziņos visiem mapē esošajiem dokumentiem


Mainiet fontu un fontu lielumu pašreizējā dokumenta teksta lodziņos

Teksta kastēs mainīsit pašreizējā dokumenta fontu un fontu lielumu, lūdzu, piemērojiet zemāk minēto VBA kodu, lai atrisinātu problēmu.

1. Nospiediet cits + F11 taustiņi, lai atvērtu Microsoft Visual Basic for Applications logs.

2. Iekš Microsoft Visual Basic for Applications logs, noklikšķiniet uz ielaidums > Moduļi, un pēc tam nokopējiet šādu kodu moduļa logā.

VBA kods: mainiet fontu un fontu lielumu visos teksta lodziņos pašreizējā 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

Piezīmes: Kodā "Arial"Un"20"Ir norādītais fonts un fontu lielums manā gadījumā. Jūs varat tos mainīt atkarībā no jūsu vajadzībām.

3. Nospiediet F5 taustiņš, lai palaistu kodu. Tad teksta lodziņos tekstu fontu un fontu lielums tiek mainīts uz norādīto fontu un fontu lielumu. Skatīt ekrānuzņēmumu:


Mainiet fontu un fontu lielumu visos mapē esošo dokumentu teksta lodziņos

Lai vairākos Word dokumentos mainītu teksta lauku fontu un fontu lielumu vairumā, jums jāpiemēro zemāk redzamais VBA kods.

1. Lūdzu, apkopojiet visus mērķa dokumentus, kuros ir teksta lodziņi, un mainīsiet fontu un fontu lielumu tajā pašā mapē.

2. Atvēršanas Word dokumentā nospiediet cits + F11 taustiņi, lai atvērtu Microsoft Visual Basic for Applications logs.

3. Iekš Microsoft Visual Basic for Applications logs, noklikšķiniet uz ielaidums > Moduļi, un pēc tam nokopējiet šādu kodu moduļa logā.

VBA kods: mainiet fontu un fontu lielumu vairāku dokumentu teksta lodziņos

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. Nospiediet F5 taustiņš, lai palaistu kodu. Atklāšanā Pārlūkot logu, izvēlieties mapi (satur dokumentus, ar kuriem mainīsit fontu un fontu lielumu teksta lodziņos) un noklikšķiniet uz OK poga.

Pēc tam visi izvēlētajā mapē esošie teksta lodziņu fonti un fontu lielumi tiek mainīti uz norādīto fontu un fontu lielumu.



Kutools par Word

Vairāk nekā 100 uzlabotās funkcijas Word 2003, 2007, 2010, 2013, 2016 un 2019

shot-kutools-700-225-kte

Vairāk funkciju | Bezmaksas lejupielāde | Tikai $ 39.00 simtiem funkciju

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.