Як змінити шрифт і розмір шрифту у всіх текстових полях у документі Word?
У цій статті йдеться про зміну шрифту та розміру шрифту в текстових полях поточного документа або документів у зазначеній папці. Будь ласка, спробуйте метод VBA у статті.
Змініть шрифт та розмір шрифту в текстових полях поточного документа
Змініть шрифт і розмір шрифту в текстових полях усіх документів у папці
Змініть шрифт та розмір шрифту в текстових полях поточного документа
Для текстових полів ви зміните шрифт та розмір шрифту в поточному документі, застосуйте наведений нижче код VBA, щоб вирішити проблему.
1 Натисніть кнопку інший + F11 ключі, щоб відкрити Microsoft Visual Basic для додатків вікна.
2 В Microsoft Visual Basic для додатків вікна, натисніть Insert > Модулі, а потім скопіюйте наступний код у вікно Модуль.
Код 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 натисніть інший + F11 ключі, щоб відкрити Microsoft Visual Basic для додатків вікна.
3 В Microsoft Visual Basic для додатків вікна, натисніть Insert > Модулі, а потім скопіюйте наступний код у вікно Модуль.
Код 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 клавіша для запуску коду. На відкритті перегорнути у вікні, виберіть папку (містить документи, у яких ви зміните шрифт та розмір шрифту в текстових полях) і натисніть на OK кнопки.
Потім шрифт усіх текстових полів та розмір шрифту документів у вибраній папці змінюються на вказаний шрифт та розмір шрифту.
Найкращі інструменти продуктивності офісу
Kutools для Word - Підніміть свій досвід Word із Over 100 Чудові особливості!
🤖 Kutools AI Assistant: змініть свій текст за допомогою ШІ - Створення вмісту / Переписати текст / Узагальнити документи / Звертайтеся за інформацією на основі Документа, все в Word
📘 Майстерність документів: Розділити сторінки / Об’єднати документи / Експортувати вибране в різні формати (PDF/TXT/DOC/HTML...) / Пакетне перетворення в PDF / Експортувати сторінки як зображення / Друк кількох файлів одночасно...
✏ Редагування змісту: Пакетний пошук та заміна між кількома файлами / Змінити розмір усіх зображень / Транспонування рядків і стовпців таблиці / Перетворити таблицю в текст...
🧹 Очищення без зусиль: Змітати Зайві простори / Розбиття розділів / Усі заголовки / Текстові поля / Гіперпосилання / Щоб отримати більше інструментів для видалення, відвідайте наш сайт Вилучити групу...
➕ Творчі вставки: Вставити Роздільники тисяч / Прапорці / радіо кнопки / QR-код / Штрих-код / Таблиця діагональних ліній / Заголовок рівняння / Підпис зображення / Заголовок таблиці / Кілька зображень / Дізнайтеся більше в Вставити групу...
???? Точність вибору: Точне визначення конкретні сторінки / Таблиці / форми / заголовок абзаців / Покращте навігацію за допомогою більше Виберіть функції...
⭐ Покращення зірок: Швидка навігація до будь-якого місця / автоматичне вставлення повторюваного тексту / плавно перемикатися між вікнами документів / 11 Інструменти перетворення...