Построчное чтение Word - VBA

Формулировка задачи:

Как прочитать построчно в Word ? Вот что смог накидать но уходит в цикл либо ошибка

Dim r As Range 
  Set r = ActiveDocument.Range 
    Set rd = ActiveDocument.Range 
  With r.Find 
    .ClearFormatting 
    .Text = "Список:" 
    .Forward = True 
    .Wrap = wdFindStop 
    .Format = False 
    .MatchCase = False 
    .MatchWholeWord = False 
    .MatchWildcards = False 
    If .Execute Then 
Do While r.End 
 
      Set r = r.Paragraphs(1).Next.Range 
      MsgBox r.Text 
Loop 
    Else 
      MsgBox "не найдено" 
      Exit Sub 
    End If 
  End With

Решение задачи: «Построчное чтение Word»

textual
                            Листинг программы 
                        

                            Dim a() As String
a = Split(Split(ActiveDocument.Range.Text, "Список:")(1), vbCr)
Dim i As Long
For i = 1 To UBound(a) - 2
  MsgBox a(i)
Next
                        