Discussion :

[Shanoir64]

Bonjour,
La procédure ci dessous permets de remplacer un mot par un autre (sans changement de couleur du mot remplacé)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
ObjWord est un objet Automation "Word.application"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
PROCEDURE PROC_Word_RechercherRemplacer(objWord,sChaîneRecherchée, sChaîneQuiVaRemplacer)
 
// vérification de la sélection
QUAND EXCEPTION DANS
	objWord>>Selection	
FAIRE
	Info("Vous devez d'abord sélectionner du texte.")	
	RETOUR
FIN
 
QUAND EXCEPTION DANS
	objWord>>Selection>>Find>>Execute(sChaîneRecherchée,Faux,Vrai,Faux,Faux,Faux,Vrai,1,Faux,sChaîneQuiVaRemplacer,2)
	//   1 : WdFindContinue 
	//   2 : WdReplaceAll 
FAIRE
	Erreur("Impossible d'exécuter le Rechercher/Remplacer.",ExceptionInfo())
	RETOUR	
FIN

Je n'arrive pas à trouver comment changer la couleur du mot remplacé par cette procédure

J'ai bien tenté d'utiliser le code ci desous, mais cela ne marche pas.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
objWord>>Selection>>Find>>ClearFormatting 
objWord>>Selection>>Find>>Replacement>>ClearFormatting 
objWord>>Selection>>Find>>Text = sChaîneRecherchée
objWord>>Selection>>Find>>Replacement>>Text = sChaineQuiVaRemplacer
objWord>>Selection>>Find>>Replacement>>Font>>Color = 6 //ROUGE
objWord>>Selection>>Find>>Forward = True 
objWord>>Selection>>Find>>Wrap = 1 
objWord>>Selection>>Find>>Format = True 
objWord>>Selection>>Find>>MatchCase = False 
objWord>>Selection>>Find>>MatchWholeWord = False 
objWord>>Selection>>Find>>MatchWildcards = False 
objWord>>Selection>>Find>>MatchSoundsLike = False 
objWord>>Selection>>Find>>MatchAllWordForms = False 
objWord>>Selection>>Find>>Execute

De plus le but est de remplacer TOUTES les occurrences et de les mettre en rouge une fois remplacées...
Merci pour votre aide....

[jurassic pork]

hello,
chez moi cela fonctionne avec ce code (word 2010) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
objWord>>Selection>>Find>>ClearFormatting 
objWord>>Selection>>Find>>Replacement>>ClearFormatting 
objWord>>Selection>>Find>>Replacement>>Font>>Bold = True // GRAS
objWord>>Selection>>Find>>Replacement>>Font>>Color = RGB(255,0,0) // ROUGE
objWord>>Selection>>Find>>Execute("monTexte",False,True,False,False,False,True,1,True,"monNouveauTexte",2)

curieusement la couleur doit être mise en format RGB alors que dans la doc cela semble plutôt être une constante d'énumération. Cela dépend peut être de la version d' Office.

Ami calmant, J.P

[Shanoir64]

En effet le code ci dessus fonctionne parfaitement...
Merci beaucoup, du coup l'action Doliprane va chuter