error word.Application

[juliko]

Saludos a todos/as
Estoy generando un código para poder abrir un fichero .doc y añadir texto, para ello uso el siguiente código:

Dim wordApp As New word.Application
Dim texto As String

wordApp.Documents.Open FileName:="c:\doc.doc"
texto = "Extensión: "
wordApp.Selection.TypeText Text:=texto
.
.
.

pero me da el siguiente error:

"error 70 en tiempo de ejecución.
Permiso denegado."

he dado todos los permisos al fichero doc.doc pero nada me sigue dando el error.