Dans Word 2003 est-il possible de rechercher un texte surlign=E9 en
jaune (mais pas ceux surlign=E9s en vert)
Edition>rechercher>Plus>Format>Surlignage ne permet que de chercher un
texte surlign=E9 (mais sans pouvoir pr=E9ciser dans quelle couleur), donc
pour retrouver mon texte jaune au milieu des 50 verts c'est pas facile
Pas de solution... On cherche surlignage ou non surlignage, mais c'est tout. Pareil en VBA.
Circé http://faqword.fr
a émis l'idée suivante :
Bonjour
Dans Word 2003 est-il possible de rechercher un texte surligné en jaune (mais pas ceux surlignés en vert)
Edition>rechercher>Plus>Format>Surlignage ne permet que de chercher un texte surligné (mais sans pouvoir préciser dans quelle couleur), donc pour retrouver mon texte jaune au milieu des 50 verts c'est pas facile
Quelqu'un a une solution ?
Sincèrement
Ed.
Bonjour,
Pas de solution... On cherche surlignage ou non surlignage, mais c'est
tout. Pareil en VBA.
Circé
http://faqword.fr
ed_lascow@yahoo.fr a émis l'idée suivante :
Bonjour
Dans Word 2003 est-il possible de rechercher un texte surligné en
jaune (mais pas ceux surlignés en vert)
Edition>rechercher>Plus>Format>Surlignage ne permet que de chercher un
texte surligné (mais sans pouvoir préciser dans quelle couleur), donc
pour retrouver mon texte jaune au milieu des 50 verts c'est pas facile
Pas de solution... On cherche surlignage ou non surlignage, mais c'est tout. Pareil en VBA.
Circé http://faqword.fr
a émis l'idée suivante :
Bonjour
Dans Word 2003 est-il possible de rechercher un texte surligné en jaune (mais pas ceux surlignés en vert)
Edition>rechercher>Plus>Format>Surlignage ne permet que de chercher un texte surligné (mais sans pouvoir préciser dans quelle couleur), donc pour retrouver mon texte jaune au milieu des 50 verts c'est pas facile
Quelqu'un a une solution ?
Sincèrement
Ed.
Geo
Bonjour Circé
[Réponse faite sur le forum public Word : news://msnews.microsoft.com/microsoft.public.fr.word ]
Pas de solution... On cherche surlignage ou non surlignage, mais c'est tout. Pareil en VBA.
On devrait quand même pouvoir bricoler en vba une fonction de recherche améliorée. Tout dépend de ce qu'on veut faire.
-- A+
Bonjour Circé
[Réponse faite sur le forum public Word :
news://msnews.microsoft.com/microsoft.public.fr.word ]
Pas de solution... On cherche surlignage ou non surlignage, mais c'est tout. Pareil en
VBA.
On devrait quand même pouvoir bricoler en vba une fonction de recherche
améliorée.
Tout dépend de ce qu'on veut faire.
[Réponse faite sur le forum public Word : news://msnews.microsoft.com/microsoft.public.fr.word ]
Pas de solution... On cherche surlignage ou non surlignage, mais c'est tout. Pareil en VBA.
On devrait quand même pouvoir bricoler en vba une fonction de recherche améliorée. Tout dépend de ce qu'on veut faire.
-- A+
heureux-oli
Salut,
On peut faire une recherche en VBA sur la couleur utilisée pour le surlignage.
Sub Surligne() Dim wd For Each wd In ActiveDocument.Words wd.Select If Selection.Range.HighlightColorIndex = wdYellow Then MsgBox "Ok" & Selection.Range.Text Next wd
End Sub
L'exemple le fait sur chaque mot, mais on peut utilser d'autres objets
-- Heureux-oli Si rien n'est mentionné pour le code, c'est que j'en suis l'auteur. http://heureuxoli.developpez.com/ http://word.developpez.com/
[Réponse faite sur le forum public Word : news://msnews.microsoft.com/microsoft.public.fr.word ]
Pas de solution... On cherche surlignage ou non surlignage, mais c'est tout. Pareil en VBA.
On devrait quand même pouvoir bricoler en vba une fonction de recherche améliorée. Tout dépend de ce qu'on veut faire.
-- A+
Salut,
On peut faire une recherche en VBA sur la couleur utilisée pour le
surlignage.
Sub Surligne()
Dim wd
For Each wd In ActiveDocument.Words
wd.Select
If Selection.Range.HighlightColorIndex = wdYellow Then MsgBox "Ok" &
Selection.Range.Text
Next wd
End Sub
L'exemple le fait sur chaque mot, mais on peut utilser d'autres objets
--
Heureux-oli
Si rien n'est mentionné pour le code, c'est que j'en suis l'auteur.
http://heureuxoli.developpez.com/
http://word.developpez.com/
On peut faire une recherche en VBA sur la couleur utilisée pour le surlignage.
Sub Surligne() Dim wd For Each wd In ActiveDocument.Words wd.Select If Selection.Range.HighlightColorIndex = wdYellow Then MsgBox "Ok" & Selection.Range.Text Next wd
End Sub
L'exemple le fait sur chaque mot, mais on peut utilser d'autres objets
-- Heureux-oli Si rien n'est mentionné pour le code, c'est que j'en suis l'auteur. http://heureuxoli.developpez.com/ http://word.developpez.com/
[Réponse faite sur le forum public Word : news://msnews.microsoft.com/microsoft.public.fr.word ]
Pas de solution... On cherche surlignage ou non surlignage, mais c'est tout. Pareil en VBA.
On devrait quand même pouvoir bricoler en vba une fonction de recherche améliorée. Tout dépend de ce qu'on veut faire.
-- A+
Circé
Bonsoir,
Au temps pour moi, je ne connaissais pas la propriété HighlighColorIndex ! Merci pour l'info. Je vais ajouter cela dans la faq.
Circé http://faqword.fr
heureux-oli a utilisé son clavier pour écrire :
Salut,
On peut faire une recherche en VBA sur la couleur utilisée pour le surlignage.
Sub Surligne() Dim wd For Each wd In ActiveDocument.Words wd.Select If Selection.Range.HighlightColorIndex = wdYellow Then MsgBox "Ok" & Selection.Range.Text Next wd
End Sub
L'exemple le fait sur chaque mot, mais on peut utilser d'autres objets
-- Heureux-oli Si rien n'est mentionné pour le code, c'est que j'en suis l'auteur. http://heureuxoli.developpez.com/ http://word.developpez.com/
[Réponse faite sur le forum public Word : news://msnews.microsoft.com/microsoft.public.fr.word ]
Pas de solution... On cherche surlignage ou non surlignage, mais c'est tout. Pareil en VBA.
On devrait quand même pouvoir bricoler en vba une fonction de recherche améliorée. Tout dépend de ce qu'on veut faire.
-- A+
Bonsoir,
Au temps pour moi, je ne connaissais pas la propriété
HighlighColorIndex !
Merci pour l'info. Je vais ajouter cela dans la faq.
Circé
http://faqword.fr
heureux-oli a utilisé son clavier pour écrire :
Salut,
On peut faire une recherche en VBA sur la couleur utilisée pour le
surlignage.
Sub Surligne()
Dim wd
For Each wd In ActiveDocument.Words
wd.Select
If Selection.Range.HighlightColorIndex = wdYellow Then MsgBox "Ok" &
Selection.Range.Text
Next wd
End Sub
L'exemple le fait sur chaque mot, mais on peut utilser d'autres objets
--
Heureux-oli
Si rien n'est mentionné pour le code, c'est que j'en suis l'auteur.
http://heureuxoli.developpez.com/
http://word.developpez.com/
Au temps pour moi, je ne connaissais pas la propriété HighlighColorIndex ! Merci pour l'info. Je vais ajouter cela dans la faq.
Circé http://faqword.fr
heureux-oli a utilisé son clavier pour écrire :
Salut,
On peut faire une recherche en VBA sur la couleur utilisée pour le surlignage.
Sub Surligne() Dim wd For Each wd In ActiveDocument.Words wd.Select If Selection.Range.HighlightColorIndex = wdYellow Then MsgBox "Ok" & Selection.Range.Text Next wd
End Sub
L'exemple le fait sur chaque mot, mais on peut utilser d'autres objets
-- Heureux-oli Si rien n'est mentionné pour le code, c'est que j'en suis l'auteur. http://heureuxoli.developpez.com/ http://word.developpez.com/
Au temps pour moi, je ne connaissais pas la propriété HighlighColorIndex ! Merci pour l'info. Je vais ajouter cela dans la faq.
Circé http://faqword.fr
heureux-oli a utilisé son clavier pour écrire :
Salut,
On peut faire une recherche en VBA sur la couleur utilisée pour le surlignage.
Sub Surligne() Dim wd For Each wd In ActiveDocument.Words wd.Select If Selection.Range.HighlightColorIndex = wdYellow Then MsgBox "Ok" & Selection.Range.Text Next wd
End Sub
L'exemple le fait sur chaque mot, mais on peut utilser d'autres objets
-- Heureux-oli Si rien n'est mentionné pour le code, c'est que j'en suis l'auteur. http://heureuxoli.developpez.com/ http://word.developpez.com/
"Circé" <circe@aea.gr> a écrit dans le message de news:
uTMcujGuJHA.2596@TK2MSFTNGP02.phx.gbl...
Bonsoir,
Au temps pour moi, je ne connaissais pas la propriété HighlighColorIndex !
Merci pour l'info. Je vais ajouter cela dans la faq.
Circé
http://faqword.fr
heureux-oli a utilisé son clavier pour écrire :
Salut,
On peut faire une recherche en VBA sur la couleur utilisée pour le
surlignage.
Sub Surligne()
Dim wd
For Each wd In ActiveDocument.Words
wd.Select
If Selection.Range.HighlightColorIndex = wdYellow Then MsgBox "Ok" &
Selection.Range.Text
Next wd
End Sub
L'exemple le fait sur chaque mot, mais on peut utilser d'autres objets
--
Heureux-oli
Si rien n'est mentionné pour le code, c'est que j'en suis l'auteur.
http://heureuxoli.developpez.com/
http://word.developpez.com/
Au temps pour moi, je ne connaissais pas la propriété HighlighColorIndex ! Merci pour l'info. Je vais ajouter cela dans la faq.
Circé http://faqword.fr
heureux-oli a utilisé son clavier pour écrire :
Salut,
On peut faire une recherche en VBA sur la couleur utilisée pour le surlignage.
Sub Surligne() Dim wd For Each wd In ActiveDocument.Words wd.Select If Selection.Range.HighlightColorIndex = wdYellow Then MsgBox "Ok" & Selection.Range.Text Next wd
End Sub
L'exemple le fait sur chaque mot, mais on peut utilser d'autres objets
-- Heureux-oli Si rien n'est mentionné pour le code, c'est que j'en suis l'auteur. http://heureuxoli.developpez.com/ http://word.developpez.com/
[Réponse faite sur le forum public Word : news://msnews.microsoft.com/microsoft.public.fr.word ]
Pas de solution... On cherche surlignage ou non surlignage, mais c'est tout. Pareil en VBA.
On devrait quand même pouvoir bricoler en vba une fonction de recherche améliorée. Tout dépend de ce qu'on veut faire.
-- A+
Geo
Bonjour
[Réponse faite sur le forum public Word : news://msnews.microsoft.com/microsoft.public.fr.word ]
L'exemple le fait sur chaque mot, mais on peut utilser d'autres objets
Bien d'accord, mais ce n'est pas un recherche à proprement parler. Il faudrait faire une boucle de recherche sur du texte surligné et, une fois trouvé, compléter par un test sur la couleur du surlignage. Je me demandais aussi si on ne pourrait pas utiliser le pique-notes cher à Anacoluthe, mais je ne trouve rien dans l'aide.
-- A+
Bonjour
[Réponse faite sur le forum public Word :
news://msnews.microsoft.com/microsoft.public.fr.word ]
L'exemple le fait sur chaque mot, mais on peut utilser d'autres objets
Bien d'accord, mais ce n'est pas un recherche à proprement parler.
Il faudrait faire une boucle de recherche sur du texte surligné et, une
fois trouvé, compléter par un test sur la couleur du surlignage.
Je me demandais aussi si on ne pourrait pas utiliser le pique-notes
cher à Anacoluthe, mais je ne trouve rien dans l'aide.
[Réponse faite sur le forum public Word : news://msnews.microsoft.com/microsoft.public.fr.word ]
L'exemple le fait sur chaque mot, mais on peut utilser d'autres objets
Bien d'accord, mais ce n'est pas un recherche à proprement parler. Il faudrait faire une boucle de recherche sur du texte surligné et, une fois trouvé, compléter par un test sur la couleur du surlignage. Je me demandais aussi si on ne pourrait pas utiliser le pique-notes cher à Anacoluthe, mais je ne trouve rien dans l'aide.
-- A+
heureux-oli
salut Geo,
Ce n'est pas une vraie recherche, c'est juste une boucle avec un critère. J'avais rien d'autre.
-- Heureux-oli Si rien n'est mentionné pour le code, c'est que j'en suis l'auteur. http://heureuxoli.developpez.com/ http://word.developpez.com/
[Réponse faite sur le forum public Word : news://msnews.microsoft.com/microsoft.public.fr.word ]
L'exemple le fait sur chaque mot, mais on peut utilser d'autres objets
Bien d'accord, mais ce n'est pas un recherche à proprement parler. Il faudrait faire une boucle de recherche sur du texte surligné et, une fois trouvé, compléter par un test sur la couleur du surlignage. Je me demandais aussi si on ne pourrait pas utiliser le pique-notes cher à Anacoluthe, mais je ne trouve rien dans l'aide.
-- A+
salut Geo,
Ce n'est pas une vraie recherche, c'est juste une boucle avec un critère.
J'avais rien d'autre.
--
Heureux-oli
Si rien n'est mentionné pour le code, c'est que j'en suis l'auteur.
http://heureuxoli.developpez.com/
http://word.developpez.com/
"Geo" <Geo@sans.pub> a écrit dans le message de news:
mn.44707d941d172ff9.41568@sans.pub...
Bonjour
[Réponse faite sur le forum public Word :
news://msnews.microsoft.com/microsoft.public.fr.word ]
L'exemple le fait sur chaque mot, mais on peut utilser d'autres objets
Bien d'accord, mais ce n'est pas un recherche à proprement parler.
Il faudrait faire une boucle de recherche sur du texte surligné et, une
fois trouvé, compléter par un test sur la couleur du surlignage.
Je me demandais aussi si on ne pourrait pas utiliser le pique-notes cher à
Anacoluthe, mais je ne trouve rien dans l'aide.
[Réponse faite sur le forum public Word : news://msnews.microsoft.com/microsoft.public.fr.word ]
L'exemple le fait sur chaque mot, mais on peut utilser d'autres objets
Bien d'accord, mais ce n'est pas un recherche à proprement parler. Il faudrait faire une boucle de recherche sur du texte surligné et, une fois trouvé, compléter par un test sur la couleur du surlignage. Je me demandais aussi si on ne pourrait pas utiliser le pique-notes cher à Anacoluthe, mais je ne trouve rien dans l'aide.
-- A+
CAP2
Bonjour à tous,
un petit code TRES artisanal, mais qui peut peut-être faire avancer le schmilblick.
Testé avec un surlignage jaune, il met en surbrillance le texte concerné par ce surlignage :
Sub Macro1() Dim wd Dim deb
For Each wd In ActiveDocument.Words
wd.Select
If Selection.Range.HighlightColorIndex = wdYellow Then
deb = Selection.Range.Start
Do Selection.MoveRight unit:=wdWord, Extend:=wdMove
Loop While Selection.Range.HighlightColorIndex = wdYellow
Do Until Selection.Range.Start = deb
Selection.MoveLeft unit:=wdWord, Extend:=wdExtend
Loop
Exit Sub
End If
Next
End Sub
Ca simule un peu la recherche dans ce sens où la selection se place sur le texte dont le surlignage est jaune, mais bon, on peut sans doute faire plus propre
;o))
CAP2
Bonjour à tous,
un petit code TRES artisanal, mais qui peut peut-être faire avancer le
schmilblick.
Testé avec un surlignage jaune, il met en surbrillance le texte concerné par
ce surlignage :
Sub Macro1()
Dim wd
Dim deb
For Each wd In ActiveDocument.Words
wd.Select
If Selection.Range.HighlightColorIndex = wdYellow Then
deb = Selection.Range.Start
Do
Selection.MoveRight unit:=wdWord, Extend:=wdMove
Loop While Selection.Range.HighlightColorIndex = wdYellow
Do Until Selection.Range.Start = deb
Selection.MoveLeft unit:=wdWord, Extend:=wdExtend
Loop
Exit Sub
End If
Next
End Sub
Ca simule un peu la recherche dans ce sens où la selection se place sur le
texte dont le surlignage est jaune, mais bon, on peut sans doute faire plus
propre
un petit code TRES artisanal, mais qui peut peut-être faire avancer le schmilblick.
Testé avec un surlignage jaune, il met en surbrillance le texte concerné par ce surlignage :
Sub Macro1() Dim wd Dim deb
For Each wd In ActiveDocument.Words
wd.Select
If Selection.Range.HighlightColorIndex = wdYellow Then
deb = Selection.Range.Start
Do Selection.MoveRight unit:=wdWord, Extend:=wdMove
Loop While Selection.Range.HighlightColorIndex = wdYellow
Do Until Selection.Range.Start = deb
Selection.MoveLeft unit:=wdWord, Extend:=wdExtend
Loop
Exit Sub
End If
Next
End Sub
Ca simule un peu la recherche dans ce sens où la selection se place sur le texte dont le surlignage est jaune, mais bon, on peut sans doute faire plus propre
;o))
CAP2
Geo
Bonjour
un petit code TRES artisanal, mais qui peut peut-être faire avancer le schmilblick.
Vu que l'auteur a l'air de se désintéresser du sujet, on restera sur un cas d'école en effet.
-- A+
Bonjour
un petit code TRES artisanal, mais qui peut peut-être faire avancer le schmilblick.
Vu que l'auteur a l'air de se désintéresser du sujet, on restera sur un
cas d'école en effet.