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

Kutools для Office — один пакет. Пять инструментов. Выполняйте больше.

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

Author Siluvia Last modified

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

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

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

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

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

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

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

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

🌍 Поддержка более40 языков: Используйте Kutools на предпочитаемом языке — поддерживаются Английский, Испанский, Немецкий, Французский, Китайский и еще более40 языков!

Kutools and Kutools Plus tabs on the Word Ribbon
👉 Хотите попробовать эти функции? Загрузите Kutools for Word сейчас! 🚀
 

✨ Kutools for Office — Одна установка, пять мощных инструментов!

Включает Office Tab Pro · Kutools for Excel · Kutools for Outlook · Kutools for Word · Kutools for PowerPoint

📦 Получите все5 инструментов в одном пакете | 🔗 Бесшовная интеграция с Microsoft Office | ⚡ Мгновенно экономьте время и повышайте продуктивность

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

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

Бесплатная загрузка Купить Подробнее о Kutools