none
passive sentences 总是为0 RRS feed

  • 问题

  • 我在word中编写了一个宏,读取ReadabilityStatistics信息,但是passive sentences一直为0,不知道为什么,而且段落数出不来,总是显示字符数。

    烦求各位大侠协助解决。

     Sub getReadabilityStatistics()
       Dim strStats As String
       Dim iStatIndex As Integer  ' Readability statistics parameter value

       strStats = ""

       For iStatIndex = 1 To 10
          strStats = strStats & ActiveDocument.Content.ReadabilityStatistics(iStatIndex)
          If iStatIndex = 1 Then
             strStats = strStats & vbTab & vbTab & vbTab & " : "
          ElseIf iStatIndex = 8 Or iStatIndex < 5 Then
             strStats = strStats & vbTab & vbTab & " : "
          Else
             strStats = strStats & vbTab & " : "
          End If
          strStats = strStats & ActiveDocument.Content.ReadabilityStatistics(iStatIndex).Value
          strStats = strStats & vbCrLf
       Next
       MsgBox strStats, vbOKOnly, "Readability Statistics"
    End Sub 

     

    2010年5月13日 8:53