Как изменить шрифт и размер шрифта во всех текстовых полях в документе Word?
В этой статье рассказывается об изменении шрифта и размера шрифта в текстовых полях текущего документа или документов в указанной папке. Пожалуйста, попробуйте методы 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 для запуска кода. Затем шрифт и размер шрифта всех текстов в текстовых полях будут изменены на указанные шрифт и размер шрифта. См. скриншот:
Изменение шрифта и размера шрифта во всех текстовых полях всех документов в папке
Для массового изменения шрифта и размера шрифта в текстовых полях нескольких документов 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 для запуска кода. В открывшемся окне Обзор выберите папку (содержащую документы, в которых вы хотите изменить шрифт и размер шрифта в текстовых полях) и нажмите кнопку ОК.
Затем шрифт и размер шрифта всех текстовых полей документов в выбранной папке будут изменены на указанные шрифт и размер шрифта.
Лучшие инструменты для повышения продуктивности в офисе
Kutools для Word — расширьте возможности работы с Word с помощью более чем 100 уникальных функций!
🤖 Функции искусственного интеллекта Kutools: AI Ассистент / Ассистент в Реальном Времени / Супер Полировка (с сохранением формата) / Супер Перевод (с сохранением формата) / Искусственный интеллект для редактирования / Проверка с помощью ИИ...
📘 Мастерство работы с документами: Разделить страницы / Объединить документы / Экспортировать выделенное в различные форматы (PDF/TXT/DOC/HTML...) / Пакетно преобразовать в PDF...
✏ Редактирование содержимого: Пакетный поиск и замена в нескольких файлах / Изменить размер всех изображений / Транспонировать строки и столбцы таблицы / Преобразовать таблицу в текст...
🧹 Легкая очистка: Удалите лишние пробелы / Разрывы разделов / Текстовые поля / Гиперссылки / Для дополнительных инструментов удаления перейдите в группу Удалить...
➕ Креативные вставки: Вставить разделители тысяч / Флажки / Переключатели / QR-код / Штрихкод / Несколько изображений / Откройте больше возможностей в группе Вставить...
🔍 Точные выделения: Быстро находите нужные страницы / Таблицы / Фигуры / Абзацы заголовка / Улучшайте навигацию с помощью дополнительных функций Выбрать...
⭐ Особые улучшения: Переходите к любому расположению / Автоматически вставляйте повторяющийся текст / Переключайтесь между окнами документа /11 инструментов для преобразования...

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