How can you add a Heading style to just the first paragraph of a document with VBA?

[Helen269]

Here's one that should be quite useful to a lot of people.

How would you use VBA to apply a style to just the first paragraph? That is, make everything Heading 1 style, say, up to the first backwards P mark.

Thanks.

[Paul_Hossler]

Option Explicit


Sub Macro1()
ActiveDocument.Paragraphs(1).Style = "Heading 1"
End Sub

[Helen269]

That's it? So simple! :-)

I didn't realise paragraphs could be referred to by number. Thank you!

[macropod]

Similarly:


Sub Demo()
ActiveDocument.Paragraphs.First.Style = wdStyleHeading1
End Sub