Count the number of bold entries

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

Michael Singmin - 26 Nov 2004 21:40 GMT

Hello Group,

I have a document of 200 single words, each on a different line.
Some of them are Bold.

What is the VBA code to count those bold entries ?
I would like a construct like this pseudo code

For each fs in Document
If Fs = Bold then Count = Coumt +1
Next

In Excel, the Worksheet or Sheet is the common page.
What is the equivalent in Word ?

Thanks,

Michael Singmin

Reply to this Message

Greg Maxey - 26 Nov 2004 21:50 GMT

Michael,

If each single word entry is on separate line I will assume that each word
is an individual paragraph. Something like this might work:

Sub Test()
Dim i As Long, pararange As Range
Dim j As Long
j = 0
For i = 1 To ActiveDocument.Paragraphs.Count
Set pararange = ActiveDocument.Paragraphs(i).Range
If pararange.Font.Bold = True Then j = j + 1
Next i
MsgBox "There are " & j & " bolded entries in this document"
End Sub

Signature

Greg Maxey/Word MVP
A Peer in Peer to Peer Support

> Hello Group,
>
[quoted text clipped - 14 lines]
>
> Michael Singmin

Reply to this Message

Michael Singmin - 28 Nov 2004 13:13 GMT

Thank you Greg,

Your code was most instructive.

Michael
====================================================

"Greg Maxey" <gro.spvm@yexamg (thats my e-mail address backwards)>
wrote:

>Michael,
>
[quoted text clipped - 11 lines]
>MsgBox "There are " & j & " bolded entries in this document"
>End Sub

Reply to this Message