İpucu: Digər dillər Google-tərcümə olunur. Sizi ziyarət edə bilərsiniz English bu linkin versiyası.
Daxil ol
x
or
x
x
Qeydiyyatdan
x

or

Word sənədindəki bütün mətn qutularında font və font ölçüsünü necə dəyişdirmək olar?

Bu yazı, müəyyən bir qovluqdakı mövcud sənəddə və ya sənədlərdə mətn qutularında font və font ölçüsünü dəyişdirməkdən bəhs edir. Xahiş edirik məqalədə VBA üsulunu cəhd edin.

Mövcud sənəddə mətn qutularında font və font ölçüsünü dəyişdirin

Bir qovluqdakı bütün sənədlərin mətn qutusunda yazı tipi və font ölçüsünü dəyişin


Mövcud sənəddə mətn qutularında font və font ölçüsünü dəyişdirin

Mətn qutuları üçün mövcud sənəddə şriftin və şriftin ölçüsünü dəyişəcək, problemi həll etmək üçün aşağıdakı VBA kodunu tətbiq edin.

1. Basın Dayandırmaq + F11 düymələri açmaq üçün Proqramlar üçün Microsoft Visual Basic pəncərə.

2. İçində Proqramlar üçün Microsoft Visual Basic pəncərə basın Taxmaq > Modules, və sonra aşağıdakı kodu Module pəncərəsinə kopyalayın.

VBA kodu: Mövcud sənəddə bütün mətn qutularında font və font ölçüsünü dəyişdirin

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

Qeyd: Kodda "Arial"Və"20"Mənim vəziyyətimdə müəyyən font və font ölçüsüdür. Onları öz ehtiyaclarınıza əsasən dəyişə bilərsiniz.

3. Basın F5 kodunu çalıştırmak üçün düyməsini basın. Daha sonra mətn qutularında bütün mətnlərin fontu və font ölçüsü müəyyən edilmiş font və şrift ölçüsünə dəyişir. Ekran görüntüsünə baxın:


Bir qovluqdakı bütün sənədlərin bütün mətn qutularında font və font ölçüsünü dəyişin

Bir neçə Word sənədində kütləvi şəkildə mətn qutularının fontunu və font ölçüsünü dəyişdirmək üçün aşağıdakı VBA kodunu tətbiq etməlisiniz.

1. Xahiş edirik, eyni qovluq altında yazı tipi və font ölçüsünü dəyişdirəcək mətn qutuları olan bütün hədəf sənədləri toplayın.

2. Açılış Word sənədində, basın Dayandırmaq + F11 düymələri açmaq üçün Proqramlar üçün Microsoft Visual Basic pəncərə.

3. İçində Proqramlar üçün Microsoft Visual Basic pəncərə basın Taxmaq > Modules, və sonra aşağıdakı kodu Module pəncərəsinə kopyalayın.

VBA kodu: Bir neçə sənədin mətn qutularına font və font ölçüsünü dəyişin

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. Basın F5 kodunu çalıştırmak üçün düyməsini basın. Açılışda İnsanlar pencereyi seçin (mətn qutularında yazı tipi və şrift ölçüsünü dəyişdirəcək sənədləri ehtiva edir) və basın OK düyməsini basın.

Sonra bütün mətn qutularının seçilmiş qovluqdakı sənədlərin şrifti və şrift ölçüsü müəyyən edilmiş font və şrift ölçüsünə dəyişir.



Word üçün Kutools

100, 2003, 2007, 2010, 2013 və 2016 üçün 2019 Ətraflı funksiyaları

shot-kutools-700-225-kte

Daha çox xüsusiyyətlər | Pulsuz Yüklə | Yüzlərlə funksiya üçün yalnız $ 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.