Journal Décompte des caractères dans OpenOffice

Posté par  (site web personnel) .
Étiquettes :
0
6
oct.
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 ?

  • # Re: Décompte des caractères dans OpenOffice

    Posté par  (site web personnel, Mastodon) . É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.

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

      Posté par  . Évalué à 1.

      heu non, cherche dans les archives d'abord :)

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

      Posté par  (site web personnel) . É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  (site web personnel) . É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  . É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 ??

Suivre le flux des commentaires

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