I need help to copy content between two headings in word - vba

[nathanfsu]

Sub ScratchMacro()
'A basic Word macro coded by Greg Maxey
Dim oRng As Range
  Set oRng = ActiveDocument.Range
  With oRng.Find
    .Style = "Heading 1"
    While .Execute
      Do
        oRng.MoveEnd wdParagraph, 1
      Loop Until oRng.Paragraphs.Last.Range.Style = "Heading 1" Or oRng.Paragraphs.Last.Range.End = ActiveDocument.Range.End
      oRng.MoveEnd wdParagraph, -1
      oRng.Copy
      'Do whatever with the complied content here.
      oRng.Collapse wdCollapseEnd
    Wend
  End With
lbl_Exit:
  Exit Sub
End Sub

Thanks man. But it did not work. It copied last paragraph, with the title with answer.

I'm tying one Sub to copy the title of X "heading 1", then another sub to copy everything is wrote in between X heading 1 and X+1 heading 1 except the title.

Example

My word:
"Style Heading 1" Question number 1:
wor
wor
"Style Heading 1" Question number 2
asn
asn
"Style Heading 1" Question number 3
asn

FunctionCopyTitle ( X=2) ..:
Clipboard Return: "Style Heading 1" Question number 2:

FunctionCopyAnswer ( X=2) ..:
Clipboard Return:
asn
asn