Ci-joint le code de mon projet VB Express 2005
-----Message d'origine-----
De : Didier Dorange-Pattoret [mailto:[EMAIL PROTECTED]
Envoyé : jeudi 2 mars 2006 09:33
À : prog@fr.openoffice.org
Objet : Re: [prog] RE : [prog] VB et commandes UNO
Bonjour,
Si cela t'intéresse, j'ai en réserve qq fonctions du type ConvertToUrl
Cezame Concept a écrit :
> Merci pour ton aide
>
> Je vais tenter de créer un assemblage .net avec lensemble des
> fonctions principales pour oOWriter
>
Cela m'intéresse ...
> puis je mattacherai a oOCalc
>
> Je te fais parvenir le résultat de mon travail dès que jai 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:
>
>
> Public Function ConvertToUrl(ByVal strFile As String) As String
>
> strFile = Replace(strFile, "\", "/")
>
> strFile = Replace(strFile, ":", "|")
>
> strFile = Replace(strFile, " ", "%20")
>
> strFile = "file:///" <file:///%5C%5C> + 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
>
>
--
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
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
----------------------------------------------------------------------------
-----------
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.
Public Class oOWriter
Dim oServiceManager As Object, oDispatcher As Object
Dim oDesktop As Object, oDocument As Object, oSel As Object
Sub openDoc(ByVal FichierATraiter As String, Optional ByVal clInvisible As
Boolean = False)
Dim Arguments(0) As Object
Dim FichierFormaté As String
Arguments(0) = MakePropertyValue("Hidden", clInvisible)
FichierFormaté = ConvertToUrl(FichierATraiter)
oDocument = oDesktop.loadComponentFromURL(FichierFormaté, "_blank", 0,
Arguments)
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 As Object
oStruct =
oServiceManager.Bridge_GetStruct("com.sun.star.beans.PropertyValue")
oStruct.Name = cName
oStruct.Value = uValue
MakePropertyValue = oStruct
End Function
Public Function LoadService() As Boolean
On Error GoTo sortie
oServiceManager = CreateObject("com.sun.star.ServiceManager")
oDesktop = oServiceManager.createInstance("com.sun.star.frame.Desktop")
oDispatcher =
oServiceManager.createInstance("com.sun.star.frame.DispatchHelper")
LoadService = True
Sortie:
LoadService = False
End Function
Public Sub Copy()
Dim Arguments(0) As Object
oSel = oDocument.CurrentController.Frame
oDispatcher.executeDispatch(oSel, ".uno:Copy", "", 0, Arguments)
End Sub
Public Sub SelectAll()
Dim Arguments(0) As Object
oSel = oDocument.CurrentController.Frame
oDispatcher.executeDispatch(oSel, ".uno:SelectAll", "", 0, Arguments)
End Sub
Public Sub CloseDoc()
oDocument.Close(True)
End Sub
End Class
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
