Insérer un tableau à une position précise dans un document word.

Salut à tous,

Pour les besoins de mon application j'ai besoin de compléter un document Word, j'ai besoin d'insérer des champs, des photos et des tableaux à des positions précises.

Pour insérer un champ texte à un endroit précis, j'utilise le remplacement de texte dans les signets avec ce code :

Code:

---

1 2 3 4 5 6 7

Dim oW As Object oW = CreateObject("Word.Application") oW.Visible = True oW.Documents.Open("xxx.doc", ReadOnly:=False)   oW.Application.ActiveDocument.FormFields("Texte2").Result() = "test"

---

Pour les tableaux j'utilise ce code qui ajoute un tableau au début du document :

Code:

---

1 2 3 4 5 6 7

Dim objTable As Table objTable = oW.Application.ActiveDocument.Tables.Add(Range:=oW.ActiveDocument.Range(0, 0), NumRows:=5, NumColumns:=3) Dim cmpt As Long For cmpt = 1 To objTable.Rows.Count objTable.Cell(cmpt, 2).Range.Text = "montext" & cmpt Next cmpt

---

Le problème c'est que j'aimerais pouvoir ajouter ce tableau à une position précise dans mon document Word, est il possible d'utiliser le remplacement de signet ou d'utiliser un espèce de pointeur ? Ou une autre astuce ?

Merci d'avance !

Enfin trouvé :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

oW.ActiveDocument.Bookmarks("Texte2").Range.Select() oW.Selection.MoveDown()   Dim objTable As Table Dim rg As Range = oW.Selection.Range() objTable = oW.Application.ActiveDocument.Tables.Add(Range:=rg, NumRows:=5, NumColumns:=3) Dim cmpt As Long For cmpt = 1 To objTable.Rows.Count objTable.Cell(cmpt, 2).Range.Text = "montext" & cmpt Next cmpt

---