Vista - How to insert text in a new Word document?

I am trying to generate a report (in Word) that contains text and tables.
What I am doing first is to write the title (objSelection.TypeText "Report")
and then
to generate a table.

The problem I have is that the table will overwrite the title so at the end
I will have only the table.

How I can avoid this?


Set objWord = CreateObject("Word.Application")
objWord.Visible = True
Set objDoc = objWord.Documents.Add()

Set objSelection = objWord.Selection
objSelection.TypeParagraph()

objSelection.Font.Name = "Times New Roman"
objSelection.Font.Size = "18"
objSelection.TypeText "Report"

Set objRange = objDoc.Range()

objDoc.Tables.Add objRange,1,5
Set objTable = objDoc.Tables(1)
objTable.Range.Font.Size = 10
objTable.Range.Style = "Medium Grid 1 - Accent 1"

objTable.Cell(x, 1).Range.Text = "h1"
objTable.Cell(x, 2).Range.text = "h2"
objTable.Cell(x, 3).Range.text = "h3"
objTable.Cell(x, 4).Range.text = "h4"
objTable.Cell(x, 5).Range.text = "h5"
…..

Never mind...my fault.
I used
Set objRange = objDoc.Range()
instead of
Set objRange = objSelection.Range



"Don" wrote: