Public lst() As Variant
Public Function CopyToArray() As Variant
Dim AWind As Window
Dim APane As Pane
Dim Pages As Pages
Dim Page As Page
Dim Rect As Rectangle
Dim LineCount As Long
'Dim lst() As Variant
Dim Line As Line

 Set AWind = Application.ActiveWindow
 Set APane = AWind.ActivePane
 Set Pages = APane.Pages
'---------------------------------------------------------------------
 For Each Page In Pages
 If Page.Rectangles.Count = 1 Then
 Set Rect = Page.Rectangles(1)
 Else
 Set Rect = Page.Rectangles(2)
 End If
 LineCount = LineCount + Rect.Lines.Count
 Next Page
 LineCount = LineCount - 1
'---------------------------------------------------------------------
 ReDim Preserve lst(0 To LineCount)
 
'---------------------------------------------------------------------
 i = -1
 For Each Page In Pages
 If Page.Rectangles.Count = 1 Then
 Set Rect = Page.Rectangles(1)
 Else
 Set Rect = Page.Rectangles(2)
 End If
 For Each Line In Rect.Lines
 i = i + 1
 lst(i) = Line.Range.Text
 Next Line
 Next Page
'---------------------------------------------------------------------

 'CopyToArray = lst

End Function

Public Sub Macros1()
CopyToArray 'копировать все строки в массив lst, внимание индексация начинается с 0
MsgBox (lst(2)) 'вывести на экран 3-ю строку
End Sub