also statt einer am ende mehr oder weniger unverständlichen beschreibung hier einfach der quelltext.
nur soviel: das fenster ist dreigeteilt, ein großer teil oben über die ganze breite mit dem quelltext, unten zwei fenster nebeneinander.
so, hier der quelltext:
REM ***** BASIC *****
'Author : KAMI
'e-mail :
kami_@openoffice.org
'This code is part of Openoffice.org Premium - The ultimate OpenOffice.org extension
'Licensed under same way as OpenOffice.org (LGPL)
'
'Please support the ongoing development - for the details drop a line to me.
Sub Main
OpenHelpDocument
End Sub
Function OOoLanguage() as string
'Author : Laurent Godard
'e-mail :
listes.godard@laposte.net
Dim oSet, oConfigProvider
Dim oParm(0) As New com.sun.star.beans.PropertyValue
Dim sProvider$, sAccess$
sProvider = "com.sun.star.configuration.ConfigurationProvider"
sAccess = "com.sun.star.configuration.ConfigurationAccess"
oConfigProvider = createUnoService(sProvider)
oParm(0).Name = "nodepath"
oParm(0).Value = "/org.openoffice.Setup/L10N"
oSet = oConfigProvider.createInstanceWithArguments(sAccess, oParm())
OOoLanguage= oSet.getbyname("ooLocale") 'en-US
End Function
Sub OpenHelpDocument
REM Variables
Dim mArgs(2) as New com.sun.star.beans.PropertyValue
Dim oDoc
Dim oFrame
Dim s As String
REM Location of Help Document
ServiceSubst = CreateUnoService("com.sun.star.util.PathSubstitution")
s = ServiceSubst.substituteVariables("$(insturl)", true) & "/share/samples/" & OOoLanguage() & "/Documentations/"
mArgs(0).Name = "ReadOnly"
mArgs(0).Value = True
mArgs(1).Name = "MacroExecutionMode"
mArgs(1).Value = 4
mArgs(2).Name = "AsTemplate"
mArgs(2).Value = FALSE
REM Error handling - exist
If FileExists(s & "ooo2.odt") Then
REM Open up, open up
oDoc = StarDesktop.LoadComponentFromUrl(s & "ooo2.odt", "_blank", 2, mArgs())
Elseif FileExists(s & "ooo2.odm") Then
oDoc = StarDesktop.LoadComponentFromUrl(s & "ooo2.odm", "_blank", 2, mArgs())
Else
Print "Unable to open " & s & "ooo2.odt/ooo2.odm."
End If
REM Error handling
If IsNull(oDoc) OR IsEmpty(oDoc) Then
Print "Unable to load " & s & "ooo2.odt/ooo2.odm."
End If
End Sub