adding rows into word document

Use Word's builtin importfacilities.

Sub snb()
  with getobject("E:\OF\import.doc")
    .Content.InsertFile "E:\OF\adressen 001.xls", "A1:K20"
    .save
  end with
end sub

You can also link an Excel file to a Word document so that it will be updated automatically.


If the Word document doesn't exist already:

  With CreateObject("Word.document")
    .Content.InsertFile "E:\OF\adressen 001.xls", "A1:K20"
    .SaveAs "E:\OF\import 001.doc"
    .Close
  End With