Count specific bold text

[Vijayrathina]

Hi, I need to count specific bold text. Please suggest. ms word vba

[macropod]

You need to be more specific.

Kindly also don't resurrect ancient threads - the one you posted in was last active well over a decade ago.

[Vijayrathina]

You need to be more specific.

Kindly also don't resurrect ancient threads - the one you posted in was last active well over a decade ago.

I have document files. I have to count specific bold text in document.

[macropod]

What specific bold text? Count what about the bold text - the number of words, characters, something else?

[Vijayrathina]

What specific bold text? Count what about the bold text - the number of words, characters, something else?

Hi, I will give input text. If I give input "Hello text", how money times coming "Hello text" in bold. Please help

[macropod]

For that you might use a macro like:

Sub Demo()
Application.ScreenUpdating = False
Dim i As Long
With ActiveDocument.Range
With .Find
.ClearFormatting
.Replacement.ClearFormatting
.Text = InputBox("What is the Text to Find")
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindStop
.Format = True
.Font.Bold = True
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
.Execute
End With
Do While .Find.Found
i = i + 1
.Collapse wdCollapseEnd
.Find.Execute
Loop
End With
Application.ScreenUpdating = True
MsgBox i & " instances found."
End Sub

[Vijayrathina]

Thank you so much for your help. "Figure 10-1" this text need to be count but "Figure 10-10", "Figure 10-10A" should be excluded. please advise. I need this count only "Figure 10-1".

[macropod]

Try changing:

.MatchWholeWord = False
to:

.MatchWholeWord = True

[Vijayrathina]

Hi
I tried but counting all. Please suggest

[Vijayrathina]

Hi Paul, what is problem here? can u suggest

[macropod]

In that case, you could replace all of:


.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
with:

.MatchWildcards = True
and input your Find expression as:

Figure 10\-1>

[Vijayrathina]

Thanks! Paul Edstein