-PR-
解決
済み

Word2000ファイルで使用中のフォントを知りたい

  • 困ってます
  • 質問No.51206
  • 閲覧数147
  • ありがとう数1
  • 気になる数0
  • 回答数2
  • コメント数0

お礼率 50% (1/2)

Word2000の文書の中でどんなフォントが使われているかを知る方法はありますか?

文書を他のコンピュータで開くと代替フォントに変わってしまい、正しく表示されません。
そのため、使用されているフォントを相手側でもインストールする必要があるのですが、どのフォントをインストールすれば良いのか分かりません。

そこで、文書中で使用されているフォントの一覧を作成するようなマクロ、またはその機能そのものはないのでしょうか?
(※ 保存オプションの「TrueTypeフォントを埋め込む」では解決できませんでした)
通報する
  • 回答数2
  • 気になる
    質問をブックマークします。
    マイページでまとめて確認できます。

質問者が選んだベストアンサー

  • 回答No.1
レベル8

ベストアンサー率 46% (22/47)

すごくおおざっぱにやるなら、こんなマクロで列挙できます。

Public Sub EnumFonts()
Dim col As New Collection
Dim c As Range, str As String, i As Long
On Error Resume Next
For Each c In ActiveDocument.Characters
str = c.Font.Name
col.Add str, str
Next
On Error GoTo 0
MsgBox "使用中のフォント数" & col.Count
For i = 1 To col.Count
MsgBox "フォント " & i & " : " & col(i)
Next
End Sub
お礼コメント
staccato

お礼率 50% (1/2)

millionwalkerさん、ありがとうございました。

この内容であってます。
早速Wordで試したところ、文書中で使われているフォント名の確認が出来ました。
ただ、一部フォント名が空白で表示されることがあります。なぜでしょう? おかしなフォント名のものもあるので、そのせいなのでしょうか。

フォントの一覧表示するようにマクロの下の部分を調整してみました。
VisualBasicは触ったことがないのでわからないのですが.....。
(※ 50書体までは確認できました)

MsgBox "使用中のフォント数" & col.Count
Dim FontNameStr As String
FontNameStr = Chr$(13)
For i = 1 To col.Count
FontNameStr = FontNameStr & i & ": " & col(i) & Chr$(13)
Next
MsgBox "フォント " & FontNameStr
投稿日時 - 2001-03-13 16:47:25
関連するQ&A
-PR-
-PR-

その他の回答 (全1件)

  • 回答No.2
レベル11

ベストアンサー率 64% (102/159)

こんにちは。hirasakuです。 アドバイスというより、アイデアって感じなんですけど、 Wordで作成した文章をいちど、「ファイル」メニューの「Webページとして保存」で適当な名前で保存してください。このとき拡張子は.htmになります。 その保存したファイルをブラウザ、たとえばInternet Explorerなどで開きます。(多分Wクリックで開くと思いますが)Wordの文章がホームページとし ...続きを読む
こんにちは。hirasakuです。

アドバイスというより、アイデアって感じなんですけど、
Wordで作成した文章をいちど、「ファイル」メニューの「Webページとして保存」で適当な名前で保存してください。このとき拡張子は.htmになります。
その保存したファイルをブラウザ、たとえばInternet Explorerなどで開きます。(多分Wクリックで開くと思いますが)Wordの文章がホームページとして開きます。
Internet Explorerの「表示」メニューで「ソース」を選択します。
メモ帳が開きます。もし、HTMLをご存知ならばいいにですが、ご存じなければ、メモ帳の
<body lang=JA ・・・・
ってところから下に書いてある
<span style='font-family:"MS 明朝";・・・・
などと書かれているところがあります。
このfont-family:"フォント名"
が文章のなかで使われているフォントです。
いくつもフォントを使用している場合、この記述がいくつもあると思います。
ただ、フォント名の前に’\@’が付いていた場合は無視してかまいません。

参考になったでしょうか。
なりませんね。
すみません。
では。


このQ&Aで解決しましたか?
関連するQ&A
-PR-
-PR-
このやり方知ってる!同じこと困ったことある。経験を教えて!
このQ&Aにはまだコメントがありません。
あなたの思ったこと、知っていることをここにコメントしてみましょう。

その他の関連するQ&A、テーマをキーワードで探す

キーワードでQ&A、テーマを検索する
-PR-
-PR-
-PR-

特集


新大学生・新社会人のパソコンの悩みを解決!

いま みんなが気になるQ&A

関連するQ&A

-PR-

ピックアップ

-PR-
ページ先頭へ