怎样得到一段文字共有几种字体,字号,大小,颜色,格式呢?

pili_99

  怎样得到一段文字共有几种字体,字号,大小,颜色,格式呢?请帮忙给出VBA代码??谢谢!!

konggs

'怎样得到一段文字共有几种字体,字号,大小,颜色,格式呢?请帮忙给出VBA代码??谢谢!!
'字体、字号、大小
Sub Formats()
    Dim fontCon As New Collection
    Dim sizeCon As New Collection
    Dim colorCon As New Collection
    Dim parSelect As Long
    Dim char
    On Error Resume Next
    parSelect = InputBox("输入要得到的段落" & vbCrLf & "仅统计某一段落", "Konggs", "1")
    For Each char In ActiveDocument.Paragraphs(CInt(parSelect)).Range.Characters
            fontCon.Add char.Font.Name, char.Font.Name
            sizeCon.Add CStr(char.Font.Size), CStr(char.Font.Size)
            colorCon.Add CStr(char.Font.Color), CStr(char.Font.Color)
    Next
    MsgBox "此段落的各项统计信息是：" & vbCrLf & _
           "字体有:" & vbTab & fontCon.Count & "种" & vbCrLf & _
           "字号有:" & vbTab & sizeCon.Count & "种" & vbCrLf & _
           "颜色有:" & vbTab & colorCon.Count & "种."
End Sub

pili_99

接受,谢谢!

菊石泽露

我试了可以运行，但段号有点不好理解，如果一篇文章有好多段，又无编号，中间某段不知道段号为几.怎么办？

能否进一步列出字体名称，字号大小列表？进一步把结果定向到指定的TXT文件中？