Indsætte tabel i Word?

Hej folkens

Jeg har ledt overalt efter en metode, hvormed jeg kan indsætte en tabel et bestemt sted i Word - stedet er defineret som et word.range (woRng As Word.Range), men kunne måske erstattes med et bogmærke - men har ikke kunnet finde et eksempel, der gjorde brug af dette.

Det tætteste jeg er kommet på en løsning er nedenstående kode:

-------------------------------------------------------------------------------------
Sub ScratchMacro()
Dim y As Single
Dim oTbl As Word.Table
Dim oRng As Word.Range
Dim i As Long
'Loop 10 times
For i = 1 To 10
'Set range to TableIP range
Set oRng = ActiveDocument.Bookmarks("TableIP").Range
'Move the range up one paragraph so you don't interfere with the bookmark
oRng.Move wdParagraph, -1
'Select the range
oRng.Select
'find the vertical poistion of the selection in points
y = Selection.Information(wdVerticalPositionRelativeToPage)
'evaluate that postion and proceed accordingly
If y / 72 < 8 Then 'The less than value would depend on how many rows you
expect your table will have
'Add a paragraph to prevent tables from being connected together.
oRng.InsertBefore vbCr
add the table.
Set oTbl = ActiveDocument.Tables.Add(Selection.Range, 2, 5)
With oTbl
'Do your deed
End With
Else
oRng.InsertBefore vbCr
Selection.InsertBreak Type:=wdPageBreak
Set oTbl = ActiveDocument.Tables.Add(Selection.Range, 2, 5)
With oTbl
'Do your deed
End With
End If
Next i
End Sub
-------------------------------------------------------------------------------------

Problemet med koden er dog bare, at den opretter en ny tabel hver gang. Jeg har en variabel (tbl As Table), som indeholder en eksisterende tabel, som jeg skal have indsat. Det ville være skønt, hvis det havde været lige så let som at skrive:

woRng.InsertBefore tbl

Nogen der ved hvordan, jeg kan gøre det?