Word.Tips.Net Welcome toWord.Tips.Net

Helpful Links

Tips.Net Home
WordTips Home

Ask a Word Question
Make a Comment

Tips.Net Store

WordTips FAQ
WordTips Premium

Learn Access Now
Free Printable Forms

Beauty Tips
Car Tips
Cleaning Tips
College Tips
Cooking Tips
Excel2007 Tips
ExcelTips
Family Tips
Gardening Tips
Health Tips
Home Tips
Legal Tips
Money Tips
Organizing Tips
Pest Tips
Pet Tips
Wedding Tips
Word2007 Tips
WordTips

Advertise on the
WordTips Site

Newest Tips

Arranging Document Windows

Specifying a Backup Location

Controlling Chart Gridlines

Merging Table Cells

Collapsing and Expanding Subdocuments

Zooming With the Keyboard

Initiating a New Search

 

Searching for Non-Black Text

Summary: Searching for text having (or not having) specific formatting is generally pretty easy. It is more difficult to search for text that is not a particular color. This tip explains how you can find just want you want by using a macro. (This tip works with Microsoft Word 97, Word 2000, Word 2002, Word 2003, and Word 2007.)

When searching for text in a document, it is easy to search for formats such as "bold" or "italic." You can also search for "not bold" and "not italic." You can search for text of a specific color, but Word does not allow you to search for text other than a specific color. For instance, you cannot search for text that is "not black."

If you need to search for text that is not black, then the best way to do so is with a macro. Consider the following macro, which prompts you for your search text, and then looks for the first non-black instance of that text.

Sub FindNotBlack()
    With Selection.Find
        .ClearFormatting
        .Text = InputBox(prompt:="Enter the search text.", _
          Title:="Find Nonblack Text")
        Do While .Execute
            With Selection.Font
                If (.Color <> wdColorAutomatic) And _
                  (.Color <> wdColorBlack) Then
                    MsgBox "Found"
                    Exit Sub
                End If
            End With
        Loop
    End With
End Sub

Note that the macro checks to see if the color of the matched text is different from black (wdColorBlack) and from the automatic color (wdColorAutomatic). This is because the automatic color is black on most systems.

Tip #1387 applies to Microsoft Word versions: 97 | 2000 | 2002 | 2003 | 2007

Add a Professional Finishing Touch! Word includes great tools that allow you to add professional-grade finishing touches to your documents. You can add indexes, tables of contents, and other special tables by using the detailed information available in this volume.
 
Check out WordTips: Indexes and Special Tables today!