Précédent   Forum des professionnels en informatique > Logiciels > Microsoft Office > Word > VBA Word
Partagez cette discussion sur d'autres réseaux sociaux : Viadeo Twitter Google Facebook Digg Delicious MySpace Yahoo
Réponse Proposer ce sujet en actualité
 
Outils de la discussion
Publicité
'
Vieux 19/09/2011, 00h45   #1
Invité de passage
 
Inscription : août 2006
Messages : 3
Détails du profil
Informations forums :
Inscription : août 2006
Messages : 3
Points : 0
Points : 0
Par défaut Modifier couleur d'un mot

Bonsoir,

Je souhaiterais modifier la couleur d'un ou plusieurs mots dans un document Word en fonction de la couleur d'origine des mots.
Par exemple modifier tous les mots de couleur verte en couleur rouge.

J'ai essayé ce code mais cela ne fonctionne pas.
Pas de message d'erreur mais aucune modification sur le document.

Les mots à modifier se trouvent dans une section bien précise de mon document.

Code :
1
2
3
4
5
6
7
8
9
'--------------------------------------------
'Modifie la couleur des mots en fonction de leur couleur
'--------------------------------------------
 
.Sections(1).Range.Select
.Sections(1).Range.Find.Font.Color = 901014
.Sections(1).Range.Find.Execute
 
Selection.Font.Color = -587137025
Merci d'avance,

Bonne soirée
scintrat est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 19/09/2011, 01h18   #2
Rédacteur/Modérateur
 
Avatar de Sepia
 
Homme JF Jousseaume
Inscription : octobre 2007
Messages : 2 390
Détails du profil
Informations personnelles :
Nom : Homme JF Jousseaume
Âge : 48
Localisation : France

Informations professionnelles :
Secteur : High Tech - Éditeur de logiciels

Informations forums :
Inscription : octobre 2007
Messages : 2 390
Points : 3 356
Points : 3 356
Salut Scintrat,

Fais un rechercher/remplacer (cf. regarde le tuto sur le rechercher/remplacer dans Word) avec comme
  • attributs de recherche : la couleur initiale
  • critère de remplacement : ce que tu recherches <=> "^&" (pour remplacer par ce que tu recherches ==> pas de changement du contenu)
  • attributs de remplacement : la couleur désirée

et en limitant la recherche à ta section

Pour t'aider en VBA, enregistre une macro, elle te fournira (dans ce cas), directement le code réutilisable.


@+
Sepia est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 19/09/2011, 23h43   #3
Invité de passage
 
Inscription : août 2006
Messages : 3
Détails du profil
Informations forums :
Inscription : août 2006
Messages : 3
Points : 0
Points : 0
Salut,

Merci pour ces éléments.
Je vais continuer à chercher.

A+
scintrat est déconnecté   Envoyer un message privé Réponse avec citation 00
Réponse Proposer ce sujet en actualité
Outils de la discussion



Fuseau horaire GMT +2. Il est actuellement 02h24.


 
 
 
 
Partenaires

Hébergement Web