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

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

Author: Siluvia Last Modified: 2025-08-07

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

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

Лучшие инструменты для повышения производительности в Office

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

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

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

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

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

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

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

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

🌍 Поддержка более40 языков: Используйте Kutools на удобном вам языке – поддерживаются английский, испанский, немецкий, французский, китайский и ещё более40 языков!

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

Лучшие инструменты для повышения производительности в Office

Kutools для Word – 100+ инструментов для Word