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-------
Date : 11/21/05 22:00:06
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
---------------------------------------------------------------------
. |