Discussion :

[Carabistouilleur]

Bonjour.
J'utilise la méthode Add appliquée à la collection Tables d'un objet Word.Document comme suit :

Code :

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

1
2
3
4
5
6
7
8
9
10
Dim oWordDocTempWordImages      As Word.Document
Dim oTable                      As Word.Table
 
Set oWordDocTempWordImages = oWordApp.Documents.Open(sCheminCour & "TemplateWordImages" & EXT_WORD, , False) 
 
...
 
'Boucle ajout et enrichissement de plusieurs tableaux dans oWordDocTempWordImages
 
Set oTable = oWordDocTempWordImages.Tables.Add(oRangeWord, NumRows:=2, NumColumns:=2)

Mon problème concerne l'intanciation de l'objet oRangeWord De manière à ce que les tableaux ne soient pas imbriqués mais insérés avec un pas de décalage :
Par exemple ceci :

Code :

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

1
2
3
4
5
6
Set oRangeWord = oWordDocTempWordImages.Range(oWordDocTempWordImages.Paragraphs(iParagrapheW).Range.Start, oWordDocTempWordImages.Paragraphs(iParagrapheW).Range.End)
 
...
 
 
iParagrapheW=iParagrapheW+1

...donne :



Pouvez vous m'aider s'il vous plaît ?
Merci