Макрос в OpenOffice, написать условие

[Pochepa]

Добрый вечер, друзья!

Начала писать макрос, но делаю это в первый раз в жизни. Условие такое: на Листе1 имеется прайс. Необходимо на новом листе 'Price' создать колонки п/п, код 1С, Фото товара, наименование товара, Цена, руб. Все это я смогла сделать. Но осталось самое интересное:
1). Реализовать условие: если в ячейке I2 Лист1 (Цена, руб.) стоит значение 450, то в ячейку F1 'Price' необходимо записать значение 'Цена Розница', иначе вывести сообщение "Введите наименование прайса" и то, что будет введено должно занестить в ячейку F1 Price.
2). В столбце Е Лист1 занесены наименования файлов *.jpg, эти файлы лежат на сервере. Необходимо, чтобы в столбец D Price вставлялись картинки из этих файлов, которые лежат на серваке.

Помогите, пожалуйста, кто чем может.

Sub MyProc

Dim oSheet as Object
oDoc = ThisComponent
oSheets = oDoc.Sheets 'Объект Sheets, который содержит все листы

REM Создадим новый лист по имени "Price" в начале
oSheets.insertNewByName("Price", 0)

REM Лист "Price" делаем активным
oSheet = oSheets.getByName("Price")
oDoc.CurrentController.setActiveShe et(oSheet)

Dim oCell as Object

oCell = oSheets(0).getCellByPosition(0, 0) 'Ячейка А1
oCell.setString("п/п")

oCell = ThisComponent.Sheets(0).getCellByPo sition(1, 0) 'Ячейка C1
oCell.setString("Код 1С")

oCell = ThisComponent.Sheets(0).getCellByPo sition(3, 0) 'Ячейка F1
oCell.setString("Фото товара")

oCell = ThisComponent.Sheets(0).getCellByPo sition(4, 0) 'Ячейка G1
oCell.setString("Наименование товара")

oCell = ThisComponent.Sheets(0).getCellByPo sition(5, 0) 'Ячейка J1
oCell.setString("Цена, руб.")
oCell.HoriJustify = com.sun.star.table.CellHoriJustify. CENTER

end sub