Макросы в OO3.0beta

Добрый день!Только начал разбираться с ОО, день уже сижу, половину инета прополз, но так и не понял Есть макросКод:Function Test() As Boolean Dim bb bb = THISCOMPONENT.SupportsService("com.sun.s tar.sheet.SpreadsheetDocument") msgbox(THISCOMPONENT.title) msgbox(THISCOMPONENT.DocumentInfo.mimety pe) msgbox(THISCOMPONENT.URL)End FunctionНе могу получить mimetype он пустой, хотя документ загружен, имя есть, путь есть, а практически всё остальное - пусто.Подтолкните в нужную сторону