Importing Cell from Xls to Word Macro 2

[varela]

I've got to set make a xls macro to open a specific word template (.dot) a copy some cells to the Word document. Can anybody give me a help how i work this out?
Thxs

 

[LizF]

Varela,

Will you always be putting the data from Excel into the same place in the Word document?

If so, something like the following might do the trick...

Note. first you need to have set up bookmarks in Word at each place where you want to insert excel data. Give each bookmark a different name and keep a note of them to hand when you write your code


Private Sub cmdCreateInvoice_Click()
Dim objWord As Object
Dim strFileName As String


strFileName = cboName & "_" & Format(Date, "ddmmmyy&quot
strFileName = "a:\" & strFileName
'this part creates a unique filename to use later as a save-as for your newly-created word document - you might not need this bit!!
'cboName is from a user form (I took this bit of code from a larger procedure)

Set objWord = CreateObject("Word.Application&quot

objWord.Documents.Open FileName:="""a:\Mum letter.doc""",
'opens up a template - put your template's filename in instead

ConfirmConversions:=False, _
ReadOnly:=False, AddToRecentFiles:=False, PasswordDocument:="", _
PasswordTemplate:="", Revert:=False, WritePasswordDocument:="", _
WritePasswordTemplate:="", Format:=wdOpenFormatAuto
'just some stuff from the macro recorder to get the file set up right

objWord.Selection.GoTo What:=wdGoToBookmark, Name:="Address"
objWord.Selection.TypeText Text:=Me.txtAddress.Text
'the important bit - this goes to your bookmark (in this case called "address&quot then pastes in your selected excel data (in this case a value txtAddress from my userform.) NB: "Me" refers to the userform

 

[varela]

It works just fine.

Thanks.

 

[LizF]

No worries, glad to help

Liz (Thanks for the star!)