Word文書のすべてのテキストボックスのフォントとフォントサイズを変更するにはどうすればよいですか？
この記事では、現在のドキュメントまたは指定したフォルダ内のドキュメントのテキストボックスのフォントとフォントサイズを変更する方法について説明します。 記事のVBAメソッドを試してください。
現在のドキュメントのテキストボックスのフォントとフォントサイズを変更します
フォルダ内のすべてのドキュメントのテキストボックスのフォントとフォントサイズを変更します
現在のドキュメントのテキストボックスのフォントとフォントサイズを変更します
現在のドキュメントのフォントとフォントサイズを変更するテキストボックスについては、以下のVBAコードを適用して問題を解決してください。
1。 プレス 他の + F11 キーを押して アプリケーション向け Microsoft Visual Basic 窓。
2。 の中に アプリケーション向け Microsoft Visual Basic ウィンドウ、クリック インセット > モジュール、次に次のコードをモジュールウィンドウにコピーします。
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 SubNote：コードでは、「MS Pゴシック"と"20」は、私の場合、指定されたフォントとフォントサイズです。 必要に応じて変更できます。
3。 プレス F5 コードを実行するためのキー。 次に、テキストボックス内のすべてのテキストのフォントとフォントサイズが、指定されたフォントとフォントサイズに変更されます。 スクリーンショットを参照してください：
フォルダ内のすべてのドキュメントのすべてのテキストボックスのフォントとフォントサイズを変更します
複数のWord文書でテキストボックスのフォントとフォントサイズを一括で変更するには、以下のVBAコードを適用する必要があります。
1.同じフォルダでフォントとフォントサイズを変更するテキストボックスを含むすべてのターゲットドキュメントを収集してください。
2.開いているWord文書で、を押します。 他の + F11 キーを押して アプリケーション向け Microsoft Visual Basic 窓。
3。 の中に アプリケーション向け Microsoft Visual Basic ウィンドウ、クリック インセット > モジュール、次に次のコードをモジュールウィンドウにコピーします。
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 Sub4。 プレス F5 コードを実行するためのキー。 オープニングで ブラウズ ウィンドウで、フォルダ（テキストボックスでフォントとフォントサイズを変更するドキュメントが含まれています）を選択し、[ OK
次に、選択したフォルダ内のすべてのテキストボックスのフォントとドキュメントのフォントサイズが、指定したフォントとフォントサイズに変更されます。
最高のオフィス生産性向上ツール
Kutools for Word - Over で単語体験を向上させましょう 100 注目すべき機能！
🤖 Kutools AI アシスタント: AI であなたの文章を変革します - コンテンツを生成する / テキストを書き換える / 文書を要約する / 情報のお問い合わせ 文書に基づいて、すべて Word 内で
📘 ドキュメントマスタリー: 分割ページ / ドキュメントをマージする / 選択内容をさまざまな形式でエクスポート (PDF/TXT/DOC/HTML...) / PDFへの一括変換 / ページを画像としてエクスポート / 複数のファイルを一度に印刷する...
✏ コンテンツ編集: バッチ検索と置換 複数のファイルにわたる / すべての画像のサイズを変更する / テーブルの行と列を転置する / 表をテキストに変換...
🧹 楽にお掃除：振り払って 余分なスペース / セクションブレーク / すべてのヘッダー / テキストボックス / ハイパーリンク / その他の取り外しツールについては、当社の Web サイトをご覧ください。 グループを削除...
➕ クリエイティブインサート：挿入 千の区切り文字 / チェックボックス / ラジオボタン / QRコード / バーコード / 斜線テーブル / 方程式のキャプション / 画像キャプション / テーブルキャプション / 複数の写真 / 詳細については、 グループを挿入...
🔍 正確な選択： ピンポイント 特定のページ / テーブル / シェイプ / 見出し段落 / ナビゲーションを強化する 他には？ 機能の選択...
⭐ スターの強化: あらゆる場所に素早く移動 / 繰り返しのテキストを自動挿入 / ドキュメントウィンドウをシームレスに切り替える / 11 変換ツール...
