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

回答No.2

n-jun · ベストアンサー

Ｎｏ．１です。

ＷｏｒｄＶＢＡは殆どやったことはないのですが、
Ｅｘｃｅｌなんかでもデータ数が増えてくると
動きが悪くなるケースもあります。

今回のコードは１文字ずつチェックしていくため
ページ数増加による文字数が増えているのが
影響してくるのではないかと思われます。

エラーが出ていないとの事ですから
Dim i As Integer
を
Dim i As Long
に変更するとかも違うでしょうし。。。。

ファイルを分割して調べるなどしかないのかな？

お礼

Integer から　Longに変えてみましたが、結果は表示されませんでした。
色々お世話になりました。

回答No.1

n-jun

例えば大きなワードファイルの半分とかならどうなのかとか、
大きなワードファイルはコードを記載したものとは
別のドキュメントなのかとか、
色々条件になる部分がありそうですけど・・・

例えばコードを記載したものとは
別のドキュメントであれば、

For Each v In ActiveDocument.Range.Characters

を

For Each v In Documents("abc.doc").Range.Characters
（adc.docと言うドキュメントで既に開いている場合）

にしてみるとかかな？

あとはその大きなワードファイルが
本当に大きすぎるとかなら、
そのファイルで検証しないと難しいかも。

補足

n-jun　さん

ご返事ありがとうございます。

最後のファイル名を入れる方法は試しましたが、今までと変わりませんでした。

テストしたファイルは９１ページのA4ファイルです。　10ページまでのファイル、２０ぺージまでのファイル、３０ページまでのファイル、４０ページまでのファイルは正しく結果が表示されました。しかし、５０ページまでのファイルで結果表示が出なくなりました。

上記のファイルは殆どが表の構成になっており、その中には２００ほどの図が入っており、また多くのハイパーリンクが設定されております。

ファイルが大きくなるだけで結果が違うようなことがＶＢＡでは良くあることなのでしょうか？