Copy excel contents to word

Hi -
Is it possible to automate the process of copying cells from excel to a word documet? For example: I have first name and last names in two colums in excel and I would like to copy the first and last names to a Word template.

Please suggest!

Thanks,
Ritu

Try this!

Sub wrdstart()
Dim appwd As Object
On Error GoTo notloaded
Set appwd = GetObject(, "Word.Application")
notloaded:
    If Err.Number = 429 Then
        Set appwd = CreateObject("Word.Application")
    End If
appwd.Visible = True
On Error GoTo 0
With appwd
.documents.Add
.Selection.TypeText Text:=vbTab
Range("A1:B1").Copy

.Selection.Paste

End With
End Sub

Regards,
Simon

Hi Simon,

This works great but I do have another question. When I call the GetObject function as follows, it does not open my word document. Do you know why this would be? Am I missing something?


Set appwd = GetObject("c:\WordName.doc")

Thanks,
Ritu

Try this:

Dim appwd As Object
On Error GoTo notloaded
Set appwd = GetObject(, "Word.Application")
Set wrdDoc = appwd.Documents.Open("C:WordName.doc") 
notloaded:
    If Err.Number = 429 Then
        Set wrdDoc = CreateObject("Word.Application")
    End If
wrdDoc.Visible = True
On Error GoTo 0
With wrdDoc
.Selection.TypeText Text:=vbTab
Range("A1:B1").Copy

.Selection.Paste

End With

Regards,
Simon

Thank you for helping me with this..

I actually get the following Run Time error:

Run time error: '438'
Object doesn't suppport this property or method.

Any ideas why?

Thanks,
Ritu

Which line does the code stop on?, i didn't test the code just knocked it up!

Regards,
Simon