Sub Get2DaChopper()
  Dim str As String, oRng As Range, arr() As String, i As Integer
  Set oRng = ActiveDocument.Range
  With oRng.Find
    Do While .Execute(findText:="#")
      arr = Split(oRng.Paragraphs(1).Range.Text, "#")
      For i = 1 To UBound(arr)
        str = str & arr(0) & vbCr
      Next i
     Set oRng = oRng.Paragraphs(1).Range
     oRng.Collapse Direction:=wdCollapseEnd
     oRng.End = ActiveDocument.Range.End
    Loop
  End With
  Debug.Print str
End Sub