メインコンテンツへスキップ

Word文書のすべてのテキストボックスのフォントとフォントサイズを変更するにはどうすればよいですか?

作者: シルヴィア 最終更新日:2018年12月12日

この記事では、現在のドキュメントまたは指定したフォルダ内のドキュメントのテキストボックスのフォントとフォントサイズを変更する方法について説明します。 記事の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 Sub

Note:コードでは、「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 Sub

4。 プレス F5 コードを実行するためのキー。 オープニングで ブラウズ ウィンドウで、フォルダ(テキストボックスでフォントとフォントサイズを変更するドキュメントが含まれています)を選択し、[ OK

次に、選択したフォルダ内のすべてのテキストボックスのフォントとドキュメントのフォントサイズが、指定したフォントとフォントサイズに変更されます。

最高のオフィス生産性向上ツール

Kutools for Word - Over で単語体験を向上させましょう 100 注目すべき機能!

🤖 Kutools AI アシスタント: AI であなたの文章を変革します - コンテンツを生成する  /  テキストを書き換える  /  文書を要約する  /  すぐに回答を得る、すべて Word 内で

📘 ドキュメントマスタリー: 分割ページ  /  ドキュメントをマージする  /  選択内容をさまざまな形式でエクスポート (PDF/TXT/DOC/HTML...)  /  PDFへの一括変換  /  ページを画像としてエクスポート  /  複数のファイルを一度に印刷する...

コンテンツ編集: バッチ検索と置換 複数のファイルにわたる  /  すべての画像のサイズを変更する  /  テーブルの行と列を転置する  /  表をテキストに変換...

🧹 楽にお掃除:振り払って 余分なスペース  /  セクションブレーク  /  すべてのヘッダー  /  テキストボックス  /  ハイパーリンク  / その​​他の取り外しツールについては、次のサイトにアクセスしてください。 グループの削除...

クリエイティブインサート:挿入 千の区切り文字  /  チェックボックス  /  ラジオボタン  /  QRコード  /  バーコード  /  斜線テーブル  /  方程式のキャプション  /  画像キャプション  /  テーブルキャプション  /  複数の写真  / 詳細については、 グループの挿入...

🔍 正確な選択: ピンポイント 特定のページ  /  テーブル類  /  形状  /  見出し段落  / ナビゲーションを強化する 他には? 機能の選択...

スターの強化: 任意の場所に移動  /  繰り返しテキストの自動挿入  /  ドキュメントウィンドウ間の切り替え  /  11 変換ツール...

👉 これらの機能を試してみませんか? 今すぐ Kutools for Word をダウンロードして、違いを体験してください! 🚀
 
Comments (1)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
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
There are no comments posted here yet
Leave your comments
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations