如何一次變更 Word 文件中所有文字框的字型與字體大小？

作者Siluvia修改日期2024-08-12

本文將介紹如何變更目前文件或指定資料夾中檔案內文字框的字型與字體大小，歡迎試用文中提供的 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 鍵執行程式碼。在開啟的瀏覽視窗中，選取包含您要變更文字框字型與字體大小之文件的資料夾，然後按一下確定按鈕。

瀏覽視窗