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 ? Je dois utiliser quelle variable pour afficher le resultat dans le document courant ? ( c'est pas getWorkArea ? ) Merci Ptilou
