Find word at beginning of para and replace style on entire para

[gailb]

I have paragraphs like the below. I would like to find every one of these instances and apply the style "Title"

Chapter Notes — Chapter 1:1-13
Chapter Notes — Chapter 1:14-25
Chapter Notes — Chapter 2:1-26
Chapter Notes — Chapter 2:27-52
Chapter Notes — Chapter 2:53-88

[HansV]

Like this:

Code: Select all

Sub Macro1()
    With ActiveDocument.Content.Find
        .ClearFormatting
        .Text = "Chapter Notes"
        .Replacement.ClearFormatting
        .Replacement.Text = "^&"
        .Replacement.Style = ActiveDocument.Styles("Title")
        .Format = True
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
        .Execute Replace:=wdReplaceAll
    End With
End Sub

[gailb]

Thank you. This is prefect.

[Charles Kenyon]

I was surprised by this. I thought, at first, it worked because the Title style is a paragraph rather than a linked style. However, it is not; it is a linked style.

When using Wildcards, is the ^& to say the entire original paragraph?
Time for me to go back to my Wildcard Cookbook!

[HansV]

The code doesn't use wildcards, it looks for the literal text "Chapter Notes".
^& is the symbol for the find text. So in this example, "Chapter Notes".

[Charles Kenyon]

Oops, I misread that.

The found text is "Chapter Notes" but the style is applied to the entire paragraph.

With a linked style, this is confusing. If I uncheck my option to disable linked style, select that text, and then apply the Title style, it only applies the character formatting of the Title style to the selected text.
(I hate linked styles but had some hope that they might act consistently.)

This anomaly happens with manual find and replace as well, it is not a vba thing. For this problem, this is a good thing because otherwise I would have to write a bunch more code. (You might not need to, but I would.)

[HansV]

Microsoft has made it very difficult to keep track of what styles actually do...