Duda sobre marcadores Word y VBA
Publicado por El Coyote (1 intervención) el 18/08/2007 23:48:35
Hola a tod@s:
Tengo un documento de Word (*doc) en el que hay varios marcadores, después dentro del mismo documento y usando el Editor de Visual Basic, he generado un formulario y su código, dicho formulario tiene varios campos tipo TEXT, dentro de los cuales introduzco un dato (por ejemplo nombre, apellidos, DNI, etc.), y al terminar de rellarnar éstos hago clic sobre un botón que hay en el mismo formulario que hace que todos esos datos (Nombre, Apellidos,
DNI, etc.) se coloquen en el documento Word en el marcador correspondiente.
El código que tiene el documento es:
Private Sub Document_Open()
UserForm1.Show
End Sub
- Hace que se abra el formulario.
El código que tiene el form en el botón es:
Private Sub CommandButton1_Click()
With Selection
.GoTo WHAT:=wdGoToBookmark, Name:="Nombre"
.TypeText Text:=TextBox1.Text
.GoTo WHAT:=wdGoToBookmark, Name:="Apellidos"
.TypeText Text:=TextBox2.Text
End With
Unload Me
End Sub
Hasta ahí todo bien, pero he aquí el problema que cuando guardo el documento y más tarde lo vuelvo a abrir me vuelve a salir el mismo formulario, ¿Cómo hago que para que no me salga y se abra el documento tal cual se grabó?. GRACIAS.
Tengo un documento de Word (*doc) en el que hay varios marcadores, después dentro del mismo documento y usando el Editor de Visual Basic, he generado un formulario y su código, dicho formulario tiene varios campos tipo TEXT, dentro de los cuales introduzco un dato (por ejemplo nombre, apellidos, DNI, etc.), y al terminar de rellarnar éstos hago clic sobre un botón que hay en el mismo formulario que hace que todos esos datos (Nombre, Apellidos,
DNI, etc.) se coloquen en el documento Word en el marcador correspondiente.
El código que tiene el documento es:
Private Sub Document_Open()
UserForm1.Show
End Sub
- Hace que se abra el formulario.
El código que tiene el form en el botón es:
Private Sub CommandButton1_Click()
With Selection
.GoTo WHAT:=wdGoToBookmark, Name:="Nombre"
.TypeText Text:=TextBox1.Text
.GoTo WHAT:=wdGoToBookmark, Name:="Apellidos"
.TypeText Text:=TextBox2.Text
End With
Unload Me
End Sub
Hasta ahí todo bien, pero he aquí el problema que cuando guardo el documento y más tarde lo vuelvo a abrir me vuelve a salir el mismo formulario, ¿Cómo hago que para que no me salga y se abra el documento tal cual se grabó?. GRACIAS.
Valora esta pregunta


0