Bonsoir,
voila je suis classe prépa en MPSI et lorsque l'on fait un résumé de Français on doit tous les 50 mots mettre [50] ,[100] , [150] dans le texte pour faciliter le recomptage. Je me demandais donc si il existait sur Word 2007 une fonction qui le ferait automatiquement ?
Merci d'avance
Jeremouse1
Bonsoir Jeremouse1,
Je pense que tu devras passer par VBA, par exemple, pour parvenir à tes fins.
Le programme en lui-même n'est pas si compliqué que ça à réaliser.
A+
Bonjour,
Pourquoi faire compliquer quand on peut faire simple ?
Menu Mise en page.
Numéros de lignes
Options de numérotation de lignes
Clique sur Numérotation des lignes.
Et après à toi de voir
Oui, mais ça compte les lignes, pas les mots !Envoyé par Tom-Tom
Alors il faut mettre chaque mot sur une ligne différente ! Avec un texte de 10 pages
A+
Effectivement: Pourquoi faire compliqué lorsque ça peut être simple ?
Il y a 2 moyens pour connaître le nombre de mots:
A) Outils, statistiques (à partir de la version 2000, si je me souviens bien)
B) Insertion, Champ, et en fonction de la version de WORD que tu as, c'est dans la rubrique résumé, et ce champ s'appelle "Nombres de mots" ou "NumWords"
Ca t'évite donc de "calculer les mots" par tranche de 50, vu que tu auras le nombre de mots exacts
Cyrille
As-tu bien compris ce qu'on demande à Jeremouse1 ? D'accord personnellement ça me paraît idiot, mais c'est ce qu'il doit faire.
Rien ne sert de penser, il faut réfléchir avant - Pierre Dac
Voilà une solution :
C'est une makro VBA à introduire dans le fichier texte à analyser :
****************************** *************************
Sub ComptageMots()
'Compter les mots contenus dans le texte.
Dim Nb, Cpt, LeMot
'Aller en début de texte
Selection.HomeKey Unit:=wdStory
For i = 1 To ThisDocument.Words.Count
Selection.MoveRight Unit:=wdWord, Count:=1, Extend:=wdExtend
LeMot = Selection 'Mémorise le mot en cours de lecture
If LeMot <> "" Then 'Pour ignorer les sauts de ligne et fin de texte
Cpt = i
If Cpt Mod 50 = 0 Then 'Multiple de 50 ?
Selection.TypeText Text:="(" & Cpt & ") " 'Inscrire le numéro 50 puis 100 ...
End If 'cpt mod 50
End If 'lemot <> ""
Selection.MoveRight Unit:=wdWord, Count:=1 'Passer au mot suivant
Next i
End Sub
****************************** ************************
Je pense qu'il est suffisamment documenté.
A+
Ouah merci de ta réponse et du temps que t'as passé à écrire ce programme c'est super.
Merci !
