How can I save a Range in Excel to a Word File?

[Denbor]

I have a Range of cells in Excel that I wish to past into a Word file
so that I can make Labels with the Data.

This is what I have done so far but the commented Line doesn't work

Public Sub Label_maker()

Dim lrow As Range
Dim rc As Integer
Dim ar As Integer
Dim WdApp As Object

Set lrow = Sheet1.Range("A" & Rows.Count).End(xlUp)

lrow.Activate
ar = ActiveCell.row

Range(Cells(4, "a"), Cells(ar, "d")).Copy



'Set WdApp = C:\Documents and Settings\Owner\My Documents\Word\data.doc
<=== I know this is wrong but how do I do it? If I can get the info
into Word I know how to do a Merge, et.

Any Help would be greatly appreciated..

End Sub

Denbor

 

[Guest]

Can't you just use the excel data source for the data in word?
Therefore you don't need to paste into word?