Surligner une partie d'un texte word

**bboy-eazy** · 13/11/2017, 09h43

Bonjour,

Je cherche à surligner d'une certaine couleur une partie d'un texte dans word. L'écriture se fait via excel.

Comment puis je procéder. je ne trouve rien sur internet.

merci d'avance bonne journée.

j'ai testé ceci mais cela ne fonctionne pas. Il ne reconnait pas l'objet. Y-a-t-il aussi une fonction du style Csurligner("partie de chaine") & "reste de la chaine"

Code :

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

1
2
WordDoc.Tables(1).Columns(1).Cells(1).Range.Text = "Témoin" & vbCr & "NaCl" & vbCr & JOUR
WordDoc.Tables(1).Columns(1).Cells(1).Range.Characters(1, 6).Font.ColorIndex = 3

du coup via word j'arrive à surligner toute la case du tableau via

Code :

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

ActiveDocument.Tables(1).Columns(1).Cells(1).Range.HighlightColorIndex = wdYellow

mais comment faire pour surligner que "Témoin" dans mon exemple svp?

merci d'avance et bonne journée

**bboy-eazy** · 14/11/2017, 08h27

Bonjour,

j'ai trouvé une solution:

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
19
20
21
22
23
Sub surligner(LETXT As String)
If LETXT <> "" Then
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    Selection.Find.Replacement.Highlight = True
    With Selection.Find
        .Text = LETXT
        .Replacement.Text = LETXT
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWholeWord = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End If
End Sub
Sub Main()
surligner ("Témoin")
End Sub

par contre j'ai une question:

- est il possible de changer la couleur du surlignage car il est en jaune par défaut. Je n'arrive pas à choisir la couleur.

merci d'avance

Invité · 14/11/2017, 09h13

Envoyé par bboy-eazy

Bonjour,

Voir l'aide en ligne à la rubrique WdWord :

Code :

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

Selection.Range.HighlightColorIndex = wdBrightGreen

Référence du développeur Word
WdColor, énumération
Spécifie la couleur 24 bits à appliquer.
Nom Valeur Description
-----------------------------------------------------------

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
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
wdColorAqua	13421619	Couleur cyan.
wdColorAutomatic	-16777216	Couleur automatique. Valeur par défaut*; généralement, noir.
wdColorBlack	0	Noir.
wdColorBlue	16711680	Bleu.
wdColorBlueGray	10053222	Gris-bleu.
wdColorBrightGreen	65280	Vert vif.
wdColorBrown	13209	Brun.
wdColorDarkBlue	8388608	Bleu foncé.
wdColorDarkGreen	13056	Vert foncé.
wdColorDarkRed	128	Rouge foncé.
wdColorDarkTeal	6697728	Bleu-vert foncé.
wdColorDarkYellow	32896	Jaune foncé.
wdColorGold	52479	Or.
wdColorGray05	15987699	Dégradé de gris n°5.
wdColorGray10	15132390	Dégradé de gris n°10.
wdColorGray125	14737632	Dégradé de gris n°125.
wdColorGray15	14277081	Dégradé de gris n°15.
wdColorGray20	13421772	Dégradé de gris n°20.
wdColorGray25	12632256	Dégradé de gris n°25.
wdColorGray30	11776947	Dégradé de gris n°30.
wdColorGray35	10921638	Dégradé de gris n°35.
wdColorGray375	10526880	Dégradé de gris n°375.
wdColorGray40	10066329	Dégradé de gris n°40.
wdColorGray45	9211020	Dégradé de gris n°45.
wdColorGray50	8421504	Dégradé de gris n°50.
wdColorGray55	7566195	Dégradé de gris n°55.
wdColorGray60	6710886	Dégradé de gris n°60.
wdColorGray625	6316128	Dégradé de gris n°625.
wdColorGray65	5855577	Dégradé de gris n°65.
wdColorGray70	5000268	Dégradé de gris n°70.
wdColorGray75	4210752	Dégradé de gris n°75.
wdColorGray80	3355443	Dégradé de gris n°80.
wdColorGray85	2500134	Dégradé de gris n°85.
wdColorGray875	2105376	Dégradé de gris n°875.
wdColorGray90	1644825	Dégradé de gris n°90.
wdColorGray95	789516	Dégradé de gris n°95.
wdColorGreen	32768	Vert.
wdColorIndigo	10040115	Indigo.
wdColorLavender	16751052	Lavande.
wdColorLightBlue	16737843	Bleu clair.
wdColorLightGreen	13434828	Vert clair.
wdColorLightOrange	39423	Orange clair.
wdColorLightTurquoise	16777164	Turquoise clair.
wdColorLightYellow	10092543	Jaune clair.
wdColorLime	52377	Vert clair.
wdColorOliveGreen	13107	Vert olive.
wdColorOrange	26367	Orange.
wdColorPaleBlue	16764057	Bleu moyen.
wdColorPink	16711935	Rose.
wdColorPlum	6697881	Prune.
wdColorRed	255	Rouge.
wdColorRose	13408767	Rose saumon.
wdColorSeaGreen	6723891	Vert marin.
wdColorSkyBlue	16763904	Bleu ciel.
wdColorTan	10079487	Brun tanné.
wdColorTeal	8421376	Bleu-vert.
wdColorTurquoise	16776960	Turquoise.
wdColorViolet	8388736	Violet.
wdColorWhite	16777215	Blanc.
wdColorYellow	65535	Jaune.

**bboy-eazy** · 14/11/2017, 10h23

Bonjour Eric,

merci pour ton aide,

J'étais bien parti la dessus en fait mais le truc c'est que je ne sais pas ou le placer dans mon code

Code :

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

Selection.Range.HighlightColorIndex = wdRed

Code :

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

1
2
3
4
5
    With Selection.Find
        .Text = LETXT
        .Replacement.Text = LETXT
        .Range.HighlightColorIndex = wdRed
    End With

ne fonctionne pas car .find.range ne va pas ensemble

ainsi que

Code :

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

1
2
3
4
5
If LETXT <> "" Then
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    Selection.Find.Replacement.Highlight = True
    Selection.Range.HighlightColorIndex = wdBrightGreen

le code se déroule bien mais le surlignage est toujours jaune...

Invité · 14/11/2017, 10h57

Envoyé par bboy-eazy

A tester.

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
 
Sub Essai()
 
Dim LeTXT As String
 
    LeTXT = "Eric"
 
    With ActiveDocument.Content.Find
         .ClearFormatting
         'propriétés de remplacement
         With .Replacement
              .Highlight = wdRed
         End With
         .Execute FindText:=LeTXT, ReplaceWith:=LeTXT, Format:=True, MatchCase:=True, MatchWholeWord:=True, Replace:=wdReplaceAll
    End With
 
End Sub

**bboy-eazy** · 14/11/2017, 13h08

Bonjour et merci Eric,

je pense que ton code fonctionne mais en fait avec différents tests et en commencant à mieux comprendre la method Find, j'ai un soucis.

en fait cela fonctionne quand par exemple il y a déjà une surbrillance appliquée au premier mot "Témoin" dans mon exemple. ceci coloriait tout en jaune car il y avait une surbrillance jaune. par contre si il y a pas de surbrillance au depart et bien rien ne s'applique.

j'ai compris, et stoppe moi si je me trompe, que la première partie constitue la base de travail ( ce qu'on cherche et les propriétés à trouver). j'ai donc ajouté à ton code false à highlight car il n'y en a pas

Code :

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

1
2
3
With ActiveDocument.Content.Find
         .ClearFormatting
         .Highlight = false

et donc rajouter pour le remplacement après:

Code :

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

1
2
3
4
         With .Replacement
              .Highlight = true
              .Highlight = wdRed
         End With

mais ca ne fonctionne pas

Invité · 14/11/2017, 13h23

Envoyé par bboy-eazy

Le code de mon précédent message trouve les occurrences d'une chaîne et les met en surbrillance avec la couleur définie. Dans mon exemple, je ne remplace pas la chaîne. Sans doute que ton problème réside là.
Peux-tu expliquer, ce que tu cherches à faire réellement ? Au besoin, mets un exemple dans un fichier avec ton code et explique ce que tu veux obtenir.

**clementmarcotte** · 15/11/2017, 03h59

Bonjour,

Tu as un exemple avec Replacement là:

https://msdn.microsoft.com/fr-fr/vba...-property-word

Regarde aussi cette page et son exemple. Le remplacement varie selon que le Find est lancé à partir d'un objet Range ou d'un objet selection.

Comme dans le code ici. La surbrillance est appliquée à partir d'un objet Range, parce que le texte d'un signet est un objet range. Mais comme j'ai dit, il faut adapter les noms d'objets.

Pour te sauver le trouble de chercher, j'ai même vérifié que le Content d'un document Word est un objet Range

**bboy-eazy** · 20/11/2017, 14h17

Bonjour,

Merci pour vos réponses.

J'ai donc regardé tous ces liens et bidouiller un peu histoire de comprendre.

résultat, j'ai réussi à faire ma coloration par cette methode :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Coloration()
Selection.Tables(1).Select
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
     .MatchWildcards = True
     .Text = "Témoin"
          While .Execute
               Selection.Range.Select
               Selection.Range.HighlightColorIndex = wdYellow
               Selection.Collapse wdCollapseEnd
          Wend
End With
End Sub

merci à tous

Surligner une partie d'un texte word [WD-2013]

VBA Word

Discussions similaires

Partager

Partager