Précédent   Forum des professionnels en informatique > Logiciels > Microsoft Office > Word > VBA Word
Partagez cette discussion sur d'autres réseaux sociaux : Viadeo Twitter Google Facebook Digg Delicious MySpace Yahoo
Réponse Proposer ce sujet en actualité
 
Outils de la discussion
Publicité
'
Vieux 02/06/2006, 12h19   #1
Nouveau Membre du Club
 
Inscription : juin 2005
Messages : 177
Détails du profil
Informations forums :
Inscription : juin 2005
Messages : 177
Points : 29
Points : 29
Par défaut [VBA-W] et tableaux

Bonjour,

via automation j'essaie de trouver sur un document word :
- le nombre de tableaux qui se trouve dans ce document
- et le nombre de colonnes pour chacun de ces tableaux

Quelqu'un connaîtrait-il les commandes nécessaires ?

D'avance merci
sat478 est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 02/06/2006, 12h25   #2
Membre habitué
 
Inscription : avril 2005
Messages : 137
Détails du profil
Informations forums :
Inscription : avril 2005
Messages : 137
Points : 113
Points : 113
J'ai ce code:
Code :
1
2
3
4
5
6
7
Private Sub CommandButton1_Click()
Dim Tbl As Word.Table
MsgBox ActiveDocument.Tables.Count
For Each Tbl In ActiveDocument.Tables
    MsgBox Tbl.Columns.Count
Next
End Sub
Je l'ai testé juste sur un tableau alors faut voir si ça marche dans ton cas
linda15975 est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 02/06/2006, 16h10   #3
Nouveau Membre du Club
 
Inscription : juin 2005
Messages : 177
Détails du profil
Informations forums :
Inscription : juin 2005
Messages : 177
Points : 29
Points : 29
ça marche parfaitement pour mon cas

en mettant dans des variables les valeurs des count, cela me permet ensuite de faire des boucles FOR... NEXT... qui me permettent d'automatiser un certain nombre d'actions quel que soit le nombre de tableaux

merci
sat478 est déconnecté   Envoyer un message privé Réponse avec citation 00
Réponse Proposer ce sujet en actualité Cette discussion est résolue.
Outils de la discussion



Fuseau horaire GMT +2. Il est actuellement 15h51.


 
 
 
 
Partenaires

Hébergement Web