Access - liao

   
Vista:

liao

Publicado por blas (143 intervenciones) el 10/04/2009 09:13:36
Estoy utilizando un código que puso el Sr. Javier ORELLANA el 12-05-2006 para Word que debe abrir un documento de Word despues reemplazar los valores de los campos del formulario, hacer una copia de un nuevo documento y guardarlo con los datos generados. el caso es que he utilizado el código y algo hago mal. Me abre el documento pero no me guarda uno nuevo. me puede alguien explicar paso a paso el código y como hago lo de declarar la aplicación de Word, muchas gracias. el documento se llama Vehiculos y se encuentra en c:Mis documentosGaraje...
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:liao

Publicado por blas (143 intervenciones) el 10/04/2009 09:18:34
Se me olvidaba el código:

Sub TRASPASO()
'inicia el word
Set objword = CreateObject("word.Application")
With objword
'hace visible la ventana de word
.Visible = True
'abre el documento de word que interactuará con access
.Documents.Open ("C:Mis documentosInstruccion 2000GarajeVehiculos.doc")
'selecciona los marcadores del documento y los reemplaza con los valores de los campos del formulario
.ActiveDocument.Bookmarks("proyecto").Select
.Selection.Text = (CStr(Forms!CREAR!PROYECTO))
.ActiveDocument.Bookmarks("area").Select
.Selection.Text = (CStr(Forms!CREAR!AREA))
.ActiveDocument.Bookmarks("documento").Select
.Selection.Text = (CStr(Forms!CREAR!DOCUMENTO))
.ActiveDocument.Bookmarks("disciplina").Select
.Selection.Text = (CStr(Forms!CREAR!DISCIPLINA))
.ActiveDocument.Bookmarks("correlativo").Select
.Selection.Text = (CStr(Forms!CREAR!CORRELATIVO))
'guarda un nuevo documento con los datos generados
strDocumento = ("c:Mis documentosGaraje" & Format(Nombre) & ".doc")
.ActiveDocument.SaveAs strDocumento
End With
Exit Sub
End Sub
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