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