How do I get a list of all the headings in a word document by using VBA?

vba ms-word
Edit
Report