You have two unqualified references to Word objects:
objSelection.Style = ActiveDocument.Styles("Heading 1")
which appears twice, needs to be:
objSelection.Style = objWord.ActiveDocument.Styles("Heading 1")
Otherwise you're creating an implicit reference to Word that you can't destroy in your code.