Van Excel naar Word kopieren als tekst

[basAwa]

Hallo,

Ik wil graag een range kopieren van Excel als tekst. Ik heb nu de volgende formule:

Sub XLRangeToDoc()
'copy range to table in word doc
'
Dim objWordApp As Object
Dim objWordDoc As Object
Dim rngData As Range


Set rngData = Range("A9:B12")

' create instance of word and open doc
Set objWordApp = CreateObject("Word.application")
objWordApp.Visible = True
'Set objWordDoc = objWordApp.Documents.Add
Set objWordDoc = objWordApp.Documents.Open("C:\My Documents\Test\Testen Offerte.docx")

' goto bookmark
'plaats een bladwijzer als je steeds naar dezelfde plaats
'wil kopieëren om de range te plakken
objWordDoc.Bookmarks("Samenstelling").Range.Select

' Copy xl range
rngData.Copy

' Paste the range
objWordApp.Selection.Paste


'objWordDoc.Save
'objWordDoc.Close
'objWordApp.Quit

Set objWordDoc = Nothing
Set objWordApp = Nothing
End Sub


Nu wordt alleen de tabel in zijn geheel gekopieerd ipv tekst.
Hoe kan ik dit oplossen?

Mvg,

Bas

 

[snb]

sub M_snb()
  sheet1.Range("A9:B12").copy

  with getobject("C:\My Documents\Test\Testen Offerte.docx")
     .windows(1).visible=true
     .paragraphs.last.range.paste
     .tables(1).converttotext 1
  end with
end sub