Utilizamos cookies propias y de terceros para mejorar la experiencia de navegación, y ofrecer contenidos y publicidad de interés. Al continuar con la navegación entendemos que se acepta nuestra política de cookies.
Private Sub cmdWord_Click() 'agregamos los datos al archivo existente Dim objDoc As Object
'Verifico que exista el archivo If Len(Dir(App.Path & "\Temporal.doc")) > 0 Then 'Creo una instancia del archivo de Word Set objDoc = GetObject(App.Path & "\Temporal.doc") objDoc.Parent.Visible = True With objDoc.Parent .Selection.TypeText "Ejemplo de insercion de texto" End With
'Guardamos el archivo objDoc.Save 'App.Path & "\Temporal.doc" objDoc.Parent.Quit 'Liberamos la memoria Set objDoc = Nothing MsgBox "Proceso terminado" Else MsgBox "Archivo no existe" End If