Document.Styles (Word)
Retorna uma coleção de estilos do documento especificado. Somente leitura.
Para obter informações sobre como retornar um único membro de uma coleção, consulte retornando um objeto de uma coleção.
For Each para In ActiveDocument.Paragraphs
If para.Range.Words(1).Text = "Chapter " Then
para.Style = ActiveDocument.Styles(wdStyleHeading1)
End If
Next para