Kopiere celler til specifikt format i Word

Lige for at eksemplificere så ville de tre entries i excel filen resultere i følgende word fil:

Jakob  |  John  |    Peter
20    |  25    |    35
2100  |  3100  |    4100

Hvorfor ind i Word?
Hvordan forestiller dig flere hundrede kolonner i Word?
Skal data indsættes i en Tabel?

Kør denne makro fra Excel. Der skal være et tomt ark der hedder Ark2:

Public Sub Skift()
Aktivenavn = ActiveSheet.Name
Sheets("Ark2").Activate
Sheets("Ark2").Columns("A:C").Select
Selection.ClearContents
   
    With Selection.Borders()
        .LineStyle = xlNone
        .Weight = xlThin
        .ColorIndex = xlNone
    End With

Sheets(Aktivenavn).Select
Bund = Range("A65536").End(xlUp).Row
For I = 1 To Bund
N = N + 1
    For Z = 1 To 3
   
        For Y = 1 To 3
            RkArray = RkArray & Cells(I + Z - 1, Y)
            If Y < 3 And Cells(I + Z - 1, Y) <> "" Then
                RkArray = RkArray & Chr(10)
            End If
        Next
    Sheets("Ark2").Cells(N, Z) = RkArray
    RkArray = ""
    Next
    I = I + 2
Next
Sheets("Ark2").Select
Sheets("Ark2").Range("A1:C" & N).Select
   
    With Selection.Borders()
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
Selection.Copy
End Sub

Hej Akyhne

Mange tak for dit script! Det er lige i øjet.

Nu skal jeg så bare have lagt data ind i min template word fil. Så spørgsmålet er hvordan får jeg kopieret hver celle ind i min word fil, der består af en tabel med 3 kolonner og x antal rækker? Nogen anelse?

Mvh

Koden slutter med Selection.Copy, så du kan bare gå i Word og trykke Ctrl+V (Indsæt).

Er det ok, eller skal vi arbejde videre?

Skal vi afslutte?

Jeg siger mange tak for hjælpen!

Velbekomme :-)

Hej Akyhne! Kan du måske kigge på mit problem her: http://www.eksperten.dk/spm/814953
Det må være barnemad ift. dét her spm.