Selection.Style = ActiveDocument.Styles "Heading 1"
  Selection.TypeText Text:="The Title"