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

[gmaxey]

I have no idea what you are trying to do and your examples don't help. What is "wor". If you only want the content between the Heading 1 styles then:

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
      oRng.Move wdParagraph, 1
      Do
        oRng.MoveEnd wdParagraph, 1
        oRng.Select
      Loop Until oRng.Paragraphs.Last.Range.Style = "Heading 1" Or oRng.Paragraphs.Last.Range.End = ActiveDocument.Range.End
      If Not oRng.End = ActiveDocument.Range.End Then oRng.MoveEnd wdParagraph, -1
      oRng.Copy
      MsgBox oRng.Text
      'Do whatever with the complied content here.
      oRng.Collapse wdCollapseEnd
    Wend
  End With
lbl_Exit:
  Exit Sub
End Sub