OpenOffice BasicUNO
Universal Network Objects
L'API OpenOffice.org est une Interface de Programmation universelle pour Application qui permet d'accéder à l'ensemble d'OpenOffice.org
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
