Error al asignar valores a los campos de un formulario de Word .docx

[ivione]

Tema: VB.Net Campos de un formulario de word
Pregunta: No soy capáz de asignar valores a campos de documentos de word .docx

Utilizo Word 2007 para realizar los formularios, no sé si tiene algo que ver, pero cuando usaba 2003 me funcionaba bien la asignación asignación.

Tengo importadas las referencias a Microsoft.Office.Interop.Word

El error salta cuando llega a la línea (12):
odoc2.Bookmarks.Item("CodProy").Range.Text = "001"

El error que me muestra el msgbox es "Referencia a objeto no establecida como instancia de un objeto."

Código VB .NET:

Imports Microsoft.Office.Interop
 
Public Class Form1
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim oWrd2 As New Word.Application
        Dim odoc2 As Word.Document
        oWrd2.Documents.Add("C:\doc.docx")
        oWrd2.Visible = True
        Try
            oWrd2.ActiveDocument.Unprotect("***")
            odoc2.Bookmarks.Item("CodProy").Range.Text = "001"
            odoc2.Bookmarks.Item("Tit_Poyecto").Range.Text = "Proyecto 1"
        Catch ex As Exception
            MsgBox(ex.Message)
        Finally
            oWrd2.Documents.Close(False)
            oWrd2 = Nothing
        End Try
    End Sub
End Class
 

Un saludo y gracias

[ivione]

¿Os funciona el código anterior?

[ivione]

Solucionado

Código vb.net:

Imports Microsoft.Office.Interop
 
Public Class Form1
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim oWrd2 As Word.Application
        oWrd2 = New Word.Application()
        Dim odoc2 As Word.Document
        oWrd2 = New Word.Application()
        oWrd2.Visible = True
        odoc2 = oWrd2.Documents.Open("C:\doc.docx")
        
        Try
            odoc2.Unprotect("***")
            odoc2.Bookmarks.Item("codProy").Select()
            marcador_Temp = odoc2.Bookmarks.Add("MarcadorTemporal")
            marcador_Temp.Range.Text = "001"
        Catch ex As Exception
            MsgBox(ex.Message)
        Finally
            odoc2.Close()
            oWrd2 = Nothing
        End Try
    End Sub
End Class