I have a large workbook and I want to copy cells from one sheet called
Menu to a specific word template called PDC_MCC_IR.dot and save the
word template as a word document. I have a bit of code that can open a
word document and past information from cells in the word document but
I need help for the rest. Can anyone help me. Here is the code that I
already have.

Sub Excel_to_Word()
Dim appWord As Word.Application


Set appWord = New Word.Application


appWord.Visible = True


Range("b4:c10").Copy


appWord.Documents.Add.Content.Paste


Application.CutCopyMode = False


End Sub


Thanks Garry

Garr --

I think it would be easier to have Word 'pull' the data in rather than Excel
'push' it. No VBA, etc. Here's a page on how to do it.

http://office.microsoft.com/en-us/as...880611033.aspx

"Garr" wrote:

I have a large workbook and I want to copy cells from one sheet called
Menu to a specific word template called PDC_MCC_IR.dot and save the
word template as a word document. I have a bit of code that can open a
word document and past information from cells in the word document but
I need help for the rest. Can anyone help me. Here is the code that I
already have.

Sub Excel_to_Word()
Dim appWord As Word.Application


Set appWord = New Word.Application


appWord.Visible = True


Range("b4:c10").Copy


appWord.Documents.Add.Content.Paste


Application.CutCopyMode = False


End Sub


Thanks Garry

Thanks I found a way around that uses two macro's

pdberger wrote:
Garr --

I think it would be easier to have Word 'pull' the data in rather than Excel
'push' it. No VBA, etc. Here's a page on how to do it.

http://office.microsoft.com/en-us/as...880611033.aspx

"Garr" wrote:

I have a large workbook and I want to copy cells from one sheet called
Menu to a specific word template called PDC_MCC_IR.dot and save the
word template as a word document. I have a bit of code that can open a
word document and past information from cells in the word document but
I need help for the rest. Can anyone help me. Here is the code that I
already have.

Sub Excel_to_Word()
Dim appWord As Word.Application


Set appWord = New Word.Application


appWord.Visible = True


Range("b4:c10").Copy


appWord.Documents.Add.Content.Paste


Application.CutCopyMode = False


End Sub


Thanks Garry