Visual Basic - Duda sobre marcadores Word y VBA

Life is soft - evento anual de software empresarial
 
Vista:

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.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Duda sobre marcadores Word y VBA

Publicado por GUS (218 intervenciones) el 19/08/2007 00:17:59
intentalo asi y al final utiliza saveas:
Dim objWord As Object
Dim objField As Object
Set objWord = CreateObject("WORD.application")
objWord.Documents.Open App.Path & "\carnet.doc"
objWord.Visible = True
Set objField = objWord.ActiveDocument.FormFields.Item("NOMBRE1")
objField.RESULT = nombre1
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar