CreateUnoService-functie
Verbindt een Uno service met de ProcessServiceManager.
Syntaxis:
oService = CreateUnoService(Uno service-naam)
Voor een lijst met beschikbare services gaat u naar:https://api.libreoffice.org/docs/idl/ref/namespacecom_1_1sun_1_1star.html (engels)
Voorbeeld:
oIntrospectie = CreateUnoService("com.sun.star.beans.Introspection")
De volgende code maakt gebruik van een service om een dialoogvenster Bestand openen te openen:
Sub Main
fNaam = BestandOpenenDialoog ("Kies een bestand")
Print "Gekozen bestand: "+fNaam
End Sub
Function FileOpenDialog(title As String) As String
filepicker = createUnoService("com.sun.star.ui.dialogs.FilePicker")
filepicker.Title = title
filepicker.execute()
files = filepicker.getFiles()
FileOpenDialog=files(0)
End Function