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

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

そこで、文書中で使用されているフォントの一覧を作成するようなマクロ、またはその機能そのものはないのでしょうか?
(※ 保存オプションの「TrueTypeフォントを埋め込む」では解決できませんでした)

このQ&Aに関連する最新のQ&A

A 回答 (2件)

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



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
    • good
    • 0
この回答へのお礼

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

こんにちは。

hirasakuです。

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

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

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aと関連する良く見られている質問

QWord文書中で使用されているフォントの一覧表示

Word文書中で使用されているフォントを一括で表示できる方法はないでしょうか。使用しているのはWord2000です。Symbolフォントを使用したくないのですが,置換したくても文書が大きすぎて探し出すのが大変なのです。

Aベストアンサー

こちら↓のようなことでしょうか?

Wordで使用されているフォントを知るには
http://oshiete1.goo.ne.jp/kotaeru.php3?q=1698812

勉強のために保存していた過去ログですが文書内のフォントを
メッセージボックスに表示することが出来るようです。

Symbolフォントを検索(置換)することではないですよね?

QWordで、指定したフォントがフォント一覧の一番上にこないようにするには?

Wordで、フォント一覧表示の順番を変えないようにするには、どうすればいいのでしょうか?

「MS明朝」と「MSゴシック」を使うので、「MS明朝」と「MSゴシック」がフォント一覧の先頭(一番上)にきています。

そこで質問ですが、「MS明朝」と「MSゴシック」以外のフォントを指定した場合、たとえば、「HG正楷書体」を指定した場合、「HG正楷書体」がフォント一覧の一番上にきます。
指定したフォントが一番上にこないようにする(または元の位置に戻す)には、どうすればいいですか?
(MS明朝とMSゴシック以外のフォントは、たまに指定するぐらいですから、上のほうに表示されると、普段よくMS明朝やMSゴシックが下のほうに行ってしまうので・・・)

教えてください。よろしくお願いします。
Word2003を使用しています。

Aベストアンサー

Word2003ですからこちら↓を参考に。
[HOWTO] Word 2003 用の Windows レジストリで Word オプションを
変更する方法
http://support.microsoft.com/kb/820917/ja

この中の NoFontMRUList がフォントリストの履歴を有効または無効
にするものです。
Supportテンプレートをインストールして作業するほうが安全で確実
な方法です。

直接レジストリをいじるのなら、次のレジストリキーを開きます。

My Computer\HKEY_CURRENT_USER\Software\Microsoft\Office\11.0 Word\Options

キーが選択された状態で[編集]メニューの[新規作成]→[文字列値]→
「 NoFontMRUList 」を入力し、[ Enter ]キー。
値データボックスで「 1 」を入力し、[ OK ]→レジストリの終了

これで履歴が無効になります。
有効にする場合は、値データボックスで「 0 」を入力すれば履歴を
保存し始めます。

Word2003ですからこちら↓を参考に。
[HOWTO] Word 2003 用の Windows レジストリで Word オプションを
変更する方法
http://support.microsoft.com/kb/820917/ja

この中の NoFontMRUList がフォントリストの履歴を有効または無効
にするものです。
Supportテンプレートをインストールして作業するほうが安全で確実
な方法です。

直接レジストリをいじるのなら、次のレジストリキーを開きます。

My Computer\HKEY_CURRENT_USER\Software\Microsoft\Office\11.0 Word\Options

キーが選択された状...続きを読む

Qワードでフォントのドロップダウン表示をそのフォントでしたい

ワードでフォントを選ぶドロップダウンですが、表示自体をそのフォントでさせたいのですがどのように設定するのでしょうか。

家のパソコンは明朝は明朝体で『明朝』と表示されますし、一目でどれがどのフォントか解るのですが会社のパソコンは全て同じ字体(おそらくゴシック?)で表示されているので何がどのフォントやら、さっぱりわかりません。

Aベストアンサー

Word97ですかっ(@@)

調べてみたのですが、その機能はWord2000からのようですね。残念です。

参考URL:http://www.wanichan.com/pc/word2002/ref02.htm

QWord の文書をコピーするときフォントが変わる

Word の文書をほかの Word の文書にコピーすると、フォントサイズが 10.5 なのにコピーしたら 12になってしまって困っています。どうしてなのでしょうか。

Aベストアンサー

貼り付けた先の文章の設定が,コピー元の文章の設定と違うからです。

貼り付けた直後,貼り付けた右下に「貼り付けオプション」(なにやら邪魔なアイコン)が表示されるので,クリックして「元の書式を保持」を選びます。
貼り付け先文章の書式で貼り付くのを回避し,元の文章の書式(今回はフォントサイズ10.5)に戻します。

Q漢字フォントとかなフォントを別々のフォントにしたい

 Word2000を使っているのですが、今まで
作成した文書の漢字とかなのフォントを別にしたい
と思っています。対象が何万字にもわたるため、
効率よく変換できる方法をどうかお教え下さい。
 既存文書の変換が無理な場合は、新規文書の設定
でタイトル内容が可能かどうか併せてお教え下さい。

Aベストアンサー

「置換」を使用します。
1.オプションを開いてワイルドカードを使用するをチェック
2.検索する文字列に [あ-ん]を入れる("["と"-"は半角)
3.置換後の文字列をクリックして「書式」から任意のスタイルに
4.「置換」及び「すべて置換」をクリック

お試しください

参考URL:http://kunitachi-city.co.jp/bbs/


このカテゴリの人気Q&Aランキング

おすすめ情報