Word og macro?

Hej!

Er der nogle der kan rette dette kode til så det virker, kan nemlig ikke rette fejlen:

'---------------------- MSWord.vbs ----------------------
Dim objWordApp
Dim objWordDoc

Set objWordApp = CreateObject("Word.Application")

If Not objWordApp Is Nothing Then

objWordApp.Visible = True
Set objWordDoc = objWordApp.Documents.Open("C:\iq.doc")

With objWordDoc
.content.Font.Name = "Comic Sans MS"
.content.Font.Size = 10

.content.Font.Bold = True
.content.Font.Italic = False
.content.Font.Underline = False

End With

Application.Selection.MoveRight Unit:=wdCharacter, Count:=6
Application.Selection.TypeText Text:=" tekst"

Set objWordDoc = Nothing
Set objWordApp = Nothing

End If

'---------------------- MSWord.vbs ----------------------

End Sub


Fejlen der fremkommer er følgende:
"Object required"

og det er linierne:
Application.Selection.MoveRight Unit:=wdCharacter, Count:=6
Application.Selection.TypeText Text:=" tekst"
fejlen ligger.

Jeg har prøvet med følgende:
.Selection.MoveRight Unit:=wdCharacter, Count:=6
.Selection.TypeText Text:=" tekst"
men det virker ikke. Jeg er klar over at det virker hvis man bruger .range, men det vil jeg meget gerne slippe for da jeg så skal ændre samtlige linier i macroer...

Håber meget på hjælp...