Je cherche le moyen de substituer une police de carat=E8re=20
avec un format particulier (Italique) par une autre police.
Exemple : remplacer Arial italique taille 10 dans un texte=20
en Times New roman.
Il faut que j'automatise cette manipulation par une macro.
Quelqu'un a t il une id=E9e ?
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
JièL Goubert
Bonjour
Menu Outils, Macros, Nouvelle macro. Tout ce que tu feras sera mémorisé.
-- JièL Http://Faq.Outlook.free.fr
Bonjour à toutes et à tous,
Je cherche le moyen de substituer une police de caratère avec un format particulier (Italique) par une autre police. Exemple : remplacer Arial italique taille 10 dans un texte en Times New roman.
Il faut que j'automatise cette manipulation par une macro. Quelqu'un a t il une idée ?
Merci
Bonjour
Menu Outils, Macros, Nouvelle macro.
Tout ce que tu feras sera mémorisé.
--
JièL
Http://Faq.Outlook.free.fr
Bonjour à toutes et à tous,
Je cherche le moyen de substituer une police de caratère
avec un format particulier (Italique) par une autre police.
Exemple : remplacer Arial italique taille 10 dans un texte
en Times New roman.
Il faut que j'automatise cette manipulation par une macro.
Quelqu'un a t il une idée ?
Menu Outils, Macros, Nouvelle macro. Tout ce que tu feras sera mémorisé.
-- JièL Http://Faq.Outlook.free.fr
Bonjour à toutes et à tous,
Je cherche le moyen de substituer une police de caratère avec un format particulier (Italique) par une autre police. Exemple : remplacer Arial italique taille 10 dans un texte en Times New roman.
Il faut que j'automatise cette manipulation par une macro. Quelqu'un a t il une idée ?
Merci
shasha
Ca ne marche pas car dans mon fichier j'ai plusieurs types de polices et il un type de police avec un attribut particulier que je dois modifier. J'ai déjà enregistré une macro avec rechercher/remplacer mais elle ne fonctionne pas par la suite. Shasha
Ca ne marche pas car dans mon fichier j'ai plusieurs types
de polices et il un type de police avec un attribut
particulier que je dois modifier.
J'ai déjà enregistré une macro avec rechercher/remplacer
mais elle ne fonctionne pas par la suite.
Shasha
Ca ne marche pas car dans mon fichier j'ai plusieurs types de polices et il un type de police avec un attribut particulier que je dois modifier. J'ai déjà enregistré une macro avec rechercher/remplacer mais elle ne fonctionne pas par la suite. Shasha
Sub ModifItalique() ' ' Trouve les paragraphe en Italique ' Les mets en Police Tahoma ' Selection.Find.ClearFormatting Selection.Find.Font.Italic = True Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "" .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False .Replacement.Font.Name = "Tahoma" End With Selection.Find.Execute Replace:=wdReplaceAll End Sub
Tu remplace le nom "Tahoma" par celui de la police que tu veux mettre. La clef, c'est .replacement, qui définit ce qui doit être remplacé.
Bonjour à toutes et à tous,
Je cherche le moyen de substituer une police de caratère avec un format particulier (Italique) par une autre police. Exemple : remplacer Arial italique taille 10 dans un texte en Times New roman.
Il faut que j'automatise cette manipulation par une macro. Quelqu'un a t il une idée ?
Merci
Essaie la macro suivante :
Sub ModifItalique()
'
' Trouve les paragraphe en Italique
' Les mets en Police Tahoma
'
Selection.Find.ClearFormatting
Selection.Find.Font.Italic = True
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = ""
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
.Replacement.Font.Name = "Tahoma"
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub
Tu remplace le nom "Tahoma" par celui de la police que tu veux mettre. La
clef, c'est .replacement, qui définit ce qui doit être remplacé.
Bonjour à toutes et à tous,
Je cherche le moyen de substituer une police de caratère
avec un format particulier (Italique) par une autre police.
Exemple : remplacer Arial italique taille 10 dans un texte
en Times New roman.
Il faut que j'automatise cette manipulation par une macro.
Quelqu'un a t il une idée ?
Sub ModifItalique() ' ' Trouve les paragraphe en Italique ' Les mets en Police Tahoma ' Selection.Find.ClearFormatting Selection.Find.Font.Italic = True Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "" .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False .Replacement.Font.Name = "Tahoma" End With Selection.Find.Execute Replace:=wdReplaceAll End Sub
Tu remplace le nom "Tahoma" par celui de la police que tu veux mettre. La clef, c'est .replacement, qui définit ce qui doit être remplacé.
Bonjour à toutes et à tous,
Je cherche le moyen de substituer une police de caratère avec un format particulier (Italique) par une autre police. Exemple : remplacer Arial italique taille 10 dans un texte en Times New roman.
Il faut que j'automatise cette manipulation par une macro. Quelqu'un a t il une idée ?
