VBA : Copying Excel into a word table

  • i have a two column word table template and would like to paste excel data into column 2.
    So far i have
    Sub Paste_word()
    Set wrd = GetObject(, "Word.Application"):

    With wrd:
    With .Selection

    Set MyRange = .Goto(wdGoToField, wdGoToPrevious)
    .MoveDown Count:=6
    .MoveRight Unit:=wdCell
    .PasteExcelTable False, False, False
    End With
    End With

    End Sub

    When i get to the .MoveRight Unit:=wdCell line i get a 4120 Bad Parameter error.

    I can run this code in Word correctly but not in excel.

    Could you please advise how i can get excel to change into the second column of my word table?

Participate now!

Don’t have an account yet? Register yourself now and be a part of our community!