Apply a user-defined paragraph style under certain conditions.

[andreas]

Dear Experts:

I would like to have a macro that

.... loops thru all the paragraphs of my document and as soon it hits a
paragraph that starts with the text "Page" a user-defined paragraph
style is to be applied.

Help is much appreciated. Thank you very much in advance. Regards,
Andreas

 

[Graham Mayor]

The following should work - replace "Stylename" with the required style name

Dim oRng As Range
Dim oStory As Range
For Each oStory In ActiveDocument.StoryRanges
For i = oStory.Paragraphs.Count To 1 Step -1
Set oRng = oStory.Paragraphs(i).Range.Words(1)
If Trim(oRng.Text) = "Page" Then
oStory.Paragraphs(i).Range.Style = "Stylename"
End If
Next i
Next oStory

--
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
Graham Mayor - Word MVP


<>>< ><<> ><<> <>>< ><<> <>>< <>><<>