[Tricks] To Find and Highlight Words with Capitalized First Letters or All Letters

This article will guide you to find and highlight the words with First Capital letters or highlight only capital letters in Microsoft word application.

Capitalization is regularly found in our records. For instance, certain individuals are inclined toward utilizing capitalization to lay accentuation on significant focuses.

In addition, assuming you are glancing through an administration report, you will likely see numerous association names in abbreviations. The motivations to observe words with introductory or all letters promoted are as per the following:

You might have to change uppercase words to different cases, like little covers. Now and then, there is no compelling reason to utilize capitalization all the time even as a method of accentuation.

In an administration proposition, it’s critical to reevaluate the right spell and clarification of abbreviations that are in all covers most time.

Consequently, simply get the strategies we will show you to take care of business.

Trick 1: Use “Advanced Find” menu

This time we use wildcards to help us find all words either with initial or all letters capitalized.

1. Firstly, click the arrow button next to “Find” command under “Home” tab.
2. Then click “Advanced Find” to open the “Find and Replace” box.
3. Next place cursor at the “Find what” text box. Enter “[A-Z]{2,}” to find all words with all letter capitalized. And enter “[A-Z]{1,}” to find all words with initial capitalized.
4. Click “More” to bring out more options.
5. Next check “Use wildcards” box.
6. Then click “Find In” button and choose “Main Document”. You shall see words in selection now.

Trick 2: Run Word Macro

Apart from method 1, you can also run macro to highlight all target words as to examine the proper usage.

1. To start off, press “Ctrl+ Home” to go to the beginning of a document.
2. Then press “Alt+ F11” to trigger the VBA editor.
3. Next go to “Normal” project by clicking on it.
4. Click “Insert” tab and select “Module”.

   Sub FindAndHighlightAllCaps()
     Dim objRange As Range
    
     With Selection
       .HomeKey Unit:=wdStory
    
       With Selection.Find
         .ClearFormatting
         .Text = "[A-Z]{2,}"
         .Replacement.Text = ""
         .Forward = True
         .Wrap = wdFindContinue
         .Format = False
         .MatchWildcards = True
         .Execute
       End With
       Do While .Find.Found
         Set objRange = Selection.Range
         objRange.HighlightColorIndex = wdPink
         .Collapse wdCollapseEnd
         .Find.Execute
       Loop
     End With
   End Sub

Sub FindandHighlightCapitalizedWords()
  Dim objRange As Range
 
  With Selection
    .HomeKey Unit:=wdStory
 
    With Selection.Find
      .ClearFormatting
      .Text = "[A-Z]{1,}"
      .Replacement.Text = ""
      .Forward = True
      .Wrap = wdFindContinue
      .Format = False
      .MatchWildcards = True
      .Execute
    End With
    Do While .Find.Found
      Set objRange = Selection.Range
      objRange.HighlightColorIndex = wdBrightGreen
      .Collapse wdCollapseEnd
      .Find.Execute
    Loop
  End With
End Sub