Llenar plantilla de word con datos de SQL Server

[asandicr89]

Hola saludos a todos,

Estoy desarrollando una aplicación que rellene marcadores en un documento de Word. Los datos los tomo de una consulta de SQL. Al abrir la plantilla de word y tratar de rellenar los marcadores aparece el mensaje "el elemento del conjunto solicitado no existe".

Este es el código que tengo

Private interno As String
Private certificacion As String
Private cedula As String
Private tcLetras As String
Public Function generarDemandaPersonaFísica()
Try
Dim oWord As Word.Application
Dim oDoc As Word.Document
Dim comando As SqlCommand
Dim consulta As String = "select * from masterDemandados where ASIGNACION = @asignacion"
comando = New SqlCommand(consulta, conectar)
comando.Parameters.AddWithValue("@asignacion", generaWord.TextBox1.Text)

Dim registros As SqlDataReader

registros = comando.ExecuteReader()

Do While registros.Read()
interno = registros("INTERNO")
certificacion = registros("CERTIFICACION")
demandado = registros("DEMANDADO")
cedula = registros("CEDULA")
direccion = registros("DIRECCION")
tcLetras = registros("TC_LETRAS")

oWord = CreateObject("Word.Application")
oWord.Visible = True
oDoc = oWord.Documents.Add("C:\plantillas\ASESORES JURIDICO EMPRESARIALES S.docx")

oDoc.Bookmarks.Item("internoWord").Range.Text = interno
oDoc.Bookmarks.Item("certificacionWord").Range.Tex t = certificacion
oDoc.Bookmarks.Item("cedulaWord").Range.Text = cedula
oDoc.Bookmarks.Item("tcLetrasWord").Range.Text = tcLetras
Loop
registros.Close()

El problema es cuando quiero llenar los campos de cedula y tcLetras.

De antemano cualquier ayuda o sugerencia se agradece.

Saludos,

Arnold