Не могу достучаться до текущего документа OOo Writer

Здравствуйте!Помогите пожалуйста, хочу перебрать в доке абзатцы, не получается! Код:Sub MainDim Doc As Object Dim Enum As ObjectDim TextElement As Object' создание объекта documentDoc = StarDesktop.CurrentComponent' создание объекта enumerationEnum = Doc.Text.createEnumeration 'на этой строке выдает ошибку "Свойство или метод не найдены"' цикл по всем текстовым элементамWhile Enum.hasMoreElementsTextElement = Enum.nextElement If TextElement.supportsService("com.sun.sta r.text.TextTable") Then MsgBox "The current block contains a table." End If If TextElement.supportsService("com.sun.sta r.text.Paragraph") Then MsgBox "The current block contains a paragraph." End IfWendEnd Sub