怎么遍历Word文档中的所有字体设置
如何遍历Word文档中的所有字体设置
现在有一篇文档，五花八门地设置了各种字体、字号、颜色之类的，现在，我想按照文档的顺序，把这篇文档里面用到的字体、字号、颜色用MsgBox显示出来，这该如何实现？
------解决方案--------------------
现在有一篇文档，五花八门地设置了各种字体、字号、颜色之类的，现在，我想按照文档的顺序，把这篇文档里面用到的字体、字号、颜色用MsgBox显示出来，这该如何实现？
------解决方案--------------------
Sub aa() '这个宏可以列出文档中所有的字体名称
Dim fontname(1 To 100) As String
Dim i As Integer, j As Integer, n As Integer, k As Integer
Selection.WholeStory
k = Selection.End
ActiveDocument.Range(Start:=0, End:=1).Select
fontname(1) = Selection.Font.Name
n = 2
For i = 0 To k - 1
ActiveDocument.Range(Start:=i, End:=i + 1).Select
For j = 1 To n - 1
If fontname(j) = Selection.Font.Name Then
Exit For
End If
Next j
If j = n Then
fontname(n) = Selection.Font.Name
n = n + 1
End If
Next i
For i = 1 To 100
If fontname(i) = "" Then
Exit For
Else
Debug.Print fontname(i)
End If
Next i
End Sub