Appliquer un style différent à chaque cellule d'un tableau

Bonsoir,

Soit un fichier word 2000 contenant des tableaux et du texte.
Les tableaux ont tous la caractéristique suivante :
2 lignes, la première ligne possède 6 colonnes, la seconde ligne possède 1 colonne
(fusion).
J'ai besoin de parcourir le document et, pour chaque tableau, d'appliquer un style
différent selon la cellule.
Comment faire ?
Merci pour votre aide.
Cordialement

Une p'tit macro sans doute.
Les tableaux sont la collection Tables du document.
Pour les styles, faire le premier tableau à la main
et recopier les styles du premier tableau sur les autres.
Les cellules des tableaux s'adressent comme en Excel ligne et colonne.

Finalement c'est tout simple à faire :-D

Doit même y avoir un exemple tout fait à télécharger là :
http://www.microapp.com/livre_vba_office_2007_9245.html

--
A+

Ben voui, finalement, c'est tout simple à faire !
J'ai un peu adapté la macro que j'ai téléchargée sur le site que tu m'as indiqué.
Je la livre, ça peut intéresser quelqu'un :

For i = 1 To ActiveDocument.Tables.Count
ActiveDocument.Tables(i).Cell(1, 2).Range.Style = ActiveDocument.Styles("Style1")
ActiveDocument.Tables(i).Cell(1, 4).Range.Style = ActiveDocument.Styles("Style2")
ActiveDocument.Tables(i).Cell(1, 6).Range.Style = ActiveDocument.Styles("Style3")
ActiveDocument.Tables(i).Cell(2, 1).Range.Style = ActiveDocument.Styles("Style4")
Next i

"Geo" <Geo@sans.pub> a écrit dans le message de news: mn.65417d7bad30b38a.41568@sans.pub...

Une p'tit macro sans doute.
Les tableaux sont la collection Tables du document.
Pour les styles, faire le premier tableau à la main
et recopier les styles du premier tableau sur les autres.
Les cellules des tableaux s'adressent comme en Excel ligne et colonne.

Finalement c'est tout simple à faire :-D
Doit même y avoir un exemple tout fait à télécharger là :
http://www.microapp.com/livre_vba_office_2007_9245.html

Bonsoir,

Il se trouve que Quetzalcoatl a formulé :

Ben voui, finalement, c'est tout simple à faire !
J'ai un peu adapté la macro que j'ai téléchargée sur le site que tu m'as
indiqué.

Notons que cette macro a été écrite par Geo lui-même pour le livre
indiqué sur le site et dont il est le co-auteur !!!!

Ah... la modestie !!! :D))))

Circé
http://faqword.free.fr

Je la livre, ça peut intéresser quelqu'un :

For i = 1 To ActiveDocument.Tables.Count
ActiveDocument.Tables(i).Cell(1, 2).Range.Style =
ActiveDocument.Styles("Style1")
ActiveDocument.Tables(i).Cell(1, 4).Range.Style =
ActiveDocument.Styles("Style2")
ActiveDocument.Tables(i).Cell(1, 6).Range.Style =
ActiveDocument.Styles("Style3")
ActiveDocument.Tables(i).Cell(2, 1).Range.Style =
ActiveDocument.Styles("Style4")
Next i

"Geo" <Geo@sans.pub> a écrit dans le message de news:
mn.65417d7bad30b38a.41568@sans.pub...

Une p'tit macro sans doute.
Les tableaux sont la collection Tables du document.
Pour les styles, faire le premier tableau à la main
et recopier les styles du premier tableau sur les autres.
Les cellules des tableaux s'adressent comme en Excel ligne et colonne.

Finalement c'est tout simple à faire :-D
Doit même y avoir un exemple tout fait à télécharger là :
http://www.microapp.com/livre_vba_office_2007_9245.html

C'est pas Dieu possib' !

"Circé" <circe@aea.gr> a écrit dans le message de news: mn.680e7d7b56fd0753.54897@aea.gr...

Notons que cette macro a été écrite par Geo lui-même pour le livre indiqué sur le site et dont il est le co-auteur !!!!

Notons que cette macro a été écrite par Geo lui-même pour le livre indiqué sur le site
et dont il est le co-auteur !!!!

Ah c'est pour ça que ça me disait quelque chose !

--
A+

Le 13/11/2007, Geo a supposé :

Notons que cette macro a été écrite par Geo lui-même pour le livre indiqué
sur le site et dont il est le co-auteur !!!!

Ah c'est pour ça que ça me disait quelque chose !

Signé Geo !! mdr !!!