Как да промените шрифта и размера на шрифта във всички текстови полета в документа на 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 ключ за изпълнение на кода. Тогава шрифтът и размерът на шрифта на всички текстове в текстовите полета се променят на посочения шрифт и размер на шрифта. Вижте екранна снимка:

Променете шрифта и размера на шрифта във всички текстови полета на всички документи в папка

За да промените групово шрифта и размера на шрифта на текстовите полета в множество документи на Word, трябва да приложите следния 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 за Word - Подобрете своя Word опит с Over 100 Забележителни функции!

🤖 Kutools AI Assistant: Преобразувайте писането си с AI - Генериране на съдържание  /  Пренаписване на текст  /  Обобщаване на документи  /  Запитване за информация въз основа на Документ, всичко това в Word

📘 Владеене на документи: Разделяне на страници  /  Обединяване на документи  /  Експортиране на селекция в различни формати (PDF/TXT/DOC/HTML...)  /  Пакетно конвертиране в PDF  /  Експортиране на страници като изображения  /  Отпечатайте няколко файла наведнъж...

✏ Редактиране на съдържанието: Пакетно намиране и замяна в множество файлове  /  Преоразмеряване на всички снимки  /  Транспониране на редовете и колоните на таблицата  /  Преобразуване на таблица в текст...

🧹 Почистване без усилие: Изметете Допълнителни пространства  /  Прекъсвания на раздели  /  Всички заглавки  /  Текстови полета  /  Хипервръзки  / За повече инструменти за премахване се насочете към нашия Премахване на група...

➕ Творчески вложки: Вмъкване Хилядни разделители  /  Квадратчета  /  Радио бутони  /  QR Code  /  Баркод  /  Таблица с диагонални линии  /  Надпис на уравнение  /  Надпис на изображението  /  Надпис на таблица  /  Множество снимки  / Открийте повече в Вмъкване на група...

🔍 Прецизни селекции: Точна точка конкретни страници  /  таблици  /  форми  /  заглавни параграфи  / Подобрете навигацията с още Изберете функции...

⭐ Звездни подобрения: Навигирайте бързо до всяко място  /  автоматично вмъкване на повтарящ се текст  /  безпроблемно превключване между прозорците на документи  /  11 Инструменти за конвертиране...

👉 Искате ли да изпробвате тези функции? Kutools за Word предлага a 60-дневен безплатен пробен период, без ограничения! ????

Безплатно сваляне     Вижте повече     Поръчай сега