Utilitaire pour remplacer les caractères accentués par les mêmes sans accent
3 réponses
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
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
Patrick BASTARD
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.
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
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
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.
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
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 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
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.
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.