Overført data i et array (fra Excel) til Word

Jeg har lavet en makro, der overfører et array til Word. Array’et er oprettet i Excel.

Dataene der overføres skal i Word  opstilles ved hjælp af tabulatorer. Og her går det så galt. Den kode jeg har lavet giver følgende fejlmeddelelse:

”Run-time error ’438’

Object doesn’t support this property or method”

Linien der giver fejl er:
Selection.TypeParagraph.TabStops.Add Position:=CentimetersToPoints(2), Alignment:=wdAlignTabLeft


Hele koden er følgende:

Sub TilWord()

Dim SkatArray As Variant
Dim wrdApp As Word.Application
Dim wrdDoc As Word.Document
Dim x, y As Integer

' skriv range til array'et
Sheets("SAMBESKATNINGSINDKOMST").Select
SkatArray = Range("A2:M306")

' start Word og opret et dokument

    Set wrdApp = CreateObject("Word.Application")
    wrdApp.Visible = True
   
    Set wrdDoc = wrdApp.Documents.Add
    ActiveDocument.PageSetup.Orientation = wdOrientLandscape ' formatér dokumentet
    ActiveDocument.PageSetup.TopMargin = CentimetersToPoints(2)
    ActiveDocument.PageSetup.BottomMargin = CentimetersToPoints(2)
    ActiveDocument.PageSetup.LeftMargin = CentimetersToPoints(2)
    ActiveDocument.PageSetup.RightMargin = CentimetersToPoints(2)
   
    Selection.TypeParagraph.TabStops.Add Position:=CentimetersToPoints(2), Alignment:=wdAlignTabLeft
    Selection.TypeParagraph.TabStops.Add Position:=CentimetersToPoints(8), Alignment:=wdAlignTabRight
    Selection.TypeParagraph.TabStops.Add Position:=CentimetersToPoints(11), Alignment:=wdAlignTabRight
    Selection.TypeParagraph.TabStops.Add Position:=CentimetersToPoints(14), Alignment:=wdAlignTabRight
   
   
    x = 5
    With wrdDoc
    Do While SkatArray(x, 2) <> ""
    For y = 1 To 11 '11 kolonner
        .Content.InsertAfter "" & SkatArray(x, y)
       
    Next y
        .Content.InsertParagraphAfter
    x = x + 1
   
    Loop
   
     
    End With
   
End Sub

Er der nogen der har en løsning på problemet og evt. råd til den videre opbygning af koden?

Er mit problem ikke beskrevet godt nok må i lige sige til!