10.3.23 Fensterwaehlen
function fensterwaehlen(dateiname as string) as object

Mit dieser Funktion kann gezielt ein geöffnetes Fenster als doc-Object aufgerufen werden. Voraussetzung ist, dass der Name bekannt ist.
Ist das Fenster nicht vorhanden wird das Aktuelle übergeben.



function fensterwaehlen(dateiname as string) as object
  GlobalScope.BasicLibraries.LoadLibrary("Tools")
  Dim oDesktop As Object, oDocs As Object
  Dim oDoc As Object, oComponents As Object
  gefunden=false
  oComponents = StarDesktop.getComponents()
  oDocs = oComponents.createEnumeration()
  Do While oDocs.hasMoreElements()
    oDoc = oDocs.nextElement()
    On Error Goto Weiter
    datei=odoc.geturl()
    FileN=FileNameoutofPath(datei)
    if FileN=dateiname then
       fensterwaehlen=odoc
       gefunden=true
      end if
    weiter:
  Loop
  if gefunden=false then fensterwaehlen=stardesktop.currentcomponent
end Function