OpenOffice BasicUNO
Universal Network Objects
La technique UNO (Universal Network Objects, objets réseau universels) fournit cette interface compatible avec différents langages de programmation.
Exemple d'ulisation de l'API OpenOffice avec la technique UNO :
Sub met_du_rouge_avec_UNO()
' Définition des variables
Dim oMondocument As Object
Dim Mondispatcher As Object 'soit un répartiteur
' On travail sur le document actif
oMondocument = ThisComponent.CurrentController.Frame
Mondispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
' Création de la variables (type tableau) contenant les différentes propriétés
Dim liste_proprietes(0) As new com.sun.star.beans.PropertyValue
' Affectation des différentes propriétés
liste_proprietes(0).Name = "BackgroundColor"
liste_proprietes(0).Value = 16000000
' Exécution du répartiteur
Mondispatcher.executeDispatch(oMondocument, ".uno:BackgroundColor", "", 0, liste_proprietes())
End Sub
' Définition des variables
Dim oMondocument As Object
Dim Mondispatcher As Object 'soit un répartiteur
' On travail sur le document actif
oMondocument = ThisComponent.CurrentController.Frame
Mondispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
' Création de la variables (type tableau) contenant les différentes propriétés
Dim liste_proprietes(0) As new com.sun.star.beans.PropertyValue
' Affectation des différentes propriétés
liste_proprietes(0).Name = "BackgroundColor"
liste_proprietes(0).Value = 16000000
' Exécution du répartiteur
Mondispatcher.executeDispatch(oMondocument, ".uno:BackgroundColor", "", 0, liste_proprietes())
End Sub
Pour aller plus loin◊ Guide de programmation de OpenOffice.org BASIC
◊ How To Programmation
◊ FAQ OpenOffice
