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

Le
Quetzalcoatl
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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Geo
Le #1734719

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+

Quetzalcoatl
Le #1734714
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"
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


Circé
Le #1734711
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"
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




Quetzalcoatl
Le #1734710
C'est pas Dieu possib' !

"Circé"
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 !!!!


Geo
Le #1734707

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+

Circé
Le #1734704
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 !!!


Publicité
Poster une réponse
Anonyme