Bonjour, Je ne sais pas où j'ai mis le document, peut me le re-rendre dispo !
Merci Ptilou Le 25/01/07, Francois Gatto<[EMAIL PROTECTED]> a écrit :
philippe L a écrit : > Bonjour, > > 2007/1/24, Francois Gatto <[EMAIL PROTECTED]>: >> Bonjour, >> >> Jean-Francois Nifenecker a écrit : >> > philippe L a écrit : >> >> Bonsoir, >> > >> > Re, >> > >> >> >> >> Le 23/01/07, Jean-Francois >> >> Nifenecker<[EMAIL PROTECTED]> a écrit : >> >>> philippe L a écrit : >> >> >> >>> > ( de plus je voulais savoir comment ajouter la comptabilisation des >> >>> > caractères "espace" ) >> >>> >> >>> Là, une p'tite macro... >> >> >> >> Euh, y a pas un site ou je peux DL des macro ? >> >> ( un genre de cpam comme pour perl !) >> > >> > Faut farfouiller sur la section Documentation du site >> fr.openoffice.org. >> > Sinon, chais pô :-( >> > >> > Par contre, la liste [prog-fr] doit pouvoir répondre à ta question :-) >> > >> > A+ >> >> Une ch'tite idée ;) >> >> Sub ChercheEspaces >> Dim oSearch As Object >> oSearch = ThisComponent.createSearchDescriptor >> With oSearch >> .SearchString= " " >> .SearchWords=false >> End With >> MsgBox "Nombre d'espaces: " & ThisComponent.findAll(oSearch).count >> End Sub >> >> Francois > > J'ai remplacé MsgBox par Print, et j'ai toujour une message box qui > s'affiche ? Normal. > Je dois utiliser quelle variable pour afficher le resultat dans le > document courant ? > ( c'est pas getWorkArea ? ) Non Je pense qu'il conviendrait que tu poses les questions sur la liste [prog-fr] pour tout ce qui concerne les macros. Je t'invite par ailleurs, si tu le désir ou par besoin, de t'initier ou approfondir tes connaissances en OOoBasic (sBasic) et à la manipulation des documents OOo. Une bonne source d'information http://www.eyrolles.com/Informatique/Livre/9782212117639/livre-programmation-openoffice-org-2.php En attendant j'ai placé ici une ébauche de traitement http://www.cijoint.fr/cij10856771172452.odt > > > Merci > > Ptilou Bonne chance Francois --------------------------------------------------------------------- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
