Helpful to verify reports of your own downtime, or to double check a downed website you are trying to access.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.
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.
|Software to count how many instances of words||109||216|
|Converting large .PDF files.||6||72|
|Sources to create infographic resume||2||38|
|VBA Split word document every 5 pages of word document||3||38|