Re: [prog] export vers html

Thu, 31 Aug 2006 05:33:07 -0700

Voici un ensemble de routines à exécuter, s'il parait un peu compliqué, c'est pour sortir le résultat dans un document writer vierge. Je ne l'ai pas essayé sous Calc, mais je pense que ça devrait marcher. C'est tiré d'un how-to en cours de relecture : 

http://fr.openoffice.org/files/documents/67/3645/Writer_Basic.odt

Cordialement

Marceau

Sub ListFilterNames()

' Ce codage est proposé par Danny Brewer, OOoForum,
' http://www.oooforum.org/forum/viewtopic.phtml?t=3549
' Seule modification : les déclarations explicites et le support du résultat

Dim oFF As Object
Dim oFilterNames As Object
Dim i As Integer, Ligne As String
   oFF = createUnoService( "com.sun.star.document.FilterFactory" )
   oFilterNames = oFF.getElementNames()
GetLog()
   ' Print the filter names into Log.
TitreListe("Liste des filtres","Document Writer")
   For i = LBound( oFilterNames ) To UBound( oFilterNames )
      Logger( oFilterNames(i))
   Next
End Sub

Sub GetLog()
' Créé un document Writer vierge s'il n'existe pas déjà
Dim adresseDoc As String
Dim propFich()
if IsNull(Log) then
        adresseDoc ="private:factory/swriter" ' nouveau document writer
        Log = StarDesktop.LoadComponentFromURL(adresseDoc, "_blank", 0, 
propFich)
        LText = Log.getText()
        LCursor = LText.createTextCursor()
        LCursor.gotoEnd( False )
end if
End Sub

Sub Logger(Ligne As String)
        Ligne = Ligne & chr(13)
        LText.insertString( LCursor, Ligne, False )
End Sub


Sub TitreListe(Prefixe As String, Valeur As String)
Dim Ligne As String
        Ligne = chr(13) & Prefixe & " : " & Valeur & chr(13)
        Logger(Ligne)
End Sub




Jean PANSU a écrit :

Tout est OK
Merci pour la rapidité et l'efficacité de la réponse! Pour aller un soupçon 
plus loin, où peut-on trouver un listing des différents filtres? (Dans 
Programmation OpenOffice (avant version 2) aux Editions d'Eyrolles le tableau 
p169 ne semble donc plus totalement pertinent).

Jean Pansu



Message du 31/08/06 11:35
De : "Laurent Godard" A : prog@fr.openoffice.org Copie à : Objet : Re: [prog] export vers html 

Bopnjour


args_export(1).Name = "FilterName"
args_export(1).Value = "HTML (StarWriter)" 
etant donné que tu es sous calc, ce ne me semble pas le bon filtre
essaye

args_export(1).Value = "HTML (StarCalc)"

Laurent

--
Laurent Godard - Ingénierie OpenOffice.org
Indesko >> http://www.indesko.com
Nuxeo CPS >> http://www.nuxeo.com - http://www.cps-project.org
Livre "Programmation OpenOffice.org", Eyrolles 2004

---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]




---------------------------------------------------------------------------------------
Orange 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. 




---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Répondre à