none
passive sentences 总是为0 RRS feed

 > 

  • 问题

  • Question
    登录进行投票
    0
    登录进行投票

    我在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:56
    |