WORD2007 VBA

質問

オープンしているWORDファイルで使用されているフォント名とサイズを全て一覧表示するＶＢＡを希望しています。　次のような表示が欲しいのですが、よろしくお願いします。

MSP ゴシック　10
MSP ゴシック　12
Arial 14
Times New Roman 10

回答No.1

n-jun · ベストアンサー

Ｗｏｒｄ２００２で検証しました。。。

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

こうゆう感じのことでしょうか？

お礼

n-jun　さん

ありがとうございます。テストをしてみましたが、私の希望どおりでした。
ただ、大きなドキュメントで実施したところ、マクロは動いており、エラーはでませんが結果が表示されなれません。何が原因なのでしょうか？