エントリーの編集
![loading...](https://b.st-hatena.com/bdefb8944296a0957e54cebcfefc25c4dcff9f5f/images/v4/public/common/loading@2x.gif)
エントリーの編集は全ユーザーに共通の機能です。
必ずガイドラインを一読の上ご利用ください。
記事へのコメント0件
- 注目コメント
- 新着コメント
このエントリーにコメントしてみましょう。
注目コメント算出アルゴリズムの一部にLINEヤフー株式会社の「建設的コメント順位付けモデルAPI」を使用しています
![アプリのスクリーンショット](https://b.st-hatena.com/bdefb8944296a0957e54cebcfefc25c4dcff9f5f/images/v4/public/entry/app-screenshot.png)
- バナー広告なし
- ミュート機能あり
- ダークモード搭載
関連記事
Wordで使用されているフォントを知るには
#3 です。これならどうですか? 改行コードにもフォント属性があるみたいなので、 改行コードを含めない... #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 D