Note: The other languages of the website are Google-translated. Back to English
English English

Як змінити шрифт і розмір шрифту у всіх текстових полях у документі 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 - більше 100 розширених функцій для Word, заощаджуйте 50% часу

  • Складні та повторювані операції можна виконати одноразово за кілька секунд.
  • Вставте кілька зображень між папками в документ Word одночасно.
  • Об’єднайте та об’єднайте декілька файлів Word у папках в одне із потрібним замовленням.
  • Поділіть поточний документ на окремі документи відповідно до заголовка, розділу розділу чи інших критеріїв.
  • Перетворюйте файли між Doc та Docx, Docx та PDF, колекцією інструментів для загальних перетворень та виділення тощо ...
Коментарі (1)
Поки немає оцінок. Оцініть першим!
Цей коментар був мінімізований модератором на сайті
Це чудовий пост. Дійсно дуже інформативний та креативний вміст. Ця концепція є гарним способом розширити знання. Мені це подобається і допомагає мені дуже добре розвиватися. Дякую за це коротке пояснення та дуже гарну інформацію. Ну, я отримав гарні знання.

Навчання Java в Ченнаї
Навчання Java в Коїмбаторі
Навчання Java в Бангалорі
There are no comments posted here yet
Залишайте свої коментарі
Публікація як гість
×
Оцініть цю публікацію:
0   Персонажі
Рекомендовані місця