Journal : Décompte des caractères dans OpenOffice

Posté par Zorro () le 06 octobre 2003

Bonjour Journal,
Ceci est mon premier post, j'espère qu'on va bien s'entendre.
Je viens de télécharger la dernière version d'OOo.
Je m'aperçois avec effroi qu'ils ont toujours pas amélioré l'onglet Statistique des Propriétés d'un document...
JE DOIS absolument pouvoir calculer combien de caractères, espaces compris, contient une portion de texte sélectionnée... C'est quand même pas compliqué, même AppleWorks sait le faire...

Je me rappelle, à une Linux Expo parisienne, j'avais discuté un peu avec un dév. de KWord, et je lui avais dit qu'il fallait introduire cette fonction, que c'était indispensable à tout ceux qui doivent écrire des textes en nombre de caractères limité. Il avait dit "OK, on va le faire". Et ils l'ont fait !!! Alors, pitié, seigneur, pourquoi pas nos chers allemand d'OOo, hein, pourquoi ?

C'est ULTRA pénible de devoir sélectionner le texte, le copier, ouvrir un nouveau document, le coller, et faire Alt-F-I.

Sérieux, quand j'étais sous Win, c'était un critère discriminant pour mon choix d'un traitement de texte WYSIWYG. Mais maintenant, quand on veut on Linux tout léger sans la cavalerie QT2/KDE3/KOffice, et quand même un bon traitement de texte, ben, on n'a plus de choix.

Qui a dit Corel WordPerfect ?

Et qui a dit que j'avais qu'à apprendre à faire des macros ?

> Lire le journal (9 commentaires, moyenne: 1,2).

Cette discussion est archivée, il n'est plus possible de laisser des commentaires.

Note : les commentaires appartiennent à ceux qui les ont postés. Nous n'en sommes pas responsables.

Re: Décompte des caractères dans OpenOffice

Posté par Libre (page perso, ) le 06/10/2003 à 15:17. (lien). Évalué à 2.

Une macro, oui et je crois qu'elle existe déjà ... A voir sur le site de OOo en francais : http://fr.openoffice.org/Documentation/Macros/indexmac.html(...)
En fait elleconcerne le nombre de mot pour une sélection, mais tu dois pouvoir le modifier.
Pour infos, le meilleur moyen de savoir ce genre de chose est la mailing liste de OOo-fr ! Un bon conseil, inscrit toi et pose ta question.

Y.

--
http://softlibre.gloobe.org

[^]Re: Décompte des caractères dans OpenOffice

Posté par Ramso (page perso, ) le 06/10/2003 à 16:04. (lien). Évalué à 1.
heu non, cherche dans les archives d'abord :)

--
Groar !

[^]Re: Décompte des caractères dans OpenOffice

Posté par bad sheep (page perso, ) le 07/10/2003 à 00:26. (lien). Évalué à 2.

Bon, voila la macro modifie tiree de ton lien qui affiche aussi le nombre de caracteres si il y a une selection now :)

Sub compte_mots
	' Big Word Count macro by acb 
	' This works on words and arbitrary ranges of text,
	' and incorporates bits from Werner Roth's SO macro
	Dim oDocument, oDesktop as Object
	Dim oText, alpha, omega as Object
	Dim oVCursor, mySelection As Object
	Dim snot, countit as string
	DIM lwords as long
	Dim LWS as boolean
	Dim NumFound as Integer
	' the two following lines get the active document 
	oDesktop = createUnoService("com.sun.star.frame.Desktop")
	oDocument= oDesktop.getCurrentComponent()
	oText = oDocument.Text
	oVCursor = oDocument.currentcontroller.getViewCursor()
	snot=oVCursor.getString()
	alpha=oVCursor.getStart()
	omega=oVCursor.getEnd()
	If len(snot)>0 Then
		'mySelection = oText.createTextCursorByRange(oVCursor.getstart())
		'mySelection = oText.createTextCursorByRange(alpha)
		'mySelection.goToRange(omega,true)
		countit=oVCursor.getString()
		msgbox(countit)
		LWS = false
		NumFound = 0
		'Scan the selected text character for character
		for i=1 to len(countit)
			Select Case Mid(countit,i,1)
			'Add your own seperators here
			'chr(9) is a tab
			'chr(10) and chr(13) are for Line- and Paragraph-ends
			Case " ", ",", ";", ".", "-", chr(9), chr(10), chr(13)
			'Increase the number of words only if the last character was not a seperator
			if not LWS then
				NumFound = NumFound + 1
				LWS = true
			Endif
			'Character found, so this is no separator
			Case Else
			LWS = false
			End Select
		next i
		msgbox "Mots comptés : " + str(NumFound) + " - Nb caracteres:" + len(countit),64,"Mots de la sélection"
	else ' the cursor is a point
		' count whole document
		lwords=oDocument.WordCount
		msgbox str(lwords)+ " Mots." ,64 ,"Mots dans le document"
	End If
End Sub

[^]Re: Décompte des caractères dans OpenOffice

Posté par Zorro () le 08/10/2003 à 08:48. (lien). Évalué à 1.
Dans mes bras !!!
Ça marche nickel !
J'ai juste mis en remarque la première msgbox, parce que quand on sélectionne beaucoup de texte, ça sert à rien de revoir toute la sélection dans un ENORME bouton... Ça a été l'occasion pour moi de me mettre aux macros (je savais même pas comment on faisait pour la créer et l'enregistrer, j'ai fait un peu au pif, et ça marche).
J'apprécie aussi que les espaces soient inclus dans le décompte, c'est parfait.
Par contre, c'est juste un peu long, à calculer. Je vais regarder si on peut pas aller un peu plus vite. Peut-être déjà annuler le compte des mots, puisque je l'utilise pas. Je pense pas qu'enlever les lignes en remarque accélèrera la chose, si ?

Merci encore !

Re: Décompte des caractères dans OpenOffice

Posté par FraGoss () le 06/10/2003 à 16:49. (lien). Évalué à 1.

Je comprend pas le problème, chez moi avec la version 1.1 RC2
donc l'onglet Statistique, j'ai bien le nombre de caractères.

heu .... c'est une version anglaise que j'ai ??

Comprend pas ??

[^]Re: Décompte des caractères dans OpenOffice

Posté par earxtacy (Jabber id, ) le 06/10/2003 à 17:31. (lien). Évalué à 1.
En faisant une selection ou tout ton doc ?
- [^]Re: Décompte des caractères dans OpenOffice
  
  Posté par FraGoss () le 06/10/2003 à 17:43. (lien). Évalué à 1.
  Ben avec tout le doc sans selection .
  
  J'me suis pas amusé a compter pour vérifier.
  
  Mais j'ai taper un petit texte de 20 caractères avec quelques espaces et
  la stat etait bonne.
  - [^]Re: Décompte des caractères dans OpenOffice
    
    Posté par Zorro () le 06/10/2003 à 19:25. (lien). Évalué à 1.
    Maintenant, sélectionne une ligne ou deux, et réessaye : pas moyen de savoir combien de caractères il y a DANS ta sélection. Ou alors j'ai pas trouvé, depuis toutes ces années, ça serait dommage.
    - [^]Re: Décompte des caractères dans OpenOffice
      
      Posté par FraGoss () le 07/10/2003 à 12:20. (lien). Évalué à 1.
      HAaaaa DANS une sélectionne, j'avai pas compris ca, ben j'ai pas essayer ;-)

Revenir en haut de page