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.