Utilitaire pour remplacer les caractères accentués par les mêmes sans accent

Le
Francois
Bonjour à tous,

J'ai cherché éperduement dans le forum et sur Google comment faire
pour m'éviter, dans un texte sous Word, de lancer un
Rechercher/remplacer (Ctrl+H) pour chaque caractère accentué à
remplacer par son pendant sans accent (y compris les majuscules
accentuées).

éèêë donne e
àâä donne a
ç donne c
ù donne u
ï donne i

Avez-vous une solution ?

Merci d'avance pour votre aide.
Francois

Word 2003 PC sous Win XP.
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Patrick BASTARD
Le #1687888
Bonjour, *Francois*


Un début de piste avec l'enregistreur de macros :
'****************************************
Option Explicit

Sub RemplaceE()
'
' Macro1 Macro
' Macro enregistrée le 15/09/2007 par P. Bastard
'
Selection.Find.Execute
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "é"
.Replacement.Text = "e"
.Forward = True
.Wrap = wdFindContinue
End With


Selection.Find.Execute
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "è"
.Replacement.Text = "e"
.Forward = True
.Wrap = wdFindContinue
End With

Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "ë"
.Replacement.Text = "e"
.Forward = True
.Wrap = wdFindContinue
End With

Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "ê"
.Replacement.Text = "e"
.Forward = True
.Wrap = wdFindContinue
End With

Selection.Find.Execute Replace:=wdReplaceAll
End Sub
'****************************************

--
Bien amicordialement,
P. Bastard

Avant d'imprimer ce mail, ayez une pensée pour les arbres.
Bonjour à tous,

J'ai cherché éperduement dans le forum et sur Google comment faire
pour m'éviter, dans un texte sous Word, de lancer un
Rechercher/remplacer (Ctrl+H) pour chaque caractère accentué à
remplacer par son pendant sans accent (y compris les majuscules
accentuées).

éèêë donne e
àâä donne a
ç donne c
ù donne u
ï donne i

Avez-vous une solution ?

Merci d'avance pour votre aide.
Francois

Word 2003 PC sous Win XP.


JièL
Le #1687887
Bonjoir(c) Francois

sans macro :
1) Désactivez les majuscules accentués dans les options de correction auto
2) Ctrl+A, Maj+F3, Maj+F3, Maj+F3

ou
2) menu Format, Modifier la casse, Inverser la casse (à faire 2 fois)

--
JièL / Jean-Louis GOUBERT
La FAQ Outlook est là : http://faq.outlook.free.fr/

Boycott des questions venant de CDO

Le 15/09/2007 15:43 vous avez écrit ceci :
Bonjour à tous,

J'ai cherché éperduement dans le forum et sur Google comment faire
pour m'éviter, dans un texte sous Word, de lancer un
Rechercher/remplacer (Ctrl+H) pour chaque caractère accentué à
remplacer par son pendant sans accent (y compris les majuscules
accentuées).

éèêë donne e
àâä donne a
ç donne c
ù donne u
ï donne i

Avez-vous une solution ?

Merci d'avance pour votre aide.
Francois

Word 2003 PC sous Win XP.


Francois
Le #1687694
Le Sat, 15 Sep 2007 16:35:17 +0200, "Patrick BASTARD"

Un début de piste avec l'enregistreur de macros :
'****************************************
Option Explicit

Sub RemplaceE()


Un grand merci à toi Patrick, ta macro fonctionne nickel, il m'a
suffit d'y rajouter les quelques lettres accentuées que je n'avais pas
citées et vogue la galère.

Merci également à Jiel pour sa proposition.

@+
Francois

Publicité
Poster une réponse
Anonyme