Sentence count in brackets after each period.... Can it be done?

[e125]

I would like to get Word to count each word in a given sentence, then tally
that number and place it in brackets after the period. Can Word do this with
a macro?

Any suggestions will be much appreciated.

 

[Greg Maxey]

This is not as easy as it may seem since Word considers punctuation a word.
Still, something like this may do:

Sub Scratchmacro()
Dim oSent As Range
Dim i As Long
Dim Count As Long
For Each oSent In ActiveDocument.Sentences
For i = 1 To oSent.Words.Count
If Trim(LCase(oSent.Words(i))) > "a" And Trim(LCase(oSent.Words(i))) <
"z" Then
Count = Count + 1
End If
Next i
oSent.MoveEndWhile Cset:=" ", Count:=wdBackward
oSent.InsertAfter "{" & Count & "}"
Count = 0
Next oSent
End Sub