Вставка гиперссылки в ячейку

Sub InsertHyperlink
Dim oCell   'Заданная ячейка
Dim oField  'Поле, которое нужно вставить
 
oCell=ThisComponent.Sheets(0).getCellRangeByName("B1")
'Создаём переменную типа "адрес URL текстового поля"
oField=ThisComponent.createInstance("com.sun.star.text.TextField.URL")
 
oField.Representation="гиперссылка"                            'текст гиперссылки
oField.URL="http://wiki.forumooo.ru/wiki/Заглавная_страница"   'ссылка на сайт
'oField.URL="#Лист2"                                           'ссылка на лист
'oField.URL="#Лист2.B22"                                       'ссылка на ячейку
'oField.URL="#Лист2!A2:B22"                                    'ссылка на диапазон ячеек
 
'удаляем текст и гиперссылку (если есть) из ячейки, иначе новая гиперссылка будет добавлена к существующей
oCell.setString("")
oCell.Text.insertTextContent(oCell.Text.createTextCursor(),oField,False)   'вставляем гиперссылку
End Sub