Slapukai padeda mums pristatyti mūsų paslaugomis. Naudodamiesi mūsų paslaugomis, jūs sutinkate su mūsų slapukų naudojimą.
Patarimas: kitos kalbos yra "Google" išverstos. Galite aplankyti English šios nuorodos versija.
Prisijungti
x
or
x
x
Registruotis
x

or

Kaip pakeisti šriftą ir šrifto dydį visose "Word" dokumento teksto laukeliuose?

Šiame straipsnyje kalbama apie šrifto ir šrifto dydžio keitimą esamo dokumento arba nurodyto aplanko teksto laukeliuose. Pabandykite VBA metodą straipsnyje.

Pakeiskite šrifto ir šrifto dydį esamo dokumento teksto laukeliuose

Pakeiskite šrifto ir šrifto dydį visų aplanke esančių dokumentų teksto laukeliuose


Pakeiskite šrifto ir šrifto dydį esamo dokumento teksto laukeliuose

Teksto laukeliuose esamą dokumentą pakeisite šriftą ir šrifto dydį, prašome taikyti žemiau nurodytą VBA kodą, kad išspręstumėte problemą.

1. Paspauskite Kitas + F11 raktus atidaryti "Microsoft Visual Basic for Applications" langas.

2. Viduje "Microsoft Visual Basic for Applications" langas, spustelėkite įsiuvas > Moduliai, tada nukopijuokite šį kodą į modulio langą.

VBA kodas: pakeiskite šriftą ir šrifto dydį visose esamo dokumento teksto laukeliuose

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

pastabos: Kode "Arial"Ir"20"Yra nurodytas šriftas ir šrifto dydis mano atveju. Galite juos pakeisti pagal savo poreikius.

3. Paspauskite F5 raktas paleisti kodą. Tada teksto laukeliuose teksto šrifto ir šrifto dydis pakeičiamas į nurodytą šriftą ir šrifto dydį. Žr. Ekrano kopiją:


Pakeiskite šriftą ir šrifto dydį visose visų aplanke esančių dokumentų teksto laukeliuose

Norėdami keisti teksto laukelius "šriftą ir šrifto dydį daugybe" Word "dokumentų, turite taikyti žemiau pateiktą VBA kodą.

1. Prašome surinkti visus tikslinius dokumentus, kuriuose yra teksto laukeliai, jūs pakeisite šrifto ir šrifto dydį tame pačiame aplanke.

2. Atsidariusiame "Word" dokumente, paspauskite Kitas + F11 raktus atidaryti "Microsoft Visual Basic for Applications" langas.

3. Viduje "Microsoft Visual Basic for Applications" langas, spustelėkite įsiuvas > Moduliai, tada nukopijuokite šį kodą į modulio langą.

VBA kodas: pakeiskite šriftą ir šrifto dydį kelių tekstų teksto laukeliuose

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. Paspauskite F5 raktas paleisti kodą. Atidaryme Žmonės langas, pasirinkite aplanką (yra dokumentai, kuriais tekstiniuose laukeliuose pakeisite šrifto dydį ir šrifto dydį) ir spustelėkite OK mygtuką.

Tada visi teksto laukeliai "pasirinkto aplanko dokumentų šrifto dydis ir šrifto dydis pasikeičia į nurodytą šriftą ir šrifto dydį.



Kutools for Word

Daugiau nei 100 išplėstinės funkcijos Word 2003, 2007, 2010, 2013, 2016 ir 2019

shot-kutools-700-225-kte

Daugiau funkcijų | Nemokamas atsisiuntimas | Tik šimtai funkcijų - $ 39.00

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.