Seeing Heading 1 on opening a Word 2016 document

[zyzzyva57]

Sub AutoOpen()
'
' AutoOpen Macro

ActiveWindow.DocumentMap = True

'The following code snippet does NOT work, any help would be appreciated

Selection.Style = ActiveDocument.Styles("Heading 1")

End Sub