Note: The other languages of the website are Google-translated. Back to English
Увійти  \/ 
x
or
x
Реєстрація  \/ 
x

or

Як змінити шрифт і розмір шрифту у всіх текстових полях у документі 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, колекцією інструментів для загальних перетворень та виділення тощо ...
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    pavithradass123 · 2 years ago
    This is an awesome post.Really very informative and creative contents. These concept is a good way to enhance the knowledge.I like it and help me to development very well.Thank you for this brief explanation and very nice information.Well, got a good knowledge.

    Java Training in Chennai
    Java Training in Coimbatore
    Java Training in Bangalore