createSearchDescriptor в LibreOffice

Использую LibreOffice v. 7.1. Тестирую процедуру.

Sub get_contr_num
    dim oDoc as Object
    dim oFound as Object
    dim oDescriptor as Object
    dim oCursor as Object
    oDoc = ThisComponent
    oDescriptor = oDoc.createSearchDescriptor()
    oDescriptor.SearchString = "Contract"
    oDescriptor.SearchRegularExpression = true
    oFound=oDoc.FindFirst(oDescriptor)
End Sub

При выполнении получаю ошибку:

Ошибка времени выполнения Basic. Свойство или метод не найдены: createSearchDescriptor

Что я делаю не так?