dessiner un tableau dans WORD? [Résolu]

[sali]

Je voudrais savoir comment dessiner un tableau dans un document Word et le remplir :
Merci à tous
@+Sali

[argyronet]

Bonjour,

Dans le menu tableau, tu choisi Insérer/Tableau et tu définis lignes et colonnes
Non !!!
Ben démarre une macro et fait idem, tu auras le code.
Allez, courage.

Argy

[Xo]

Voici un bout de code assez complet (testé en VB 6/Word 2000) :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
 
Set Doc = CreateObject("Word.Application")
Doc.Application.WindowState = 2 '(pour voir ce qui se passe en pas à pas)
 
Set MyRange = ActiveDocument.Content
MyRange.Collapse Direction:=wdCollapseEnd
ActiveDocument.Tables.Add Range:=MyRange, NumRows:=10, NumColumns:=5
 
'Remplissage avec du texte :
ActiveDocument.Tables(1).Cell(Row:=1, Column:=1).Range.InsertAfter Text:="En-tête 1"
...
ActiveDocument.Tables(1).Cell(Row:=1, Column:=5).Range.InsertAfter Text:="En-tête 5"
 
'Mise en forme :
ActiveDocument.Tables(1).Cell(Row:=1, Column:=1).Range.Font.Italic = True
ActiveDocument.Tables(1).Cell(Row:=1, Column:=1).Range.Font.Bold = True
ActiveDocument.Tables(1).Cell(Row:=1, Column:=1).Range.Font.Underline = False
ActiveDocument.Tables(1).Cell(Row:=1, Column:=1).Range.Font.Color = wdColorWhite
ActiveDocument.Tables(1).Cell(Row:=1, Column:=1).Range.Font.Name = "Arial"
ActiveDocument.Tables(1).Cell(Row:=1, Column:=1).Range.Font.Size = 11
ActiveDocument.Tables(1).Cell(Row:=1, Column:=1).Range.Shading.BackgroundPatternColorIndex = wdGray50 'grisé
 
'Taille des cellules
ActiveDocument.Tables(1).Cell(, 1).Width = InchesToPoints(2.5)
ActiveDocument.Tables(1).Cell(, 1).Height = InchesToPoints(0.1)