Funkcija CreateUnoService
Tvori instanco storitve UNO z upraviteljem procesnih storitev ProcessServiceManager.
CreateUnoService(serviceName As String) As Object
Seznam storitev, ki so na razpolago, najdete na strani com::sun::star Module (v angl. jeziku).
Spodnji primer ustvari funkcijo FileExists, ki uporablja storitev com.sun.star.ucb.SimpleFileAccess, da preizkusi, če dana pot predstavlja obstoječo datoteko.
Function FileExists(sPath as String) As Boolean
Dim svcSFA As Object
Set svcSFA = CreateUnoService("com.sun.star.ucb.SimpleFileAccess")
Dim bExists As Boolean : bExists = svcSFA.exists(sPath)
Dim bIsFolder As Boolean : bIsFolder = svcSFA.IsFolder(sPath)
FileExists = bExists And Not bIsFolder
End Function ' FileExistsStoritve UNO imajo obsežno spletno dokumentacijo na spletišču api.libreoffice.org. Obiščite stran o storitvi SimpleFileAccess (v angl.), da izveste več o metodah, ki jih nudi storitev, uporabljena v zgornjem primeru.
Naslednja koda uporablja storitev com.sun.star.ui.dialogs.FilePicker, da odpre pogovorno okno za odprtje datoteke:
Sub Main
fName = FileOpenDialog ("Izberite datoteko")
Print "izbrana datoteka: "+fName
End Sub
Function FileOpenDialog(title As String) As String
res = com.sun.star.ui.dialogs.ExecutableDialogResults
filepicker = CreateUnoService("com.sun.star.ui.dialogs.FilePicker")
filepicker.Title = title
If res.OK = filepicker.execute() Then
files = filepicker.getSelectedFiles()
FileOpenDialog=files(0)
EndIf
End Function ' Main