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 gtpig...@shaw.ca

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 gtpig...@shaw.ca
>
>

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 gtpig...@shaw.ca
> >
> >