dim adresseDoc as string dim mondocument as object dim PropFich ()

adresseDoc = convertToURL("private:factory/swriter") mondocument = StarDesktop.LoadcomponentFromURL(adresseDoc, "_blank", 0, PropFich)

cordialement -------Message original-------

De : Didier Dorange-Pattoret Date : 11/21/05 22:00:06 A : pr...@fr.openoffice.org Sujet : créer un document vierge ?

Bonsoir,

Ce code:

Sub Essai oDesktop=createUnoService("com.sun.star.frame.Desktop") Dim mNoArgs(0) As New com.sun.star.beans.PropertyValue sUrl = "staroffice.factory:swriter" oDocument=oDesktop.LoadComponentFromURL(sUrl,"_blank",1,mNoArgs()) End Sub

fonctionne avec OOo1.1.5 mais pas 2.0 Comment faire l'équivalent?

-- Didier Dorange-Pattoret

http://www.dmaths.org http://sesamath.net

S'inscrire à la liste de diffusion de dmaths: user...@dmaths.org 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.org : http://www.amazon fr/exec/obidos/ASIN/2212114389/dmaths-21 Programmation OpenOffice.org : http://www.amazon fr/exec/obidos/ASIN/2212114397/dmaths-21