Fonction CreateUnoService

Crée une instance d'un service Uno à l'aide de ProcessServiceManager.

Syntaxe :


     CreateUnoService(serviceName As String) As Object

Pour une liste des services disponibles, visitez la page de référence com::sun::star Module.

Exemple :

L'exemple ci-dessous crée la fonction FileExists qui utilise le service com.sun.star.ucb.SimpleFileAccess pour tester si un chemin donné est un fichier existant.


    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 ' FileExists

Les services UNO disposent d'une documentation en ligne complète sur le site Web api.libreoffice.org. Visitez la page de référence SimpleFileAccess Service pour en savoir plus sur les méthodes fournies par le service utilisé dans l'exemple ci-dessus.

Exemple :

Le code suivant utilise le service com.sun.star.ui.dialogs.FilePicker pour afficher une boîte de dialogue d'ouverture de fichier :


Sub Main
    fName = FileOpenDialog ("Veuillez sélectionner un fichier")
    Print "fichier sélectionné : "+Nomf
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

Fonction CreateUnoServiceWithArguments

Objets, fonctions et services UNO

Utilisation des fonctions Cacl dans les macros