Paul,

Try this:

Sub CopyToWord()
'must have a reference to the word object library
Dim wdApp As Word.Application
Dim ws As Worksheet
Dim wdDoc As Word.Document
Set wdApp = CreateObject("Word.application")
Set wdDoc = wdApp.Documents.Add

For i = 1 To Names.Count
ActiveSheet.Range(Names(i)).Copy
wdDoc.Paragraphs(wdDoc.Paragraphs.Count) _
.Range.InsertParagraphAfter
wdDoc.Paragraphs(wdDoc.Paragraphs.Count) _
.Range.Paste
Next i

wdApp.ActiveDocument.Save
wdDoc.Close
Set wdDoc = Nothing
wdApp.Quit
Set wdApp = Nothing
End Sub

--
Dan


On Dec 17, 2:23 pm, "Paul W Smith" wrote:
I wish to paste a named range from Excel into a Word Document using VBA.
From Excel I have created a Word document as an object, but cannot
understand how to use any of the Word VBA code I have recorded.

In Excel I can easily reference the named range I require to insert, but how
I utilise this to paste it into the Word document I have created has me
scratcjing my head.

Recording the paste operation in Word gives:

Selection.PasteExcelTable False, False, False

All I am trying to to is paste a number of Excel ranges into a Word
document, does anyone have any code whioch might help me.

PWS