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