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
 
 
S'inscrire à la liste de diffusion de dmaths: [EMAIL PROTECTED]
 
Le livre de référence pour OpenOffice.org : http://www.amazon.fr/exec/obidos/ASIN/2212114389/dmaths-21
 
 
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
 
.
Des emoticones GRATUITES pour votre messagerie electronique ? Cliquez ici !

Répondre à