• ベストアンサー

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

Word2000の文書の中でどんなフォントが使われているかを知る方法はありますか？ 文書を他のコンピュータで開くと代替フォントに変わってしまい、正しく表示されません。 そのため、使用されているフォントを相手側でもインストールする必要があるのですが、どのフォントをインストールすれば良いのか分かりません。 そこで、文書中で使用されているフォントの一覧を作成するようなマクロ、またはその機能そのものはないのでしょうか？ （※ 保存オプションの「TrueTypeフォントを埋め込む」では解決できませんでした）

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

  • ベストアンサー
回答No.1

すごくおおざっぱにやるなら、こんなマクロで列挙できます。 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
質問者

お礼

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

すると、全ての回答が全文表示されます。

その他の回答 (1)

  • hirasaku
  • ベストアンサー率65% (106/163)
回答No.2

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

すると、全ての回答が全文表示されます。
  1. カテゴリ
  2. パソコン・スマートフォン
  3. ソフトウェア
  4. オフィス系ソフト

関連するQ&A

G6030の黒色の印刷ができない原因と対処方法
このQ&Aのポイント
  • G6030の黒色の印刷ができない問題について、プリントヘッドの取り付け状態の確認やヘッドクリーニングを行いましたが解決しませんでした。
  • ノズルチェックパターンの印刷を行った結果、最上部の黒色の印刷がされていないことが分かりました。
  • この問題の原因や対処方法について詳しく教えてください。
回答を見る

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

あなたにピッタリな商品が見つかる！ OKWAVE セレクト

質問する