Ubuntu-fr

Vaneck

Statistiques OO

'soir,
comment faire pour compte tout les caracteres d'un texte sous Oppen Office SANS les espaces?
merci

Hagar de l'Est

Re : Statistiques OO

'lut

Réponse ici : [Résolu] Compter les espaces d'un document.

Vaneck

Re : Statistiques OO

ok merci , mais c'est un peur tordu comme soluce

Hagar de l'Est

Re : Statistiques OO

il doit bien être possible de modifier la macro pour récupérer le nombre total de caractères et soustraire le nombre d'espaces ensuite pour éviter de faire l'opération soi même.

Vaneck

Re : Statistiques OO

Trop complexe pour moi , la premiere méthode me suffira , merci

Petit Willy

Re : Statistiques OO

Voila une macro qui mache, elle reprend le script du lien d'Hagar
je pense quelle doit faire l'affaire...

voici le topic ou je l'ai trouvé

REM  *****  Compteur de caractères  *****

Sub CompteCaract
   Dim oTrouve_space As Object
   Dim oTrouve_non_space As Object


   oTrouve_space = ThisComponent.createSearchDescriptor
   With  oTrouve_space
     .SearchString = " " ' ou un autre caractère de ton choix
     .SearchWords = false
   End With

   oTrouve_non_space = ThisComponent.createSearchDescriptor
   With oTrouve_non_space
     .SearchString = "[^ ]" ' ou un autre caractère de ton choix
     .SearchWords = false
     .SearchRegularExpression=True
   End With 


 MsgBox "Il y a " &  ThisComponent.findAll(oTrouve_non_space).count  & "caractères sans compter les espaces et il y a " & ThisComponent.findAll(oTrouve_space).count & " espaces"
End Sub