OpenOffice.info

Code: Alles auswählen

Function fIsOpen (StrUrl) as Boolean
'  returns true if StrUrl is already opened, false if not
'  StrUrl is the Filename with Path converted to url
   fIsOpen = false
   oComponents = StarDesktop.getComponents() 
   ' Walk through the components looking for documents of a specific type. 
   oComponentWalker = oComponents.createEnumeration() 
   Do While oComponentWalker.hasMoreElements() 
       oComponent = oComponentWalker.nextElement()
       if oComponent.getURL()= StrUrl then
           fIsOpen = true
           exit function
       end if       
   Loop
End Function