[EMAIL PROTECTED] a écrit :
Bonjour,
Je souhaite connaître le nombre de caractères d'un texte, en comptant
les espaces et sans les compter.
Je n'ai pas trouvé de macro faisant ce calcul.
Sur le site
http://fr.openoffice.org/Documentation/Macros/indexmac.html
il y a la macro installer_acb.sxw, elle compte les mots mais ne compte
pas les cractères
Cordialement
--
Pascal
Bonjour,
Pour compter le nombre d'espaces, comme il n'y a pas d'outils fourni
pour le faire, l'astuce est d'utiliser la fonction Recherche/Remplacer :
faire Rechercher et indiquer un espace, et Remplacer par X, lancer la
recherche, en fin d'opération le nombre de remplacement apparait. Il
suffit alors de le noter.
Pour le nombre de caractères, comme indiqué c'est par
Fichier/Propriétés/Statistiques qui le donne.
Cette Macro permet aussi de compter :
Sub CompteCaract
Dim oTrouve As Object
oTrouve = ThisComponent.createSearchDescriptor
With oTrouve
.SearchString = " " ' ou un autre caractère de ton choix
.SearchWords = false
End With
MsgBox "Espaces trouvés : " & ThisComponent.findAll(oTrouve).count
End Sub
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
