You can do this simply enough by applying multi-level list numbering to the headings and, if necessary for your purposes, using a wildcard Find/Replace to delete each heading's text, where:
Find = *
Replace = ^p

__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]