Макросы OpenOffice

[Dim007]

Если еще актуально:
Следующий пример показывает, как может быть прочитан текстовый файл:
Dim FileNo As Integer
Dim CurrentLine As String
Dim File As String
Dim Msg as String
' Определение имени файла
Filename = "c:\data.txt"
' Установление свободного файлового манипулятора
FileNo = Freefile
' Открытие файла (в режиме на чтение)
Open Filename For Input As #FileNo
' Проверка, был ли достигнут конец файла
Do While not eof(FileNo)
' Чтение строки
Line Input #FileNo, CurrentLine
If CurrentLine <> "" then
Msg = Msg & CurrentLine & Chr(13)
end if
Loop
' Закрытие файла
Close #FileNo
Msgbox Msg
Отдельные строки извлекаются в цикле Do While, сохраняется в переменной Msg и
показывается в конце в окне сообщения.

Добавлено через 2 минуты
Пример из книги "Программирование на ОО Basic". Не знаю есть ли она тут, но при желании могу скинуть или используй googl. Удачи