RE: [prog] RE : [prog] VB et commandes UNO

Thu, 02 Mar 2006 01:20:46 -0800

Merci pour ton aide …

 

Je vais tenter de créer un assemblage .net avec l’ensemble des fonctions principales pour oOWriter puis je m’attacherai a oOCalc …

 

Je te fais parvenir le résultat de mon travail dès que j’ai quelque chose qui tourne bien …

 

 

 

 

 

 

De : Didier Dorange-Pattoret [mailto:[EMAIL PROTECTED]]
Envoyé : jeudi 2 mars 2006 09:21
À : prog@fr.openoffice.org
Objet : Re: [prog] RE : [prog] VB et commandes UNO

 

Bonjour,

Le code ci-dessous fonctionne à merveille avec VB express 2005:

Module Module1
    Sub openDoc()
 
        Dim ServiceManager As Object, oDispatcher As Object
        Dim Desktop As Object, Document As Object, Sel As Object
        Dim Fichier As String
        Dim Arguments(0) As Object
        Arguments(0) = MakePropertyValue("Hidden", False)
 
        Fichier = ConvertToUrl("D:\Temp\essai.odt")
 
        ServiceManager = CreateObject("com.sun.star.ServiceManager")
        Desktop = ServiceManager.createInstance("com.sun.star.frame.Desktop")
        Document = Desktop.loadComponentFromURL(Fichier, "_blank", 0, Arguments)
        oDispatcher = ServiceManager.createInstance("com.sun.star.frame.DispatchHelper")
 
        Sel = Document.CurrentController.Frame
 
        oDispatcher.executeDispatch(Sel, ".uno:SelectAll", "", 0, Arguments)
        oDispatcher.executeDispatch(Sel, ".uno:Copy", "", 0, Arguments)
        oDispatcher.executeDispatch(Sel, ".uno:Escape", "", 0, Arguments)
        Document.Close(True)
    End Sub
    Public Function ConvertToUrl(ByVal strFile As String) As String
        strFile = Replace(strFile, "\", "/")
        strFile = Replace(strFile, ":", "|")
        strFile = Replace(strFile, " ", "%20")
        strFile = "file:///" + strFile
        ConvertToUrl = strFile
    End Function
    Public Function MakePropertyValue(ByVal cName As String, ByVal uValue As VariantType) As Object
        Dim oStruct, oServiceManager As Object
        oServiceManager = CreateObject("com.sun.star.ServiceManager")
        oStruct = oServiceManager.Bridge_GetStruct("com.sun.star.beans.PropertyValue")
        oStruct.Name = cName
        oStruct.Value = uValue
        MakePropertyValue = oStruct
    End Function
 
 
End Module






Cezame Concept
a écrit : 



Problème avec VB les commandes uno ne fonctionnent pas .. je pense qu'il
manque un service ou quelque chose dans ce style !!
 
Merci pour ton aide ...
 
J'ai essayé déjà ces commandes interprétées avec l'enregistreur de macros
d'oO 
-- 
Didier Dorange-Pattoret
 
http://www.dmaths.org
http://sesamath.net
 
S'inscrire à la liste de diffusion de dmaths: [EMAIL PROTECTED]
Ses archives: http://listes.dmaths.org/wws/arc/users
Les Forums: http://www.dmaths.org/modules.php?name=Forums
Mailing List in english: http://www.dmaths.org/modules.php?name=Content&pa=showpage&pid=9
 
Le livre de référence pour OpenOffice.org2 : http://www.amazon.fr/exec/obidos/ASIN/2212116381/dmaths-21
Programmation OpenOffice.org2 : http://www.amazon.fr/exec/obidos/ASIN/2212117639/dmaths-21



 






---------------------------------------------------------------------------------------

Wanadoo vous informe que cet e-mail a ete controle par l'anti-virus mail.

Aucun virus connu a ce jour par nos services n'a ete detecte.






 

Répondre à