Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
2314 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  [Résolu] Un compteur de mots dans Word

 



 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

[Résolu] Un compteur de mots dans Word

n°1335498
Ween
Posté le 30-03-2006 à 13:34:52  profilanswer
 

Bonjour à tous,
 
J'ai trouver sur 01net.com une macro word qui permet de compter le nombre de fois qu'une occurence apparait dans Word.
http://www.01net.com/editorial/252 [...] dans-word/
 
Sous word 2003, j'ai donc copier le code suivant :
 
Sub repetition()
Count = 0
searchtext$ = InputBox$("Indiquez   le   mot   ou   la   phrase   à   comptabiliser   :" )
With ActiveDocument.Content.Find
Do While .Execute(FindText:=searchtext$, Format:=False, MatchCase:=False, MatchWholeWord:=True) = True
Count = Count + 1
Loop
End With
MsgBox searchtext$ * ": a été utilise à " * Count * " reprise(s)"
End Sub
 
Mais l'execution de la macro fait apparaitre une "Erreur d'exécution '13': Incompatibilité de type"  sur la ligne "MsgBox searchtext$ * ": a été utilise à " * Count * " reprise(s)"".
 
Pourriez-vous m'aidez à trouver l'erreur ?
 
Merci d'avance.


Message édité par Ween le 30-03-2006 à 13:52:46
mood
Publicité
Posté le 30-03-2006 à 13:34:52  profilanswer
 

n°1335508
Ween
Posté le 30-03-2006 à 13:52:25  profilanswer
 

je viens de remplacer les * par des & et cela fonctionne parfaitement
 
Merci :)


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  [Résolu] Un compteur de mots dans Word

 

Sujets relatifs
Problème id dans création de tableau dynamique [résolu][resolu]Fonction sqrt non reconnue...
Bouton abandonner en javascript [RESOLU][RESOLU] Comment dessiner une fenêtre?
[Résolu] Vider le cacheBloc Serveur comme nukeClan sur un site HTML [résolu]
[résolu][VBA]Afficher mon document Word[RESOLU] Petit script VBS
[ RESOLU ] chercher dans une chaine de caractère 
Plus de sujets relatifs à : [Résolu] Un compteur de mots dans Word


Copyright © 1997-2018 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR