word : trouver le mot le plus utilisé d'un texte

Salut,

 La solution ne me paraît pas très simple.Je pense avoir un début de piste.Il faut tout d'abord utiliser une macro sur ton texte word:
 Sub Decomposermot()
 For i = 1 To 150
  Selection.MoveRight Unit:=wdWord, Count:=1
  Selection.TypeParagraph
  Next i
 End Sub

 Le but de cette macro est de décomposer ton texte en une liste. Exemple:
 Le
 but
 de
 cette
 ....
 Exemple
 Le problème est que je ne sais pas comment dire à ma macro de cherche la fin du texte.J'ai mis 150 à titre d'exemple. En fait le code est:
 For i To fin du texte mais je ne connais pas l'instruction VBA correspondante.
 Ensuite, il faut convertir le texte en tableau:Sélectionner le texte/Tableau/Convertir le texte en tableau.
 Il faut copier le tableau et le coller sur Excel. Tu ajoutes une colonne.Tu donnes un titre bidon à chacune des colonnes.Utiliser ensuite la macro suivante:
 Sub Compteur()
 For i = 2 To 150 (s'il y a 150 lignes dans le tableau)
 For j = 1 To 1
 If Cells(i, j) = Cells(i + 1, j) Then
 Cells(i + 1, j + 1) = Cells(i, j + 1) + 1
 'Si la ligne est égale à la ligne précédente, autrement dit, si le mot est le même, incrémenter le compteur de 1
 Else
 Cells(i + 1, j + 1) = 1
 'Sinon, donner 1 comme valeur
 End If
 Next j
 Next i
 End Sub

 Exemple:
 Mot(colonne A)  Compteur(colonne B)
 barre 1
 barre 2
 barre 3
 carte 1
 craie 1
 dard 1
 dard 2
 dard 3
 dard 4
 .....

 Il faut enfin trier le tableau par ordre décroissant en se basant sur la 2nde colone (compteur).
 dard 4
 dard 3
 barre 3
 ....
 4 étant le plus grand chiffre, le mot qui apparaît le plus souvent est donc dard

Bonjour

 Effectivement cela me paraît bien compliqué. Comme je ne maîtrise pas le VBA, je crains de ne pas y arriver. De plus j'ai beaucoup de documents qui m'arrivent et sur lesquels je vais devoir faire cette manip...

 En tout cas merci pour l'aide

Salut,

 Le seconde macro est inutile en fait. Une fois que tu as ton tableau sur excel, tu fais un tableau croisé dynamique: c'est plus joli et c'est beaucoup plus clair et surtout beaucoup plus simple.Par contre, je pense que la 1ère macro est nécessaire.Un forumer pourra peut-être trouver la solution: il suffit juste de transcrire Fin du texte en une instruction VBA.Le but d'une macro est justement de te permettre de travailer sur tous tes documents.

Re,

 Cette fois-ci, je pense avoir trouvé une méthode plus simple sans macro mais qui demande une attention particulière.
 Tu vas repmlacer tout les espaces, les virgules, les signes de ponctuation...par une marque de paragraphe avec Ctrl+H.
 Exemple:
 Cette
 fois-ci
 ,

 je
 pense
 avoir
 trouvé
 une
 méthode
 ...
 Ctrl
 +
 H
 Le but étant toujours de créer une liste verticale de chacun des mots.Tu n'as plus qu'à sélectionner et copier la liste.Tu la colles sur excel et tu fais ton tableau croisé dynamique.NB Mot  
 Mot Somme
 , 3
 attention 1
 avec 1
 avoir 1
 Cette 1
 Ctrl+H 1
 de 2
 demande 1
 espaces 1
 fois-ci 1
 je 1
 les 3
 macro 1
 mais 1
 marque 1
 méthode 1
 paragraphe 1
 particulière. 1
 pense 1
 plus 1
 ponctuation...par 1
 qui 1
 remplacer 1
 sans 1
 signes 1
 simple 1
 tout 1
 trouvé 1
 Tu 1
 une 3
 vas 1
 virgules 1
 (vide)  
 Total 39

 Tu as simplement deux exigences.
 1/Faire la liste de tous les signes de ponctuation (et encore pas vraiment):,?!..etc
 2/Tu n'as pas précisé s'il y a des graphiques ou des particularités dans tes documents.

Salut

 Ce logiciel va pouvoir répondre à ta question:
 http://www.bragelonne.fr/forum [...] php?t=4827

 bonjour
 cette application aussi (non testée)
 http://perso.orange.fr/hypopolo/occur/document.htm

---------------
En dernier recours il reste toujours le marteau !