Як змінити шрифт і розмір шрифту у всіх текстових полях у документі 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 for Word - Підніміть свій досвід Word із Over 100 Чудові особливості!

Зануртеся в виділені функції нижче або натисніть тут, щоб дослідити всю потужність Kutools for Word.

📘 Майстерність документів: Розділити сторінки  /  Об’єднати документи  /  Експортувати вибране в різні формати (PDF/TXT/DOC/XLSX)  /  Пакетне перетворення в PDF  /  Експортувати сторінки як зображення  /  Друк кількох файлів одночасно ...

✏ Редагування змісту: Пакетний пошук та заміна між кількома файлами   /  Змінити розмір усіх зображень   /  Транспонування рядків і стовпців таблиці  /  Перетворити таблицю в текст ...

🧹 Очищення без зусиль: Змітати Зайві простори  /  Розбиття розділів  /   Усі заголовки  /  Текстові поля  /  Гіперпосилання  /  Щоб отримати додаткові інструменти для видалення, перейдіть до нашої групи видалення

➕ Творчі вставки: Insert Роздільники тисяч  /  Прапорці  /  радіо кнопки  /  QR-код  /  Штрих-код  /  Таблиця діагональних ліній  /  Заголовок рівняння  /  Підпис зображення  /  Заголовок таблиці  /  Кілька зображень  /  Дізнайтеся більше в нашій групі вставок

???? Точність вибору: Визначте конкретні сторінки  /  Таблиці  /  форми  /  заголовок абзаців  /  Переміщуйтеся з легкістю за допомогою нашої групи вибору

⭐ Покращення зірок: Швидка навігація до будь-якого місця  /  автоматичне вставлення повторюваного тексту  /  плавно перемикатися між вікнами документів  /  11 Інструменти перетворення ...

Перетворіть свої завдання Word за допомогою Kutools. 👉 Завантажте зараз із 30-денною пробною версією 🚀.

Детальніше       Безкоштовне завантаження      Купити