Question

vba word 中 怎么得到当前文档中所有字体的名称啊

比如
AA BB CC DD ......是不同字体的 文字 ,我要做的就是统计一篇文档中用了多少种字体和字体的名称而已.

Answer 1

给你代码吧：

Sub a()
    Dim str As String
    For Each c In ThisDocument.Characters
        If InStr(str, c.Font.Name) = 0 And Len(c.Font.Name) > 0 Then
            str = str & c.Font.Name & ","
        End If
    Next
    MsgBox UBound(Split(Left(str, Len(str) - 1), ",")) + 1 & "种字体，分别是" & vbCrLf & Left(str, Len(str) - 1)
End Sub

追问

要是速度再快点就好了，主要是嵌套With Selection.Find
处理 大型 文件。这个执行起来好慢，不过还是谢谢了。