Conditional Style Application

Will notes that in Excel he can create conditional formats to highlight information that meets defined criteria. He wonders if there is a way in Word to do essentially the same thing, applying paragraph-level formatting based on content contained within the paragraph.

There is no equivalent of conditional formatting within Word; that is strictly an Excel feature. You may, however, find a workaround satisfactory. Since Will mentions styles, I'm going to assume he knows how to create them and apply them. With that in mind, follow these steps:

1. Define the style you want applied to the paragraph containing the "trigger" content. Make sure the style is defined as a paragraph style. (This is very important.)
2. Press Ctrl+H. Word displays the Replace tab of the Find and Replace dialog box.
3. Click the More button, if it is available. Word expands the dialog box.
4. In the Find What box, enter the "trigger" word or phrase.
5. In the Replace With box, enter ^&. (That's a caret, Shift+6, followed by an ampersand.)
6. With the insertion point still in the Replace With box, click Format. Word displays some formatting options.
7. Click Style. Word displays the Replace Style dialog box.
8. Select the style you defined in step 1.
9. Click OK. The style name should appear under the Find What box.
10. Click Replace All.

What you end up with is every paragraph that contains the "trigger" text will now be formatted with the desired style. If you later remove the "trigger" text from a paragraph, Word won't change the paragraph formatting; you'll need to change it manually. If you later add the "trigger" text to a different paragraph, you'll need to again do the Find and Replace.

If you prefer to use a macro to do the styling, the following will process an entire document quickly:

Sub ConditionalStyles()
    Dim p As Paragraph
    Dim sTrigger As String
    Dim sStyleName As String

    sTrigger = "my trigger text"
    sTrigger = "*" & LCase(sTrigger) & "*"

    sStyleName = "MyStyle"

    For Each p in ActiveDocument.Paragraphs
        If LCase(p.Range.Text) Like sTrigger Then
            p.Style = sStyleName
        End If
    Next p
End Sub

To use the macro, set sTrigger to the "trigger" text and set sStyleName to the name of the style to apply. The style name must be defined within the document. The same usage caveats apply here as I mentioned earlier with the Find and Replace process.

WordTips is your source for cost-effective Microsoft Word training. (Microsoft Word is the most popular word processing software in the world.) This tip (13951) applies to Microsoft Word 2007, 2010, 2013, 2016, 2019, 2021, 2024, and Word in Microsoft 365.