![Antiguo](http://static.forosdelweb.com/fdwtheme/images/statusicon/post_old.gif)
11/06/2007, 07:34
|
![Avatar de epa2](http://static.forosdelweb.com/customavatars/avatar18935_1.gif) | | | Fecha de Ingreso: abril-2002 Ubicación: Málaga
Mensajes: 1.475
Antigüedad: 22 años, 9 meses 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*** |