Cookies tgħinna jagħti servizzi tagħna. Bl-użu tas-servizzi tagħna, inti taqbel li l-użu tagħna ta 'cookies.
Tip: Lingwi oħra huma tradotti minn Google. Tista 'żżur il - English verżjoni ta 'din ir-rabta.
log in
x
or
x
x
reġistru
x

or

Kif tibdel il-font u d-daqs tat-tipa fil-kaxex kollha tat-test fid-dokument Word?

Dan l-artikolu qed jitkellem dwar il-bdil tal-font u d-daqs tat-tipa f'kaxxi tat-test f'dokument jew dokumenti kurrenti f'fajl speċifikat. Jekk jogħġbok ipprova l-metodu VBA fl-artikolu.

Ibdel il-font u d-daqs tat-tipa f'kaxxi tat-test fid-dokument kurrenti

Ibdel il-font u d-daqs tal-font f'kaxxi tad-dokumenti kollha f'folder


Ibdel il-font u d-daqs tat-tipa f'kaxxi tat-test fid-dokument kurrenti

Għall-kaxxi tat-test tibdel il-font u d-daqs tat-tipa fid-dokument kurrenti, jekk jogħġbok, applika l-kodiċi VBA ta 'hawn taħt biex issolvi l-problema.

1. Agħfas il-buttuna Alt + F11 ċwievet biex tiftaħ il - Microsoft Visual Basic għall-Applikazzjonijiet tieqa.

2. Ġol Microsoft Visual Basic għall-Applikazzjonijiet tieqa, ikklikkja Daħħal > Moduli, u mbagħad kopja l-kodiċi li ġej fit-tieqa tal-Modulu.

Kodiċi VBA: Ibdel il-font u d-daqs tat-tipa fil-kaxex tat-test kollha fid-dokument kurrenti

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: Fil-kodiċi, "Arial"U"20"Hija l-font speċifikata u d-daqs tat-tipa fil-każ tiegħi. Tista 'tbiddilhom skont il-bżonnijiet tiegħek.

3. Agħfas il-buttuna F5 ewlieni biex titmexxa l-kodiċi. Imbagħad id-daqs tat-tipa u tat-tipa tat-testi kollha fil-kaxxi tat-test jinbidlu għall-font speċifikata u d-daqs tat-tipa. Ara l-screenshot:


Ibdel il-font u d-daqs tat-tipa fil-kaxex tat-test kollha tad-dokumenti kollha f'folder

Għat-tibdil tat-tipa u d-daqs tat-tipa tal-kaxxi tat-test fi kwantitajiet kbar f'diversi dokumenti ta 'Kelma, għandek tapplika l-kodiċi VBA ta' hawn taħt.

1. Jekk jogħġbok jiġbor id-dokumenti kollha fil-mira li fihom il-kaxxi tat-test, ser tibdel il-font u d-daqs tat-tipa taħt l-istess folder.

2. Fi dokument tal-ftuħ ta 'Kelma, agħfas il- Alt + F11 ċwievet biex tiftaħ il - Microsoft Visual Basic għall-Applikazzjonijiet tieqa.

3. Ġol Microsoft Visual Basic għall-Applikazzjonijiet tieqa, ikklikkja Daħħal > Moduli, u mbagħad kopja l-kodiċi li ġej fit-tieqa tal-Modulu.

Kodiċi VBA: Ibdel il-font u d-daqs tat-tipa f'kaxxi tat-test ta 'dokumenti multipli

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. Agħfas il-buttuna F5 ewlieni biex titmexxa l-kodiċi. Fil-ftuħ Browse tieqa, agħżel il-folder (fiha dokumenti tibdel il-font u d-daqs tat-tipa fil-kaxxi tat-test) u kklikkja fuq il-buttuna OK buttuna.

Imbagħad il-font u d-daqs tat-tipa tad-dokumenti kollha fil-folder magħżul jinbidlu għat-tipa speċifikata u d-daqs tat-tipa.



Kutools għall-Kelma

Aktar minn 100 Advanced Functions għal Word 2003, 2007, 2010, 2013, 2016 u 2019

shot-kutools-700-225-kte

Karatteristiċi Aktar | Free download | Biss $ 39.00 għal mijiet ta 'funzjonijiet

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.