Bonjour à toutes et tous . . . et merci d'avance
J'ai régulièrement à modifier des documents en remplacant les mots refusés
par le correcteur d'orthographe (quelque soit leur nombre de caractères) par
une suite de caractères de longueur fixe (en l'occurence le mot ERREUR).
Jusqu'ici je le faisait à la main en double cliquant sur les mots soulignés
mais les textes sont de plus en plus long et le temps passé aussi.
Existe-t-il un moyen (macro ?) permettant d'automatiser cela ? J'ai bien
essayé l'enregistreur de macro mais sans résultat, l'ouverture F7 fige la
macro et plus rien ne s'enregistre.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
AB
Bonjour, Peut-être avec ça : Public Sub RemplaceFautes() Dim Faute For Each Faute In ActiveDocument.SpellingErrors Faute.Select Selection.TypeText "ERREUR" Next Faute End Sub AB
"RVTISS" a écrit dans le message de news:bkt3o5$sfb$
Bonjour à toutes et tous . . . et merci d'avance J'ai régulièrement à modifier des documents en remplacant les mots refusés par le correcteur d'orthographe (quelque soit leur nombre de caractères) par
une suite de caractères de longueur fixe (en l'occurence le mot ERREUR). Jusqu'ici je le faisait à la main en double cliquant sur les mots soulignés
mais les textes sont de plus en plus long et le temps passé aussi. Existe-t-il un moyen (macro ?) permettant d'automatiser cela ? J'ai bien essayé l'enregistreur de macro mais sans résultat, l'ouverture F7 fige la macro et plus rien ne s'enregistre.
Merci d'avance
Hervé
Bonjour,
Peut-être avec ça :
Public Sub RemplaceFautes()
Dim Faute
For Each Faute In ActiveDocument.SpellingErrors
Faute.Select
Selection.TypeText "ERREUR"
Next Faute
End Sub
AB
"RVTISS" <rvtiss@wanado.fr> a écrit dans le message de
news:bkt3o5$sfb$1@news-reader3.wanadoo.fr...
Bonjour à toutes et tous . . . et merci d'avance
J'ai régulièrement à modifier des documents en remplacant les mots refusés
par le correcteur d'orthographe (quelque soit leur nombre de caractères)
par
une suite de caractères de longueur fixe (en l'occurence le mot ERREUR).
Jusqu'ici je le faisait à la main en double cliquant sur les mots
soulignés
mais les textes sont de plus en plus long et le temps passé aussi.
Existe-t-il un moyen (macro ?) permettant d'automatiser cela ? J'ai bien
essayé l'enregistreur de macro mais sans résultat, l'ouverture F7 fige la
macro et plus rien ne s'enregistre.
Bonjour, Peut-être avec ça : Public Sub RemplaceFautes() Dim Faute For Each Faute In ActiveDocument.SpellingErrors Faute.Select Selection.TypeText "ERREUR" Next Faute End Sub AB
"RVTISS" a écrit dans le message de news:bkt3o5$sfb$
Bonjour à toutes et tous . . . et merci d'avance J'ai régulièrement à modifier des documents en remplacant les mots refusés par le correcteur d'orthographe (quelque soit leur nombre de caractères) par
une suite de caractères de longueur fixe (en l'occurence le mot ERREUR). Jusqu'ici je le faisait à la main en double cliquant sur les mots soulignés
mais les textes sont de plus en plus long et le temps passé aussi. Existe-t-il un moyen (macro ?) permettant d'automatiser cela ? J'ai bien essayé l'enregistreur de macro mais sans résultat, l'ouverture F7 fige la macro et plus rien ne s'enregistre.
