Cookies დაგვეხმარება სიტყვით ჩვენი მომსახურება. გამოყენებით ჩვენი მომსახურება, თქვენ ეთანხმებით, რომ ჩვენი გამოყენების cookies.
რჩევა: სხვა ენები Google- ით თარგმნილია. შეგიძლიათ ეწვიოთ English ამ ბმის ვერსია.
შესვლა
x
or
x
x
რეგისტრაცია
x

or

როგორ შეცვალოთ შრიფტი და შრიფტის ზომა ყველა ტექსტურ ყუთში Word დოკუმენტში?

ეს სტატია ეხება ტექსტის ყუთებში შეცვლილი შრიფტისა და შრიფტის შეცვლით მიმდინარე დოკუმენტში ან დოკუმენტებში მითითებულ საქაღალდეში. გთხოვთ, სცადოთ VBA მეთოდით სტატიაში.

შრიფტისა და შრიფტის ზომის შეცვლა ტექსტურ ყუთებში მიმდინარე დოკუმენტში

შრიფტისა და შრიფტის ზომა შეცვალეთ ყველა დოკუმენტის ტექსტურ ყუთებში ფოლდერში


შრიფტისა და შრიფტის ზომის შეცვლა ტექსტურ ყუთებში მიმდინარე დოკუმენტში

ტექსტის ყუთებში თქვენ შეცვლით შრიფტისა და შრიფტის ზომა მიმდინარე დოკუმენტში, გთხოვთ გამოვიყენოთ ქვემოთ მოყვანილი VBA კოდი პრობლემის მოსაგვარებლად.

1. პრესა Alt + F11 გასაღებები გასახსნელად Microsoft Visual Basic აპლიკაციებისათვის window.

2. In Microsoft Visual Basic აპლიკაციებისათვის ფანჯარა, დააჭირეთ ჩადეთ > მოდულები, და შემდეგ კოპირება შემდეგ კოდი შევიდა მოდული window.

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 გასაღები აწარმოებს კოდი. ტექსტის ყუთებში ყველა ტექსტის შრიფტისა და შრიფტის ზომა შეიცვალა მითითებულ შრიფტისა და შრიფტის ზომაზე. იხილეთ სკრინშოტი:


შრიფტისა და შრიფტის ზომის შეცვლა ყველა დოკუმენტის ყველა ტექსტურ ყუთში საქაღალდეში

ტექსტის ყუთების "შრიფტისა და შრიფტის ზომის შესაცვლელად მრავლობითი Word დოკუმენტებში, საჭიროა ქვემოთ მოყვანილი VBA კოდი.

1. გთხოვთ, შეაგროვოთ ყველა სამიზნე დოკუმენტი, რომელიც შეიცავს ტექსტურ ყუთებს, თქვენ შეიცვლება შრიფტისა და შრიფტის ზომა იმავე საქაღალდეში.

2. გახსნის Word დოკუმენტის, დააჭირეთ Alt + F11 გასაღებები გასახსნელად Microsoft Visual Basic აპლიკაციებისათვის window.

3. In Microsoft Visual Basic აპლიკაციებისათვის ფანჯარა, დააჭირეთ ჩადეთ > მოდულები, და შემდეგ კოპირება შემდეგ კოდი შევიდა მოდული window.

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 Advanced ფუნქციები სიტყვა 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.