Hello,
the following (dirty) workaround is a solution (not so smart, but it
works):
sub odb_open_test()
'for a german OOo
title_must_be = "OpenOffice.org Base"
df = Stardesktop.Frames
If RIGHT((df(df.count-1).title), 19) = title_must_be Then
msgbox "this is a Base document"
End if
end sub
I think that code works correctly (under your specific conditions!) in
all cases.
Jörg
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
