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 l’ensemble des
fonctions principales pour oOWriter
Cela m'intéresse ...
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:
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]