creer un tableau a partir des caractères

[dianbobo]

bonjour tout le monde ,


j'ai un texte en word 2007 , qui contient une coloration bleue sur certains mots et une coloration rouge sur d'autres mots ,
je voudrais créer un tableau dynamique qui consiste à extraire les mots en bleus d'une par et les mots en rouge d'autre par

puis un tableau qui copie les ces mots pour le même travail .

merci de votre aide ,

[Heureux-oli]

Salut,

je voudrais créer un tableau dynamique qui consiste à extraire les mots en bleus d'une par et les mots en rouge d'autre par

puis un tableau qui copie les ces mots pour le même travail .

J'ai pas bien compris ce passage ?

[dianbobo]

ok , je m explique :
j'ai un fichier word , qui contient du texte écris noir sur blanc .
dans ce texte il y a des mots coloriés en bleus et d'autres en rouge,
je voudrai donc automatiquement creer un tableau qui me ressence tous ces mots en bleus d'une part et ceux en rouge d'autre part .

merci de votre aide

[Heureux-oli]

Salut,

Deux options, une recherche en fonction de la couleur.

Autre solution, un boucle sur tous les mots du document et une intervention en fonction de la couleur.

Un exemple :

Code :

1
2
3
4
5
6
7
8
9
10
11
Sub olivier0025()
Dim myWd
 
For Each myWd In ActiveDocument.Paragraphs(1).Range.Words
 
    If myWd.Font.Color = -738131969 Then MsgBox myWd
 
Next myWd
 
 
End Sub