Submit an article about your scariest tech experience—and the solution—and you’ll be automatically entered to win one of 4 fantastic tech gadgets.
Sub CountNumber_FindOperation Dim rngStory As range Dim i As Long Set rngStory = ActiveDocument.StoryRanges(wdMainTextStory) With rngStory.Find .Font.Bold = True While .Execute i = i + 1 Wend End With If i > 0 Then MsgBox "Occurrences of bold formatting found " & i & " time(s)." Else MsgBox "No bold formatting found", vbOKOnly, "No bold formatting!" End If End Sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.