Perform a word count of each sentence and highlight any sentence with 31 or more words in red, and 21-30 words in blue.

[Servant]

I've check the Word user defined functions Reference but I can't find how to make this work...

(First open or get the handle of an existing Microsoft Word document.) How can I perform a word count of each sentence and highlight any sentence with 31 or more words in red, and 21 to 30 words in blue?

[water]

What have you tried so far?

[Servant]

I'm still trying to get how to find a list of sentences to modify, I've also been to _Word_DocRangeSet but still no luck..

There are many ideas that are coming from my mind, such as how to store the objects of all the sentences in a Microsoft Word document, in an array but still haven't find a way..

Edited April 3, 2014 by Servant

[water]

Did you have a look at the example script for _Word_RangeSet?

"Move the start of the range to the next paragraph and extend the end by 2 ; words. Insert text before and after the range and display some statistics"

[Servant]

In this time the problem that I'm trying to solve is, how to highlight a set range in a MS Word document?
I've came from many resources including Highlight Property, I even checked the source codes of the include files "Word.au3" and "WordConstants.au3" and I found out that you've rewritten them, and they don't have color enumeration..

I'd tried this:

$oDoc.Options.DefaultHighlightColorIndex = 255
$oRange.Highlight = True

And this:

$oWord.Options.DefaultHighlightColorIndex = 255
$oRange.Highlight = True

But no luck...

[water]

Do you want to highlight the range (=set the color of the background) or just select the range (as you would do with mouse or keyboard)?

Edited April 4, 2014 by water

[Servant]

I know how to $oRange.Select .. Can you share some codes? About how to set the color of the background of a range...

I doesn't even know how to highlight the range by selecting it..

[Servant]

CTRL+Alt+H to highlight the selected text but first I need to find out how can I change the default highlight color technically..

[water]

$oRange.HighlightColorIndex = wdColor enumeration

wdColor enumeration

Edited April 4, 2014 by water

[Servant]

I tried:

$oRange.HighlightColorIndex = 255

But unfortunately, nothing happened to the set range..

[water]

Will test as soon as I'm at a Windows PC again ...

[Servant]

I also tried:

$oRange.HighlightColorIndex = 255
MsgBox(0, ".HighlightColorIndex", $oRange.HighlightColorIndex)

And it message "9999999" instead of "255" if I'm not mistaken..

But when I try:

MsgBox(0, ".HighlightColorIndex", $oRange.HighlightColorIndex)

Without setting the .HighlightColorIndex it message "0".

Edited April 4, 2014 by Servant

[Servant]

I tried with the WdColorIndex Enumeration and the code "$oRange.HighlightColorIndex = 6" works!

[water]

To avoid "magic numbers" I would use a constant:

Global Const $wdRed = 6 ; Red color
$oRange.HighlightColorIndex = $wdRed