Recherche de mots particulier

Résolu/Fermé
Antonin - 22 août 2018 à 19:59
AntoninC Messages postés 9 Date d'inscription mercredi 22 août 2018 Statut Membre Dernière intervention 9 septembre 2018 - 23 août 2018 à 00:33
Bonjour,

J'ai écrit un long texte et je voudrais pouvoir y remplacer des mots, je ne connais pas forcement out les mots donc CTRL+F ne marchera pas et la relecture prendra bc trop de temps (et risque d'erreur en prime)
je voulais donc savoir si il était possible de surligné tout les mots de + de 6 lettres dans un texte

Merci d'avance

1 réponse

m@rina Messages postés 21080 Date d'inscription mardi 12 juin 2007 Statut Contributeur Dernière intervention 15 novembre 2024 11 350
23 août 2018 à 00:16
Bonsoir,

On peut faire une macro, mais si le document est gros, ça va prendre un certain temps car les mots de plus de 6 lettres sont quand même ce qu'il y a de plus courant.

Enfin, ça ne mange pas de pain ! ;)

Sub gros_mots()
Dim mot
For Each mot In ActiveDocument.Words
If mot.Characters.Count > 6 Then
mot.HighlightColorIndex = wdYellow
End If
Next
End Sub


m@rina
0
AntoninC Messages postés 9 Date d'inscription mercredi 22 août 2018 Statut Membre Dernière intervention 9 septembre 2018
23 août 2018 à 00:19
Heuuu j'aimerais te remercier mais je ne sais pas du tout comment cela fonctionne, un lien tuto macro ou qqch comme ça ? Et une fois le "macro "fait"" qu es ce que cela va donner ?
0
m@rina Messages postés 21080 Date d'inscription mardi 12 juin 2007 Statut Contributeur Dernière intervention 15 novembre 2024 11 350
23 août 2018 à 00:21
Explications ici :
https://faqword.com/index.php/generalites-office/615-le-b-a-ba-du-vba#forum

La macro va simplement surligner en jaune tous les mots de plus de 6 caractères, comme tu le demandes.

m@rina
0
AntoninC Messages postés 9 Date d'inscription mercredi 22 août 2018 Statut Membre Dernière intervention 9 septembre 2018
23 août 2018 à 00:33
WOW merci beaucoup c'est précisement ce que je voulais faire !!!
Merci
0