Bonjour.
J'utilise la méthode Add appliquée à la collection Tables d'un objet Word.Document comme suit :
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 :
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)
Par exemple ceci :
...donne :
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
Pièce jointe 651962
Si vous vous questionnez sur certains éléments du code, sachez que je pilote Word depuis Access. J'avais dans un premier temps posté la question sur le forum Access VBA…
Pouvez vous m'aider s'il vous plaît ?
Merci
Partager