Discussion :

[domseeker]

Bonjour,

J'ai un document Word qui peut contenir plusieurs tableaux. Lorsque le contenu est d'une certaine couleur (rouge foncé par exemple, je souhaiterai que le tableau soit masqué.
Voici ce que j'ai fait. N'y a-til pas une manière plus rapide pour obtenir le meme résultat.
Merci d'avance de vos réponses et bonnes fêtes

Code :

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

1
2
3
4
5
6
7
8
9
 
ntabl = ActiveDocument.Tables.Count    'count number of tables in document
 If ntabl >= 1 Then                          ' check occurence of table
    For Each tblOne In ActiveDocument.Tables
        If tblOne.Cell(1, 1).Range.Font.Color = wdColorDarkRed Then  ' if the font of the first cell is font is darkred (CDS info only)
         tblOne.Range.Font.Hidden = True          '... the table will be hidden
        End If
    Next
  End If

[Heureux-oli]

Bonjour et bienvenue sur les forums Office de DVP.

Je ne vois pas d'autre solution.
Hidden est la seule que je connaisse.
Tu peux l'appliquer à une section, mais ça ne va pas alléger ton code.

[domseeker]

Bonjour,

OK Merci pour ta réponse. Je me permets une autre question. Quand j'utilisais comme condition

Code :

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

 tblOne.Range.Font.Color = wdColorDarkRed

certains tableaux n'étaient pas reconnus. La police était bien la bonne, les lignes étaient reconnues, mais pas le tableau. Sais-tu pourquoi ? Merci

Code :

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

1
2
3
4
5
6
7
8
9
 
ntabl = ActiveDocument.Tables.Count    'count number of tables in document
 If ntabl >= 1 Then                          ' check occurence of table
    For Each tblOne In ActiveDocument.Tables
        If tblOne.Cell(1, 1).Range.Font.Color = wdColorDarkRed Then  ' if the font of the first cell is font is darkred (CDS info only)
         tblOne.Range.Font.Hidden = True          '... the table will be hidden
        End If
    Next
  End If

[Heureux-oli]

Salut,

Tu fais un contrôle sur le contenu de la cellule et pas simplement sur le texte qu'elle contient.

Une cellule contient d'autres choses que du texte.
Pour t'en convaincre, fais un Len sur tblOne.Cell(1, 1).Range.Text.

Il est possible que seul le mot soit coloré et pas la cellule.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Dim wdWord
 
 
For Each oTbl In ActiveDocument.Tables
    oTbl.Cell(1, 1).Select
    For Each wdWord In Selection.Words
        If wdWord.Font.Color = wdColorRed Then Debug.Print "ok"
    Next wdWord
 
    'Debug.Print oTbl.Cell(1, 1).Range.Font.Color
Next oTbl

Peut-être une piste ?

[domseeker]

Merci de ton aide.

[Heureux-oli]

Tu ne nous dit pas si ça te convient comme solution ?

[domseeker]

Le premier code:

Code :

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

 tblOne.Cell(1, 1).Range.Font.Color = wdColorDarkRed

me convenait. En tout cas ca marche!
Mais je ne comprends pas pourquoi le deuxième

Code :

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

tblOne.Range.Font.Color = wdColorDarkRed

fonctionne... parfois.

je comprends qu'il puisse y avoir d'autre chose que du texte dans une cellule ou un tableau... Mais je n'ai pas trouvé ce qui fait la différence de contenu. Le test avec la fonction Len, ne retrouve que les caractères Chr (13) Chr(17).
Mes neurones sont surchauffés...Merci de ton éclairage..

[Heureux-oli]

Salut,

Si tu fais un test avec un cellule contenant 1 caractère, tu reçois 3, il pourrais arriver que ces deux caractères supplémentaires ne soient pas de la même couleur et dans ce cas, la valeur de la cellule en ce qui concerne la couleur n'est plus la même.

[domseeker]

Bonjour et bonne année,
Je pense avoir compris.
Quand les tableaux ont soit plusieurs lignes, soit trop de paragraphes, le code couleur retourné est "9999999" (indéterminé), même si la couleur est correcte pour chaque cellule et chaque ligne.
Il vaut mieux donc demander les propriétés de la première cellule.
Merci à tous