Ver Mensaje Individual
  #5 (permalink)  
Antiguo 11/06/2007, 07:34
Avatar de epa2
epa2
 
Fecha de Ingreso: abril-2002
Ubicación: Málaga
Mensajes: 1.475
Antigüedad: 22 años, 1 mes
Puntos: 9
Re: VBA EXCEL: Pasar datos UserForm a Plantilla Word, creo que voy por el buen camino

Hola de nuevo, sigo con ello, me ahogo en un vaso de agua...

de momento he conseguido abrir el word con estas lineas

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX XXXXXXXXX
Dim WORD As Object
Dim Documento As String
Private Sub CommandButton1_Click()
Set WORD = CreateObject("word.application")
Documento = "C:\Documents and Settings\epa2\Escritorio\ABRAHAN.doc"
WORD.Documents.Open (Documento)

en el abrahan.doc he insertado dos marcadores: "NOMBRE" y "APELLIDOS". He
estado intentando enlazarlos pero no consiguo sacarlo... esto es lo que
pongo....


NOMBRE = UserForm1.NOMBRE
APELLIDOS = UserForm1.APELLIDOS

' y ahora lo intento enlazar con el documento abierto

With Documento
.GoTo What:=wdGoToBookmark, Name:="NOMBRE"
.TypeText Text:= NOMBRE

.GoTo What:=wdGoToBookmark, Name:="APELLIDOS"
.TypeText Text:= APELLIDOS
End With

WORD.Visible = True
Set WORD = Nothing

End Sub
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXX

pero no consigo sacarlo, me dice lo siguiente...

"ERROR de compilación: el objeto With debe ser un tipo definido por el
usuario, Object o Variant"

Pero no lo entiendo, ¿acaso no declaro ya Documento As String???
¿Como podría declarar una segunda variable como Object para que este code me
funcione y poder enlazar con los marcadores de word???

definitivamente hoy estoy espeso....
__________________

***Aprendiz de todo y maestro de nada***