- ベストアンサー
WORD2007 VBA
オープンしているWORDファイルで使用されているフォント名とサイズを全て一覧表示するＶＢＡを希望しています。 次のような表示が欲しいのですが、よろしくお願いします。 MSP ゴシック 10 MSP ゴシック 12 Arial 14 Times New Roman 10
- oldhidesan
- お礼率81% (9/11)
- Visual Basic
- 回答数1
- ありがとう数1
- みんなの回答 （1）
- 専門家の回答
質問者が選んだベストアンサー
Ｗｏｒｄ２００２で検証しました。。。 Sub try() Dim myDic As Object Dim v, vv Dim i As Integer Set myDic = CreateObject("Scripting.Dictionary") i = 0 ReDim vv(i) For Each v In ActiveDocument.Range.Characters If Len(v) > 0 Then If Not myDic.Exists(v.Font.Name & " " & v.Font.Size) Then myDic(v.Font.Name & " " & v.Font.Size) = "" vv(i) = v.Font.Name & " " & v.Font.Size i = i + 1: ReDim Preserve vv(i) End If End If Next MsgBox Join(vv, vbCrLf) Set myDic = Nothing End Sub こうゆう感じのことでしょうか？
関連するQ&A
- WORD2007 VBA
オープンしているWORDファイルで使用されているフォント名とサイズを全て一覧表示するＶＢＡを希望しています。 次のような表示が欲しいのですが、よろしくお願いします。 MSP ゴシック 10 MSP ゴシック 12 Arial 14 Times New Roman 10 ---------------------------- この質問に対してn-jun さんより以下のご回答を頂きました。サンプルを作りテストしたところWOOD2007で希望通りの結果が得られましたのでベストアンサーとさせてもらいました。 しかし、その後大きなWORDファイルに適用したところ、結果が表示されません。 エラーがでれば問題解決につながるのでしょうが、何らエラーメッセージが出ません。 ご指導いただければありがたいです。 -------------------------------- Ｗｏｒｄ２００２で検証しました。。。 Sub try() Dim myDic As Object Dim v, vv Dim i As Integer Set myDic = CreateObject("Scripting.Dictionary") i = 0 ReDim vv(i) For Each v In ActiveDocument.Range.Characters If Len(v) > 0 Then If Not myDic.Exists(v.Font.Name & " " & v.Font.Size) Then myDic(v.Font.Name & " " & v.Font.Size) = "" vv(i) = v.Font.Name & " " & v.Font.Size i = i + 1: ReDim Preserve vv(i) End If End If Next MsgBox Join(vv, vbCrLf) Set myDic = Nothing End Sub
- ベストアンサー
- Visual Basic
- "Times New Roman"がフォント一覧に表示されない
Windows XPを使っています。 いろいろなアプリケーションで"New Times Roman"を使用したいのですが、フォント一覧に表示されません。 Wordを使用するときは、英文のテンプレートを開くと出てくるので、それに書いていますが、 イラストレーターやエクセルを使用するときは、"New Times Roman"がフォント一覧に表示されないので、使用できません。 Windowsのサポートセンターの説明（http://support.microsoft.com/kb/880991/JA/）に従い、「フォントキャッシュを削除して、フォントキャッシュを再構築」してみましたが、それでも"Times New Roman"が出てきません。 どのようにすれば、イラストレーターやWordで普通に"Times New Roman"が使用できるのしょうか？どこかから新たにダウンロードしなければならないのでしたら、どこから入手するのがいいでしょうか？ また、イラストレーターで文字をアウトライン化するときに"Times New Roman"は使用できますか？ あまり、コンピュータに詳しくないので、質問の内容が適切で無いかもしれませんが、大変困っております。どうぞよろしくお願いします。
- 締切済み
- Windows系OS
- word2007を使用しています。提出しなければならない論文があり英文
word2007を使用しています。提出しなければならない論文があり英文フォントは Times New Romanと指定されています。 word2007でフォントの種類を見てもTimes New Romanは出てこないのですが、 これに該当するフォントは何になるのでしょうか？
- ベストアンサー
- オフィス系ソフト
- パワーポイントのフォント設定方法
パワーポイントのフォント設定で悩んでいます。 使用するのは、「MS Pゴシック」(日本語) 「Arial」(英)なのですが、デフォルトでは英数が「Times New Roman」なっており、いくら書式設定でArialを選んでも、別ページになるとTimes New Romanに戻ってしまいます。 そのページの中でもタイトルと本文では、それぞれArialに設定変更する必要があります。 そんな訳で、各ページごとにフォントを設定するという馬鹿な作業をしています。 何とか、デフォルトでフォントを設定する方法を教えてください。 職場の同僚もこの点で悩んでいます。 よろしくお願いいたします。
- 締切済み
- オフィス系ソフト
- ＣＤジャケットに文字だけ載せて使ってよいか
１曲だけのオリジナル楽曲を制作し楽曲のタイトルとアーティスト名だけをＣＤジャケットに載せたのですがこの場合フォントの著作権というのは発生するのでしょうか。フォントはMSゴシックとArial、Times New RomanなどWindowsに付属していたものを使っています。 ジャケットの視覚的要素には拘らないのでタイトルだけ伝わればどんなフォントでもよいのですが・・・。 ご教授いただけるとうれしいです。
- ベストアンサー
- デザイナー・クリエイティブ職
- ワードパッドの使い方について
初歩的な質問なのですが ワードパッドで英文を[MSPゴシック]で 入力したいのですが、入力しようとすると [Arial(欧文)]に自動的に変わってしまい ます。いままでは[メモ帳]しかつかったことがなかった のでとても使いにくいです。 [メモ帳]のように[MSPゴシック]で英文を 入力できるようにしたいのですが ...。 (ヘルプには入力前にフォントを選択すれば よいとは書かれているのですが ...) よろしくお願いいたします。
- 締切済み
- オフィス系ソフト
- Word 2003のフォント固定
皆様 Word 2003について、英字、日本語混在の文書を書いております。 英字を書いた場合はデフォルトで”Century”フォントになるが、これを ”Times New Roman”に変更するにはどうすればよろしいのでしょうか。 今後の英字フォントを全部”Times New Roman”に統一したいと考えております。
- ベストアンサー
- Windows系OS
- Wordのフォントについて
Wordでローマ字を入力するとき，たいていはTimes New Romanを 用いています． しかし，初期のフォントはCeturyになっています． Timesにはじめから設定されているようにするにはどうしたらいいですか？
- ベストアンサー
- オフィス系ソフト
- wordの置換機能について
word2013でフォントの全置換をおこない目的とするフォントに変えたのですが℃だけうまく変わってくれません。日本語は「MS 明朝」英語は「times new roman」に変えていますが℃は日本語と受け取られているのでしょう。 現在℃は「MS 明朝」でこれを「times new roman」に変えたいのですが、できる方がいらっしゃいましたら教えてください。
- ベストアンサー
- Word（ワード）
- WORD2003に下線を入れたい
私の使っているWORD2003なのですが、真っ白で見にくいです。 できれば、添付画像のように下線が薄くついていると、凄く助かるのですが・・・ どなたか、こうするための方法を教えてもらえないでしょうか？ また、一度に二つの質問で恐縮なのですが、WORD2003の標準のォントをMSゴシックとTimes New Romanにするためには、どのようなオペレーションを行えばよいでしょうか？ よろしくお願いします。
- ベストアンサー
- その他MS Office製品
お礼
n-jun さん ありがとうございます。テストをしてみましたが、私の希望どおりでした。 ただ、大きなドキュメントで実施したところ、マクロは動いており、エラーはでませんが結果が表示されなれません。何が原因なのでしょうか？