VBA for extracting parts of text out of a large document

[who knows]

Hello,



I have a large word document (2100 pages) with 80 headings and tens of subtitles.

Is there a way to extract exactly one subtitle and the corresponding text out of the entire document? In the end I want to extract in a separate document each chapter that contains: subtitle and corresponding text and not do it manually.