Hi,
when I worked with ThisComponent.findNext...  found next mistake:
After calling vFound.getString() statusbar is reset. In OOo 1.1.5 it works O.K. 
Next basic code and attachment file demonstrate it.


sub makro1_Ctrl_M
  ThisComponent.CurrentController.statusIndicator.reset
  ThisComponent.CurrentController.statusIndicator.start("bla bla bla bla bla
bla:", 10)
  dim count as long
  count = 0 

  RpDesc = ThisComponent.createReplaceDescriptor()
  RpDesc.SearchCaseSensitive = TRUE
  RpDesc.SearchRegularExpression = TRUE 
  RpDesc.SearchString = "text"   

  vFound =  ThisComponent.findFirst(RpDesc)
  Do While Not IsNull(vFound)  
     count = count + 1
     ThisComponent.CurrentController.statusIndicator.setValue(count)

     report = cstr(count) 
   ' Calling vFound.getString() causes statusbar reset
     report = report + "   Found: "+ vFound.getString()
     msgbox report 

     vFound = ThisComponent.findNext( vFound.End, RpDesc)
  Loop
  ThisComponent.CurrentController.statusIndicator.end
  
end sub 

Thanks, Tom B.