Ver Mensaje Individual
  #1 (permalink)  
Antiguo 05/01/2003, 16:05
Avatar de Bravenap
Bravenap
 
Fecha de Ingreso: noviembre-2002
Ubicación: Los Arroyos, El Escorial, Madrid
Mensajes: 2.084
Antigüedad: 22 años, 3 meses
Puntos: 4
Marcadores de Word desde VB

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.