Documents.Open FileName:="C:\Temp\Sample.doc", ConfirmConversions:=False, _
    ReadOnly:=False, AddToRecentFiles:=False, PasswordDocument:="", _
    PasswordTemplate:="", Revert:=False, WritePasswordDocument:="", _
    WritePasswordTemplate:="", Format:=wdOpenFormatAuto
ArrayNum = Dlg.Lines' Sizing the array by number of lines
ReDim TermArray$(ArrayNum)
For i = 0 To ArrayNum
    ActiveDocument.Bookmarks("\para").Select' Selecting each paragraph
    TermArray$(i) = Left(Selection.Text, Len(Selection.Text) - 1)' Storing paragraph text in array
    Selection.ExtendMode = False
    Selection.MoveRight Unit:=wdCharacter, Count:=1
Next
ActiveDocument.Close' Close the file