Tabeller i Word

Jeg er ved at skrive en vb-makro til SPSS (statistik-program). Jeg kan fint åbne word med min kode og skrive indholdet fra SPSS-tabellerne til det ny-oprettede worddokument, men jeg vil gerne organisere indholdet i nogle tabeller. Men hvis jeg forsøger at oprette en tabel med nedenstående kode - så får jeg en fejl.

Set objRange = WordApp.Range
WordApp.Selection.Tables.Add(Range:=objRange, NumRows:=3, NumColumns:=4)

Hele koden til mit project er som følger:

Sub Main
On Error GoTo Oopps
Set Wordapp=GetObject(,"Word.Application")

WordApp.Documents.Add("K:\Kontoret\Referencedatabase\test.doc")

' Declare variables and get the designated output items object:
Dim objOutputDcc As ISpssOutputDoc
Dim objOutputItems As ISpssItems
Set objOutputDoc = objSpssApp.GetDesignatedOutputDoc
Set objOutputItems = objOutputDoc.Items

' Read the number of items and get the first pivot table
Dim objOutputItem As ISpssItem
Dim objPivotTable As PivotTable
Dim objRowLabels As ISpssLabels

Dim intCount As Integer, I As Integer
Dim objDataCells As ISpssDataCells
Dim lngNumRows As Long
Dim lngNumColumns As Long

'Set objRange = WordApp.Range
'WordApp.Selection.Tables.Add(Range:=objRange, NumRows:=3, NumColumns:=4)

intCount = objOutputItems.Count

For I = 0 To intCount - 1
    Set objOutputItem = objOutputItems.GetItem (I)

    If objOutputItem.SPSSType = SPSSPivot Then
    Set objPivotTable = objOutputItem.Activate()
    Set objRowLabels = objPivotTable.RowLabelArray
    Set objDataCells = objPivotTable.DataCellArray

    intCol = objDataCells.NumColumns
    intRow = objDataCells.NumRows

    WordApp.Visible = True
    WordApp.Selection.TypeText("Tabel: " & I)
    WordApp.Selection.TypeParagraph()

        For intC = 0 To intCol - 1
        For intR = 0 To intRow - 1
            tekst=objDataCells.ValueAt(intR,intC)
              WordApp.Selection.TypeText("Content:" & tekst & vbLf)
        Next
        Next
    End If

Next


Oopps:
Debug.Print "error " & Err & ": " & Err.Description & ""

End Sub