Sub search_3 Dim oDoc As Object, oSheet As Object Dim oSearchDesc As Object Dim oFounds As Object
oDoc = ThisComponent oSheet = oDoc.Sheets(2) oSearchDesc = oSheet.createSearchDescriptor() oSearchDesc.SearchString = "text" oFounds = oSheet.findAll(oSearchDesc) If NOT(IsNull(oFounds)) Then MsgBox oFounds.getCount() Else MsgBox "Not found !" End If End Sub