Wolfgang Schaible wrote:
hi Andrew,
Am Montag 07 November 2005 06.33 schrieb Andrew Douglas Pitonyak:
Function FindComponentWithURL(sURL As String, bLoadIfNotFound As
Boolean) Dim oDocs ' Enumeration of the loaded components.
Dim oDoc ' A single enumerated component.
Dim sSt$ ' XStorable interface name.
Dim sODoc ' Office document service name.
sSt$ = "com.sun.star.frame.XStorable"
sODoc = "com.sun.star.document.OfficeDocument"
oDocs = StarDesktop.getComponents().createEnumeration()
Do While oDocs.hasMoreElements()
oDoc = oDocs.nextElement()
If NOT HasUNOInterfaces(oDoc, sSt) Then
file:///home/ws/OO_doc/OOoBaseBinaryFields.odt and my base file are
ending here .=((
Are you saying that your Base documents do NOT support the XStorable
interface?
Really?
REM This test filters out the Help system nad makes certain
REM That the document supports "hasLocation"
ElseIf NOT oDoc.supportsService(sODoc) Then
REM Filter out the Basic IDE, which supports the
REM com.sun.star.script.BasicIDE service, but not
REM the office document service. Probably does not
REM matter, but I do it because I want to.
ElseIf NOT oDoc.hasLocation() Then
REM This document has never been saved, so there is not URL
REM to compare against.
ElseIf oDoc.getURL() = sURL Then
FindComponentWithURL = oDoc
Exit Function
End If
Loop
REM In OOo version 1.x, loadComponentFromURL() returned NULL
REM if the document did not exist. Starting with version 2.x,
REM an illegal argument exception is thrown instead.
If bLoadIfNotFound AND FileExists(sURL) Then
oDoc = StarDesktop.loadComponentFromURL(sURL, "_blank", 0,
Array()) FindComponentWithURL = oDoc
'Else
' FindComponentWithURL = NULL
End If
End Function
Wolfgang
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
--
Andrew Pitonyak
My Macro Document: http://www.pitonyak.org/AndrewMacro.sxw
My Book: http://www.hentzenwerke.com/catalog/oome.htm
Info: http://www.pitonyak.org/oo.php
See Also: http://documentation.openoffice.org/HOW_TO/index.html
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
