Cookies matulungan kaming ihatid ang aming mga serbisyo. Sa pamamagitan ng paggamit sa aming mga serbisyo, sumasang-ayon ka sa aming paggamit ng cookies.
Tip: Iba pang mga wika ay isinaling-Google. Maaari mong bisitahin ang English bersyon ng link na ito.
mag-log in
x
or
x
x
Magrehistro
x

or

Paano baguhin ang laki ng font at font sa lahat ng mga kahon ng teksto sa Word document?

Ang artikulong ito ay tungkol sa pagpapalit ng laki ng font at font sa mga kahon ng teksto sa kasalukuyang dokumento o mga dokumento sa isang tinukoy na folder. Mangyaring subukan ang paraan ng VBA sa artikulo.

Baguhin ang laki ng font at font sa mga kahon ng teksto sa kasalukuyang dokumento

Baguhin ang laki ng font at font sa mga kahon ng teksto ng lahat ng mga dokumento sa isang folder


Baguhin ang laki ng font at font sa mga kahon ng teksto sa kasalukuyang dokumento

Para sa mga kahon ng teksto ay palitan mo ang laki ng font at font sa kasalukuyang dokumento, mangyaring ilapat ang VBA code sa ibaba upang malutas ang problema.

1. pindutin ang Alt + F11 key upang buksan ang Microsoft Visual Basic para sa Mga Application window.

2. Nasa Microsoft Visual Basic para sa Mga Application window, i-click ang Isingit > Module, at pagkatapos ay kopyahin ang sumusunod na code sa window ng Module.

VBA code: Baguhin ang laki ng font at font sa lahat ng mga kahon ng teksto sa kasalukuyang dokumento

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: Sa kodigo, "Arial"At"20"Ang tinukoy na font at laki ng font sa aking kaso. Maaari mong baguhin ang mga ito batay sa iyong sariling mga pangangailangan.

3. pindutin ang F5 key upang patakbuhin ang code. Pagkatapos ay ang font at laki ng font sa lahat ng teksto sa mga kahon ng teksto ay binago sa tinukoy na laki ng font at laki ng font. Tingnan ang screenshot:


Baguhin ang laki ng font at font sa lahat ng mga kahon ng teksto ng lahat ng mga dokumento sa isang folder

Para sa pagpapalit ng font ng font at laki ng font nang maramihan sa maramihang mga dokumento ng Word, kailangan mong ilapat ang VBA code sa ibaba.

1. Mangolekta ng lahat ng mga target na dokumento na naglalaman ng mga kahon ng teksto ay magbabago ka ng font at laki ng font sa ilalim ng parehong folder.

2. Sa isang bukas na dokumento ng Word, pindutin ang Alt + F11 key upang buksan ang Microsoft Visual Basic para sa Mga Application window.

3. Nasa Microsoft Visual Basic para sa Mga Application window, i-click ang Isingit > Module, at pagkatapos ay kopyahin ang sumusunod na code sa window ng Module.

VBA code: Baguhin ang laki ng font at font sa mga kahon ng teksto ng maramihang mga dokumento

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. pindutin ang F5 key upang patakbuhin ang code. Sa pagbubukas Magtingin window, piliin ang folder (naglalaman ng mga dokumento na iyong babaguhin ang laki ng font at font sa mga kahon ng teksto) at i-click ang OK button.

Pagkatapos ay ang lahat ng font ng font at laki ng font ng mga dokumento sa napiling folder ay binago sa tinukoy na laki ng font at font.



Kutools for Word

Higit sa 100 Advanced na Mga Pag-andar para sa Salita 2003, 2007, 2010, 2013, 2016 at 2019

shot-kutools-700-225-kte

Higit pang mga Tampok | Libreng pag-download | Tanging $ 39.00 para sa daan-daang mga pag-andar

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.