Word 2013: CollapseHeading with VBA

[acfest]

I am writing a macro that goes through my document and collapses specific sections of the document. The expand/collapse heading is a new feature in Word 2013. I know how to expand or collapse all headings: (ActiveDocument.ActiveWindow.View.ExpandAllHeading s), but I cannot figure out how to only expand/collapse the selected heading. The manual way is to either right-click -> collapse heading. The keyboard shortcut is Alt+Shift+-. I see CollapseHeading listed under macros->Word Commands, but I don't know how to call this command. I tried to step into the CollapseHeading macro, and tried recording a macro collapsing a heading, but neither showed anything. Any ideas? Please help....thanks

[gmaxey]

The following collapse the selected paragraph if it is formatted with a built-in heading style:

Sub ScratchMacro()
'A basic Word macro coded by Greg Maxey
If InStr(Selection.Style, "Heading") = 1 Then
  Selection.Paragraphs(1).CollapsedState = True
End If
End Sub

[acfest]

@GMaxey, Thanks!! It worked!