No.5ベストアンサー
- 回答日時:
#3 です。
これならどうですか?改行コードにもフォント属性があるみたいなので、
改行コードを含めないように修正しました。
Asc(Char) <> 13 の部分です。
その他細かい修正を行いましたので、コード全体
を差し替えます。
Sub 使用したフォント名の列挙()
Dim Char As Object
Dim Dic As Object
Dim Shp As Shape
Dim strMes As String
Dim Fn As Variant
Set Dic = CreateObject("Scripting.Dictionary")
'テキストのフォント名を調べる
For Each Char In ActiveDocument.Characters
If Not Dic.Exists(Char.Font.Name) And Asc(Char) <> 13 Then
Debug.Print Asc(Char)
Dic.Add Key:=Char.Font.Name, Item:=Empty
End If
Next Char
'シェープ中のフォント名を調べる
For Each Shp In ActiveDocument.Shapes
If Shp.TextFrame.HasText Then
For Each Char In Shp.TextFrame.TextRange.Characters
If Not Dic.Exists(Char.Font.Name) And Asc(Char) <> 13 Then
Dic.Add Key:=Char.Font.Name, Item:=Empty
End If
Next Char
End If
Next Shp
'結果表示
i = 1
strMes = "※埋め込みオブジェクト内で使用されたフォントを含みません" & vbCrLf & vbCrLf
For Each Fn In Dic.Keys
If Fn <> "" Then
strMes = strMes & "・" & Fn & vbCrLf
i = i + 1
End If
Next Fn
strMes = strMes & vbCrLf & "【計 " & i - 1 & " 種】"
MsgBox Prompt:=strMes, Title:="使用されているフォント"
Set Char = Nothing
Set Shp = Nothing
Set Dic = Nothing
End Sub
No.4
- 回答日時:
Wordを開く。
メニューバーの書式をクリックする。
リストの"フォント"をクリックする。
フォントのウィンドウが開いてフォントのタブを選択。
日本語用のフォント(T)
英数字用のフォント(F)
でプルダウンを使用すればわかります。
下のプレビューに書体のイメージが表示されます。
どんな書体なのか目視でわかります。
後は、コントロールパネルを開いて、
クラシック表示にし、その中に"フォント"のフォルダがあります。
クリックして開くとお使いのPCで使えるフォントファイルが、
あります。
その画面で、メニューバーの表示をクリック。
一覧を選択すれば、リスト表示できます。
この回答への補足
教えて頂いた方法では、インストールされている全てのフォントが表示されてしまい、Word文書中で実際に使用されているフォントの特定をするのは困難でした。
補足日時:2005/10/08 10:14No.3
- 回答日時:
こんにちは。
KenKen_SP です。マクロを使ってフォント名をリストアップする一例です。ただし、下記の
コードでは埋め込みオブジェクト(Excelの表とか)の中で使用されている
フォント名までは拾えません。テキストボックスなどは OK です。
Word VBA です。Word2000 以上なら動くと思いますが確認はしてません。
Visual Basic Editor で Normal.dot に標準モジュールを挿入し、下記を
コピー&ペーストしてお使い下さい。
Sub 使用したフォント名の列挙()
Dim Char As Object
Dim Dic As Object
Dim Shp As Shape
Dim strMes() As String
Set Dic = CreateObject("Scripting.Dictionary")
'テキストのフォント名を調べる
For Each Char In ActiveDocument.Characters
If Not Dic.Exists(Char.Font.Name) Then
Dic.Add Key:=Char.Font.Name, Item:=Empty
End If
Next Char
'シェープ中のフォント名を調べる
For Each Shp In ActiveDocument.Shapes
If Shp.TextFrame.HasText Then
For Each Char In Shp.TextFrame.TextRange.Characters
If Not Dic.Exists(Char.Font.Name) Then
Dic.Add Key:=Char.Font.Name, Item:=Empty
End If
Next Char
End If
Next Shp
'結果表示
ReDim strMes(Dic.Count + 1)
i = 1
strMes(0) = "※埋め込みオブジェクト内で使用されたフォントを含みません" & vbCrLf
For Each Fn In Dic.Keys
If Fn <> "" Then
strMes(i) = "・" & Fn
i = i + 1
End If
Next Fn
strMes(i) = vbCrLf & "【計 " & i - 1 & " 種】"
MsgBox Join$(strMes, vbCrLf), Title:="使用されているフォント"
Set Char = Nothing
Set Shp = Nothing
Set Dic = Nothing
End Sub
この回答への補足
ありがとうございます。
Word98で実行したところ、「Join$」のところで、「SubまたはFunctionが定義されていません」と出てしまいました。
結果を最後にまとめて表示させる部分だと思うのですが…
少々不便でも、何か実行させる回避方法はありませんでしょうか。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Word(ワード) Word/Excelのフォント デフォルト設定は可能か。 2 2022/10/26 12:26
- PDF acrobatでwordファイルをpdfに変換すると文字化けする 3 2023/02/10 09:31
- デザイン フォントについて。 画像のフォントはなんというフォントですか? またそれはWordなどで無料で使える 1 2022/09/05 19:41
- その他(パソコン・周辺機器) Microsoft Office365のwordで、フォントを選ぼうとすると、Wordの画面が飛んで 3 2022/11/20 18:59
- プリンタ・スキャナー キヤノンのフォントについて お世話になります。 キヤノンのLBP6600の購入を考えているのですが、 2 2023/05/27 12:17
- Excel(エクセル) [テーマのフォント]、[見出しのフォント]、[本文のフォント]とは何ぞや? 2 2023/02/27 09:18
- 画像編集・動画編集・音楽編集 動画作成をしているのですが、使いたいフォントが見つかりません。。。 平井大がPVに使用してるフォント 2 2023/05/28 09:51
- Excel(エクセル) [入力規則]のリストボックス内の“不揃いの林檎たち” 3 2022/09/15 18:32
- 政治 私の発明した「二階建て漢字」は使えるでしょうか? 3 2023/02/08 16:40
- Word(ワード) Word の文字数37行数26とフォント12にしたい 新規作成でフォントが18になります。 ページ設 1 2022/04/14 18:56
このQ&Aを見た人はこんなQ&Aも見ています
-
初めて見た映画を教えてください!
初めて見た映画を覚えていますか?
-
歳とったな〜〜と思ったことは?
歳とったな〜〜〜、老いたな〜〜と思った具体的な瞬間はありますか?
-
コンビニでおにぎりを買うときのスタメンはどの具?
コンビニでおにぎりを買うとき、何の具材を選ぶことが多いですか?
-
人生でいちばんスベッた瞬間
誰しも、笑いをとろうとして失敗した経験があると思います。
-
今から楽しみな予定はありますか?
いよいよ2025年が始まりました。皆さんには、今から楽しみにしている予定はありますか?
-
ワードで使用しているフォントのチェックにつきまして
その他(Microsoft Office)
-
WORDで何処になんのフォント(書体)を使用しているか
その他(ソフトウェア)
-
Word文書中で使用されているフォントの一覧表示
Word(ワード)
-
-
4
マクロ(VBA)でSymbolフォントを挿入したいです
Excel(エクセル)
-
5
Word・Excelでフォントをいち早く探す方法
Excel(エクセル)
-
6
相互参照箇所を知りたいです
Word(ワード)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・一番好きなみそ汁の具材は?
- ・泣きながら食べたご飯の思い出
- ・「これはヤバかったな」という遅刻エピソード
- ・初めて自分の家と他人の家が違う、と意識した時
- ・いちばん失敗した人決定戦
- ・思い出すきっかけは 音楽?におい?景色?
- ・あなたなりのストレス発散方法を教えてください!
- ・もし10億円当たったら何に使いますか?
- ・何回やってもうまくいかないことは?
- ・今年はじめたいことは?
- ・あなたの人生で一番ピンチに陥った瞬間は?
- ・初めて見た映画を教えてください!
- ・今の日本に期待することはなんですか?
- ・集中するためにやっていること
- ・テレビやラジオに出たことがある人、いますか?
- ・【お題】斜め上を行くスキー場にありがちなこと
- ・人生でいちばんスベッた瞬間
- ・コーピングについて教えてください
- ・あなたの「プチ贅沢」はなんですか?
- ・コンビニでおにぎりを買うときのスタメンはどの具?
- ・おすすめの美術館・博物館、教えてください!
- ・【お題】大変な警告
- ・洋服何着持ってますか?
- ・みんなの【マイ・ベスト積読2024】を教えてください。
- ・「これいらなくない?」という慣習、教えてください
- ・今から楽しみな予定はありますか?
- ・AIツールの活用方法を教えて
- ・最強の防寒、あったか術を教えてください!
- ・歳とったな〜〜と思ったことは?
- ・モテ期を経験した方いらっしゃいますか?
- ・好きな人を振り向かせるためにしたこと
- ・スマホに会話を聞かれているな!?と思ったことありますか?
- ・それもChatGPT!?と驚いた使用方法を教えてください
- ・見学に行くとしたら【天国】と【地獄】どっち?
- ・これまでで一番「情けなかったとき」はいつですか?
- ・この人頭いいなと思ったエピソード
- ・あなたの「必」の書き順を教えてください
- ・14歳の自分に衝撃の事実を告げてください
- ・人生最悪の忘れ物
- ・あなたの習慣について教えてください!!
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
“見出しのフォント”、“本文のフ...
-
フォントの置換ができません。...
-
映画・TV・DVD等でよく使われる...
-
アサヒビールに使われているフ...
-
Bauhaus93というフォントの使用...
-
商用フォントの利用について
-
Windowsで作ったパワーポイント...
-
Mac版のWordで、「HGPブーケ」...
-
フォント=MS UI Gothic、について
-
PCにプリインストールされてい...
-
カルタグラ、殻ノ少女のタイト...
-
欧文フォントの定番って?
-
文字を入力する際に、フォント...
-
多すぎる明朝のフォントを整理...
-
Wordで使用されているフォント...
-
なんのフォント使っているかわ...
-
昔の東芝が使っていた英字のTOS...
-
クライアントから指定されたフ...
-
フォントを教えてください
-
P丸ゴシック体はないのか?
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
アサヒビールに使われているフ...
-
フォントの置換ができません。...
-
Bauhaus93というフォントの使用...
-
ワードで速度vを、教科書のよ...
-
フォント=MS UI Gothic、について
-
“見出しのフォント”、“本文のフ...
-
Wordで使用されているフォント...
-
文字を入力する際に、フォント...
-
映画・TV・DVD等でよく使われる...
-
ロゴラインに似てるフォント
-
欧文フォントの定番って?
-
WORDにてTELとFAXの記号を使いたい
-
フォントの表示順は変更できま...
-
こちらのGAPのロゴのフォントを...
-
納付書等でよくある数字記入例...
-
商用フォントの利用について
-
エクセルの文字フォントが勝手...
-
フォントを教えてください
-
l と 1などの判別のしかた
-
PCにプリインストールされてい...
おすすめ情報