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キーを押してコードを実行します。表示される参照ウィンドウで、フォントとフォントサイズを変更したいテキストボックスを含むフォルダーを選択し、OKボタンをクリックします。

参照ウィンドウ