Paragraph.Range (Word)

Returns a Range object that represents the portion of a document that is contained within the specified paragraph.

ActiveDocument.Paragraphs(1).Range.Style = wdStyleHeading1