Marcadores de Word desde VB

[Bravenap]

Aquí os dejo un código para ver si podéis solucionar lo que he marcado en rojo. El documento de Word con el que trabaja tiene definidos unos marcadores (marca1, marca2, ...) pero parece que no los reconoce.

Código:

Sub Barras()
    Dim etiqueta As Object
    Dim img As New StdPicture
    Set etiqueta = CreateObject("Word.Basic")
    If Err Then
        MsgBox "Se han producido errores al crear la etiqueta", vbExclamation, "Error"
        Set etiqueta = Nothing
        Exit Sub
    End If
    With etiqueta
        .FileNew App.Path & "\etiquetas.doc"
        Dim i As Integer
        For i = 1 To 2
            .EditPaste
            .Insert Chr(10) & Chr(13)
            .CenterPara
            .Bold
            .Font "Arial"
            .Insert ArticuloNuevo.TextDescripcion.Text
            If i = 1 Then
                .NextCell
            End If
        Next i
        .AppMaximize
        .DocWindowPosTop
        .EditGoTo "marca3"
        .Insert "Aquí está el marcador número 3" 
        .FileSaveAs App.Path & "\" & EnviaArt & ".doc"
    End With
    Set etiqueta = Nothing
End Sub

Gracias.

[Bravenap]

Por cierto, con .EditPaste inserto una imagen que había en el portapapeles dentro de la celda (por duplicado, para eso está el bucle). ¿Sabe alguien cómo centrar esa imagen en la celda o que al menos hacerla que esté en linea con el texto?

Gracias de nuevo.

[Bravenap]

Bueno, vamos a olvidarnos de la segunda pregunta y centrémonos en la primera.... ¿de verdad no hay nadie que sepa qué es lo que no funciona del código?

Seguiré esperando, gracias de todas formas.