Controlling Word from Excel

[tonesmcbutt]

I am trying to create a word document from data in an Excel form.
have managed to set up the references and can get Excel to copy on
piece of data over to Word and format it, but my problem arises whe
trying to copy a second piece of data. When I try copying a secon
piece of data it overwrites the first piece of data. How can I ge
multiple bits of data into Word and format them in different ways, i
different font sizes?

This is the code I have tried to use:-

Dim wrdApp As Word.Application
Dim wrdDoc As Word.Document
Dim mywdRange As Word.Range

Set wrdApp = CreateObject("Word.Application")
Set wrdDoc = wrdApp.Documents.Open("C:\template2.doc")
Set mywdRange = wrdDoc.Words(1)

With mywdRange
.Text = "Test1"
.Font.Size = "10"
.Bold = True
.Text = "Test2"
.Font.Size = "20"
.Bold = False
End With


Any help would be most gratefully received

 

[Jon Peltier]

Yeah, that Word object model.

Define your range a little differently, so you don't always refer to the
first word in the document.

Dim i As Long
i = wrdDoc.Characters.Count
Set mywdRange = wrdDoc.Range(i - 1, i - 1)

- Jon