Տեղեկանիշ մեզ կօգնի մատուցել մեր ծառայություններից: Ըստ օգտագործելով մեր ծառայություններից, Դուք համաձայնում եք մեր օգտագործման բլիթները:
Խորհուրդ. Այլ լեզուներն են Google- թարգմանված: Դուք կարող եք այցելել այն English այս հղման տարբերակը:
Մուտք
x
or
x
x
Գրանցում
x

or

Ինչպես փոխել տառատեսակը եւ տառաչափը Word- ի փաստաթղթի բոլոր տեքստային տուփերում:

Այս հոդվածում խոսվում է տեքստային տուփերի տառատեսակը եւ տառաչափը փոփոխվող փաստաթղթում կամ փաստաթղթերում նշված թղթապանակում փոխելու մասին: Խնդրում ենք փորձել VBA- ի մեթոդը հոդվածում:

Փոփոխեք տառատեսակը եւ տառաչափը տեքստային տուփերում ընթացիկ փաստաթղթում

Փոխել տառատեսակը եւ տառաչափը թղթապանակում բոլոր փաստաթղթերի տեքստային տուփերում


Փոփոխեք տառատեսակը եւ տառաչափը տեքստային տուփերում ընթացիկ փաստաթղթում

Տեքստային տուփերի համար դուք կփոխանակեք ներկայիս փաստաթղթում տառատեսակը եւ տառաչափը, խնդրեք խնդրեք ստորեւ նշված VBA կոդը:

1. Սեղմեք ալտ + F11 բացել ստեղները Microsoft Visual Basic ծրագրերի համար պատուհան.

2. Մեջ Microsoft Visual Basic ծրագրերի համար պատուհանը, սեղմեք Տեղադրել > Մոդուլներ, ապա պատճենեք հետեւյալ կոդը Մոդուլի պատուհանում:

VBA կոդ: Փոխել տառատեսակը եւ տառաչափը ընթացիկ փաստաթղթի բոլոր տեքստային տուփերում

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

Նշում: Կոդի մեջ,Arial"Եւ"20"Տառատեսակը եւ տառաչափը իմ դեպքում: Դուք կարող եք դրանք փոխել ձեր սեփական կարիքների հիման վրա:

3. Սեղմեք F5 բանալին գործարկել կոդը: Այնուհետեւ, տեքստային տուփերի բոլոր տեքստերը տառատեսակը եւ տառաչափը փոխվում են նշված տառատեսակը եւ տառաչափը: Տեսեք,


Փոխեք տառատեսակը եւ տառաչափը թղթապանակի բոլոր փաստաթղթերի տեքստային տուփերում

Բառի բազմաթիվ փաստաթղթերում տեքստային տառերի տառատեսակը եւ տառաչափը փոխելու համար հարկավոր է կիրառել ստորեւ նշված VBA կոդը:

1. Խնդրում ենք հավաքել բոլոր թիրախային փաստաթղթերը, որոնք պարունակում են տեքստային տուփեր, որոնք փոխելու եք տառատեսակը եւ տառաչափը նույն թղթապանակի տակ:

2. Բացելով Word- ի փաստաթղթում, սեղմեք ալտ + F11 բացել ստեղները Microsoft Visual Basic ծրագրերի համար պատուհան.

3. Մեջ Microsoft Visual Basic ծրագրերի համար պատուհանը, սեղմեք Տեղադրել > Մոդուլներ, ապա պատճենեք հետեւյալ կոդը Մոդուլի պատուհանում:

VBA կոդ: Փոխել տառատեսակը եւ տառաչափը բազմակի փաստաթղթերի տեքստային տուփերում

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. Սեղմեք F5 բանալին գործարկել կոդը: Բացման ժամանակ Թերթել պատուհանը ընտրեք թղթապանակը (պարունակում է փաստաթղթեր, որոնք կփոխեն տառատեսակների տառատեսակը եւ տառաչափը) եւ կտտացրեք OK կոճակը:

Այնուհետեւ ընտրված թղթապանակի բոլոր տեքստային տուփերի տառատեսակը եւ տառատեսակը փոխվում են նշված տառատեսակը եւ տառաչափը:



Բառի համար kutools

Ավելի քան 100- ի առաջադեմ գործառույթները Word 2003, 2007, 2010, 2013, 2016 եւ 2019- ի համար

shot-kutools-700-225-kte- ը

Լրացուցիչ հնարավորություններ | Անվճար ներբեռնում | Միայն $ 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.