word automation

[Bruce Fox]

Here is some pseudo code:
Add a Reference to Word Library, and make the appropriate changes (ie Application will become your Word Object reference)

Sub ReadWord()
Dim strArr() As String
Dim intCount As Integer
Dim intIdx As Integer
 
    'Capture the Word Text
    ActiveDocument.Select
 
    'Load an Array with each line
    strArr() = Split(Selection.Text, vbCr)
 
    intCount = UBound(strArr) - 1
 
    For intIdx = 0 To intCount
        MsgBox strArr(intIdx)
    Next
 
End Sub