Перейти к содержимому

Как изменить шрифт и размер шрифта во всех текстовых полях в документе Word?

Author: Siluvia Last Modified: 2025-06-05

В этой статье рассказывается об изменении шрифта и размера шрифта в текстовых полях текущего документа или документов в указанной папке. Пожалуйста, попробуйте методы VBA, описанные в статье.

Изменение шрифта и размера шрифта в текстовых полях текущего документа

Изменение шрифта и размера шрифта в текстовых полях всех документов в папке


Изменение шрифта и размера шрифта в текстовых полях текущего документа

Чтобы изменить шрифт и размер шрифта в текстовых полях текущего документа, примените следующий код VBA для решения проблемы.

1. Нажмите клавиши Alt + F11, чтобы открыть окно Microsoft Visual Basic for Applications.

2. В окне Microsoft Visual Basic for Applications нажмите Вставить > Модуль, затем скопируйте следующий код в окно Модуля.

Код 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 для запуска кода. Затем шрифт и размер шрифта всех текстов в текстовых полях будут изменены на указанные шрифт и размер шрифта. См. скриншот:

Font and font size in the text boxes are changed to the specified ones


Изменение шрифта и размера шрифта во всех текстовых полях всех документов в папке

Для массового изменения шрифта и размера шрифта в текстовых полях нескольких документов Word необходимо применить следующий код VBA.

1. Пожалуйста, соберите все целевые документы, содержащие текстовые поля, в которых вы хотите изменить шрифт и размер шрифта, в одну папку.

2. В открытом документе Word нажмите клавиши Alt + F11, чтобы открыть окно Microsoft Visual Basic for Applications.

3. В окне Microsoft Visual Basic for Applications нажмите Вставить > Модуль, затем скопируйте следующий код в окно Модуля.

Код 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 для запуска кода. В открывшемся окне Обзор выберите папку (содержащую документы, в которых вы хотите изменить шрифт и размер шрифта в текстовых полях) и нажмите кнопку ОК.

Browse window

Затем шрифт и размер шрифта всех текстовых полей документов в выбранной папке будут изменены на указанные шрифт и размер шрифта.

Лучшие инструменты для повышения продуктивности в офисе

Kutools для Word — расширьте возможности работы с Word с помощью более чем 100 уникальных функций!

🤖 Функции искусственного интеллекта Kutools: AI Ассистент / Ассистент в Реальном Времени / Супер Полировка (с сохранением формата) / Супер Перевод (с сохранением формата) / Искусственный интеллект для редактирования / Проверка с помощью ИИ...

📘 Мастерство работы с документами: Разделить страницы / Объединить документы / Экспортировать выделенное в различные форматы (PDF/TXT/DOC/HTML...) / Пакетно преобразовать в PDF...

Редактирование содержимого: Пакетный поиск и замена в нескольких файлах / Изменить размер всех изображений / Транспонировать строки и столбцы таблицы / Преобразовать таблицу в текст...

🧹 Легкая очистка: Удалите лишние пробелы / Разрывы разделов / Текстовые поля / Гиперссылки / Для дополнительных инструментов удаления перейдите в группу Удалить...

Креативные вставки: Вставить разделители тысяч / Флажки / Переключатели / QR-код / Штрихкод / Несколько изображений / Откройте больше возможностей в группе Вставить...

🔍 Точные выделения: Быстро находите нужные страницы / Таблицы / Фигуры / Абзацы заголовка / Улучшайте навигацию с помощью дополнительных функций Выбрать...

Особые улучшения: Переходите к любому расположению / Автоматически вставляйте повторяющийся текст / Переключайтесь между окнами документа /11 инструментов для преобразования...

Kutools and Kutools Plus tabs on the Word Ribbon
👉 Хотите опробовать эти функции? Скачайте Kutools для Word прямо сейчас! 🚀