excel copy cells to word template

G

Garr

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 [email protected]
 
C

Cindy M.

Hi Garr,

Hi Garr,
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
Click to expand...
Hmmm. Well, based on what you tell us, I'd approach it
something like this

Sub Excel_to_Word()
Dim appWord as Word.Application

Range("b4:c102).Copy
Set appWord = New Word.Application
appWord.Documents.Add( _
"C:\Full path required\PDC_MCC_IR.dot")
appWord.Selection.Paste
appWord.Visible = true
Application.CutCopyMode = false
End Sub

Cindy Meister
INTER-Solutions, Switzerland
http://homepage.swissonline.ch/cindymeister (last update
Jun 17 2005)
http://www.word.mvps.org

This reply is posted in the Newsgroup; please post any
follow question or reply in the newsgroup and not by e-mail
:)
 
G

Garr

Thanks Cindy
Hi Garr,

Hi Garr,

Hmmm. Well, based on what you tell us, I'd approach it
something like this

Sub Excel_to_Word()
Dim appWord as Word.Application

Range("b4:c102).Copy
Set appWord = New Word.Application
appWord.Documents.Add( _
"C:\Full path required\PDC_MCC_IR.dot")
appWord.Selection.Paste
appWord.Visible = true
Application.CutCopyMode = false
End Sub

Cindy Meister
INTER-Solutions, Switzerland
http://homepage.swissonline.ch/cindymeister (last update
Jun 17 2005)


This reply is posted in the Newsgroup; please post any
follow question or reply in the newsgroup and not by e-mail
:)
Click to expand...
 
Top