Home » ワードマクロ・Word VBAの使い方 » フォント » Word文書で使われているフォントの名前とサイズを出力するマクロ

Word文書で使われているフォントの名前とサイズを出力するマクロ

動作検証バージョン：Windows 11 Home + 64bit Word バージョン 2406（ビルド17715.20000クイック実行）ベータチャネル

200ページほどのWord文書を編集していて、その文書内で使われているフォントの名前とフォントサイズを確認したくなりました。

以前、Scripting.Dictionaryを使ったフォント名だけを出力するマクロをご紹介しましたが、もう少しシンプルでいいように感じDictionaryオブジェクトを使わないWordマクロを作りましたのでご紹介しておきます。

使われているフォントの名前とサイズを出力するサンプルマクロ

以下のWordマクロを実行すると、アクティブ文書の本文で使われているフォント名とフォントサイズがイミディエイトウィンドウに出力されます。

Sub 使われているフォントの名前とサイズの一覧を出力する()

　Dim fon_list As String
　
　Dim fon As String
　Dim rng As Range
　For Each rng In ActiveDocument.Characters
　　fon = rng.Font.Name & "; " & rng.Font.Size
　　If InStr(fon_list, fon) = 0 Then
　　　fon_list = fon_list & fon & vbCrLf
　　End If
　Next
　
　Debug.Print fon_list

End Sub

出力時には、フォント名とフォントサイズの間に「;」セミコロンが入りますから、最近のExcelにコピペすると、まあまあの確率でフォント名とフォントサイズが別のセルになった状態で貼り付けられるんじゃないかと思います。

サンプルマクロで行っている処理

拙著『Excel VBAユーザーのためのWord VBA入門（1）: Document・Range・Selectionの基本編』の［3-6. Characters経由でRangeを取得する］で、Word文書の本文を一文字ずつ処理するFor Each～Nextループを解説しています。

そのFor Each～Nextループを使ったWordマクロです。

Dim fon_list As String

Dim fon As String
Dim rng As Range
For Each rng In ActiveDocument.Characters
　fon = rng.Font.Name & "; " & rng.Font.Size
　If InStr(fon_list, fon) = 0 Then
　　fon_list = fon_list & fon & vbCrLf
　End If

Debug.Print fon_list

最初に宣言しているのは、フォントの名前とサイズを格納する変数です。

Dim fon_list As String

この変数fon_listを、最後に出力しています。

Debug.Print fon_list

For Each～Nextループ内では、まず、変数fonにフォント名とフォントサイズを代入しています。

　fon = rng.Font.Name & "; " & rng.Font.Size

そのフォント名とフォントサイズが、変数fon_listに見つからなかったときにのみ、fon_listの末尾に追加しています。

　If InStr(fon_list, fon) = 0 Then
　　fon_list = fon_list & fon & vbCrLf
Excel VBAユーザーのためのWord VBA入門（1）: Document・Range・Selectionの基本編
伊藤潔人 2021-02-17
Amazon


最終更新日時：2024-05-23 09:48

［スポンサードリンク］

Home » ワードマクロ・Word VBAの使い方 » フォント » Word文書で使われているフォントの名前とサイズを出力するマクロ

『インストラクターのネタ帳』では、2003年10月からMicrosoft Officeの使い方などを紹介し続けています。
Excel VBAの経験がある方を対象に、Word VBAの基本をキンドル本としてまとめました↓↓ Excel VBAユーザーの方を対象として、Wordの表をVBAで操作する基礎をまとめました↓↓ 『インストラクターのネタ帳』を運営する伊藤潔人が、初めて書かせていただいた書籍です↓↓ PowerPoint VBA本は、実はオブジェクトブラウザーの使い方を徹底的に解説した本です↓↓ 日経BP社から出版された、Excel VBAユーザー向けのPython超入門書です↓↓ 上記の『Excel VBAユーザーのためのPythonプログラミング』の、元になったキンドル本です↓↓ Pythonの文字列フォーマットの基本をキンドル本としてまとめました↓↓ 小数とPythonのdecimalモジュールの基本をキンドル本としてまとめました↓↓ 数式を使った条件付き書式設定が苦手な方に向けたKindle本を書きました↓↓ 図形を操作するExcel VBAの基本を解説したキンドル本を書きました↓↓ グラフを操作するExcel VBAの基本を解説したキンドル本も出しました↓↓ Pythonの外部ライブラリOpenPyXL（オープンパイエクセル）の入門書を、Excel VBAユーザーに向けに書きました↓↓


「フォント」の記事一覧

検索


Copyright © インストラクターのネタ帳 All Rights Reserved.

.