Good afternoon loungers
I want to report the passive sentence score under vba.
This code direct from m/soft
Sub test()
Set myStat = ActiveDocument.ReadabilityStatistics
ActiveDocument.GrammarChecked = False
ActiveDocument.CheckGrammar
MsgBox myStat(8).Name & ” – ” & myStat(8).Value
End Sub
When run over a document containing the 2 sentences as follows (nice and simple)
The ball was dropped by the door.
The ball was dropped by the door.
Word correctly identifies these as passive.
The doc statistics may even report a % figure for passive sentences
yet
myStat(8).Name & ” – ” & myStat(8).Value
shows 0
Any light would be welcome.
Thank you in advance ..
Geof
