Document.Styles (Word)

Returns a Styles collection for the specified document.

For information about returning a single member of a collection, see Returning an object from a collection.

For Each para In ActiveDocument.Paragraphs 
 If para.Range.Words(1).Text = "Chapter " Then 
 para.Style = ActiveDocument.Styles(wdStyleHeading1) 
 End If 
Next para