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

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

Изменение шрифта и Размер шрифта в Текстовое поле в Текущий документ

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

Изменение шрифта и Размер шрифта в Текстовое поле в Текущий документ

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

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

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

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

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

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

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

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

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

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

🔍Точное выделение: выделяйте определённые страницы, таблицы, фигуры и абзацы заголовков — улучшите навигацию с помощью расширенных функций выделенияfeatures ……

⭐Звёздные улучшения: Переход к любому месту / Автоматическая вставка повторяющегося текста / Переключение между документами Windows / 11преобразования Инструменты…

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

 

Бесплатно скачать     Купить сейчас     Подробнее

 

---

Office Tab– Добавляет вкладки в Office и значительно упрощает вашу работу

• Включите редактирование и чтение с вкладками в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
• Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в отдельных окнах.
• Повышает продуктивность на 50 % и экономит сотни кликов мышью каждый день!

Бесплатно скачать     Купить сейчас     Подробнее

 

---

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

Включает в себя Office Tab Pro·Kutools для Excel·Kutools для Outlook·Kutools для Word·Kutools for PowerPoint

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

⬇️ Скачать сейчас🎁 Приобрести полный пакет📖 Подробнее

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

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

• 🤖KUTOOLS AI функции:AI Ассистент/Ассистент в Реальном Времени/Супер Полировка/Супер Перевод/Искусственный интеллект для редактирования/Проверка с помощью ИИ
• 📘Мастерство работы с документами:Разделение страниц/Объединить документы/Пакетное преобразование в PDF
• ✏Редактирование содержимого:Пакетный поиск и замена/Изменение размера всех изображений
• 🧹Легкая очистка:Удаление лишних пробелов/Удалить Разрыв раздела
• ➕Креативные вставки:Вставка разделителей разрядов/Вставить Флажок/Создать QR-код
• 🌍Поддержка более чем 40 языков: Kutools говорит на вашем языке — доступно более 40 языков!

Бесплатно скачатьКупить сейчасПодробнее о Kutools