Controlling Word from Excel

  • Thread starter Thread starter tonesmcbutt
  • Start date Start date
T

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
 
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
 
Back
Top