Guardar archivo

Hola
He creado un formulario que incluye un botón.Este botón sirve para crear un archivo en Word de un informe que tengo.
¿Cómo se puede conseguir dónde quieres guardarlo y que por defecto,tome como nombre ,por ejemplo el de un campo cualquiera del formulario?
Gracias
Respuesta
1
Checa el siguiente código:
Dim WordApp As Word.Application
Dim WordDoc As Word.Document
Dim i As Integer, j As Integer
Dim NewResult As String
On Error GoTo ErrHandler
ReDim UsedVariables(0)
Set WordApp = CreateObject("Word.Application")
Set WordDoc = WordApp.Documents.Open(App.Path & "\contratos\" & strFile)
' WordApp.Visible = True
Select Case iQueContrato
Case 1 ' Se Trata de Contratos de Colaboración Mutua
For i = 1 To rs.Fields.Count - 2
If WordDoc.Fields(i).Type = wdFieldDocVariable Then
If Not IsNull(rs.Fields(i - 1)) Then
WordDoc.Fields(i).Result.Text = rs.Fields(i - 1)
End If
End If
Next
' se inserta la fecha de emisión del contrato
' día
WordDoc.Fields(26).Result.Text = Day(Date)
' mes
WordDoc.Fields(27).Result.Text = Transforma_Mes(Month(Date))
' año
WordDoc.Fields(28).Result.Text = Year(Date)
' objeto social
WordDoc.Fields(29).Result.Text = rs.Fields("proveedor")
' WordDoc.Fields(29).Result.Text = rs.Fields("objSocial")
' la firma del organizador
WordDoc.Fields(30).Result.Text = rs.Fields("Apoderado")
' WordDoc.Fields(30).Result.Text = rs.Fields("proveedor")
' la firma del autorizador
WordDoc.Fields(31).Result.Text = cboAutoriza.Text
' tercera hoja
' objeto social
WordDoc.Fields(32).Result.Text = rs.Fields("proveedor")
' WordDoc.Fields(32).Result.Text = rs.Fields("objSocial")
' representante
WordDoc.Fields(33).Result.Text = rs.Fields("Apoderado")
' visa
WordDoc.Fields(34).Result.Text = cboAutoriza.Text
Case 3 ' Se Trata de Contratos de Patrocinio
For i = 1 To rs.Fields.Count - 2
If WordDoc.Fields(i).Type = wdFieldDocVariable Then
If Not IsNull(rs.Fields(i - 1)) Then
WordDoc.Fields(i).Result.Text = rs.Fields(i - 1)
End If
End If
Next
' se inserta la fecha de emisión del contrato
' día
WordDoc.Fields(26).Result.Text = Day(Date)
' mes
WordDoc.Fields(27).Result.Text = Transforma_Mes(Month(Date))
' año
WordDoc.Fields(28).Result.Text = Year(Date)
' objeto social
WordDoc.Fields(29).Result.Text = rs.Fields("proveedor")
' WordDoc.Fields(29).Result.Text = rs.Fields("objSocial")
' la firma del organizador
WordDoc.Fields(30).Result.Text = rs.Fields("Apoderado")
' WordDoc.Fields(30).Result.Text = rs.Fields("proveedor")
' la firma del autorizador
WordDoc.Fields(31).Result.Text = cboAutoriza.Text
' tercera hoja
' objeto social
WordDoc.Fields(32).Result.Text = rs.Fields("proveedor")
' WordDoc.Fields(32).Result.Text = rs.Fields("objSocial")
' representante
WordDoc.Fields(33).Result.Text = rs.Fields("Apoderado")
' visa
WordDoc.Fields(34).Result.Text = cboAutoriza.Text
Case 4 ' Se Trata de Contratos de Publicidad Masiva
For i = 1 To rs.Fields.Count - 2
If WordDoc.Fields(i).Type = wdFieldDocVariable Then
If Not IsNull(rs.Fields(i - 1)) Then
WordDoc.Fields(i).Result.Text = rs.Fields(i - 1)
End If
End If
Next
' se inserta la fecha de emisión del contrato
' día
WordDoc.Fields(26).Result.Text = Day(Date)
' mes
WordDoc.Fields(27).Result.Text = Transforma_Mes(Month(Date))
' año
WordDoc.Fields(28).Result.Text = Year(Date)
' objeto social
WordDoc.Fields(29).Result.Text = rs.Fields("proveedor")
' WordDoc.Fields(29).Result.Text = rs.Fields("objSocial")
' la firma del organizador
WordDoc.Fields(30).Result.Text = rs.Fields("Apoderado")
' WordDoc.Fields(30).Result.Text = rs.Fields("proveedor")
' la firma del autorizador
WordDoc.Fields(31).Result.Text = cboAutoriza.Text
' tercera hoja
' objeto social
WordDoc.Fields(32).Result.Text = rs.Fields("proveedor")
' WordDoc.Fields(32).Result.Text = rs.Fields("objSocial")
' representante
WordDoc.Fields(33).Result.Text = rs.Fields("Apoderado")
' visa
WordDoc.Fields(34).Result.Text = cboAutoriza.Text
Case 5 ' Se Trata de Contratos de Publicidad Medios Impresos
For i = 1 To rs.Fields.Count - 2
If WordDoc.Fields(i).Type = wdFieldDocVariable Then
If Not IsNull(rs.Fields(i - 1)) Then
WordDoc.Fields(i).Result.Text = rs.Fields(i - 1)
End If
End If
Next
' se inserta la fecha de emisión del contrato
' día
WordDoc.Fields(26).Result.Text = Day(Date)
' mes
WordDoc.Fields(27).Result.Text = Transforma_Mes(Month(Date))
' año
WordDoc.Fields(28).Result.Text = Year(Date)
' objeto social
WordDoc.Fields(29).Result.Text = rs.Fields("proveedor")
' WordDoc.Fields(29).Result.Text = rs.Fields("objSocial")
' la firma del organizador
WordDoc.Fields(30).Result.Text = rs.Fields("Apoderado")
' WordDoc.Fields(30).Result.Text = rs.Fields("proveedor")
' la firma del autorizador
WordDoc.Fields(31).Result.Text = cboAutoriza.Text
' tercera hoja
' objeto social
WordDoc.Fields(32).Result.Text = rs.Fields("proveedor")
' WordDoc.Fields(32).Result.Text = rs.Fields("objSocial")
' representante
WordDoc.Fields(33).Result.Text = rs.Fields("Apoderado")
' visa
WordDoc.Fields(34).Result.Text = cboAutoriza.Text
Case 6 ' Se Trata de Contratos de Publicidad Medios Radiofónicos
For i = 1 To rs.Fields.Count - 2
If WordDoc.Fields(i).Type = wdFieldDocVariable Then
If Not IsNull(rs.Fields(i - 1)) Then
WordDoc.Fields(i).Result.Text = rs.Fields(i - 1)
End If
End If
Next
' se inserta la fecha de emisión del contrato
' día
WordDoc.Fields(26).Result.Text = Day(Date)
' mes
WordDoc.Fields(27).Result.Text = Transforma_Mes(Month(Date))
' año
WordDoc.Fields(28).Result.Text = Year(Date)
' objeto social
WordDoc.Fields(29).Result.Text = rs.Fields("proveedor")
' WordDoc.Fields(29).Result.Text = rs.Fields("objSocial")
' la firma del organizador
WordDoc.Fields(30).Result.Text = rs.Fields("Apoderado")
' WordDoc.Fields(30).Result.Text = rs.Fields("proveedor")
' la firma del autorizador
WordDoc.Fields(31).Result.Text = cboAutoriza.Text
' tercera hoja
' objeto social
WordDoc.Fields(32).Result.Text = rs.Fields("proveedor")
' WordDoc.Fields(32).Result.Text = rs.Fields("objSocial")
' representante
WordDoc.Fields(33).Result.Text = rs.Fields("Apoderado")
' visa
WordDoc.Fields(34).Result.Text = cboAutoriza.Text
Case 7 ' Se Trata de Contratos de Servicios de Impresión
For i = 1 To rs.Fields.Count - 2
If WordDoc.Fields(i).Type = wdFieldDocVariable Then
If Not IsNull(rs.Fields(i - 1)) Then
WordDoc.Fields(i).Result.Text = rs.Fields(i - 1)
End If
End If
Next
' se inserta la fecha de emisión del contrato
' día
WordDoc.Fields(26).Result.Text = Day(Date)
' mes
WordDoc.Fields(27).Result.Text = Transforma_Mes(Month(Date))
' año
WordDoc.Fields(28).Result.Text = Year(Date)
' objeto social
WordDoc.Fields(29).Result.Text = rs.Fields("proveedor")
' WordDoc.Fields(29).Result.Text = rs.Fields("objSocial")
' la firma del organizador
WordDoc.Fields(30).Result.Text = rs.Fields("Apoderado")
' la firma del autorizador
WordDoc.Fields(31).Result.Text = cboAutoriza.Text
' tercera hoja
' la firma del organizador
WordDoc.Fields(32).Result.Text = rs.Fields("proveedor")
' WordDoc.Fields(32).Result.Text = rs.Fields("objSocial")
' representado por
WordDoc.Fields(33).Result.Text = rs.Fields("Apoderado")
' la firma del autorizador
WordDoc.Fields(34).Result.Text = cboAutoriza.Text
End Select
' lock the document to stop changes
' WordDoc.Protect wdAllowOnlyComments, , "jd837djh82"
WordDoc.SaveAs App.Path & "\previo\" & strAux & ".doc"
WordDoc.Close
WordApp.Quit
Set WordDoc = Nothing
Set WordApp = Nothing
De ahí puedes adaptar lo que quieras.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Intentando sumar campos moneda de totales en informe de Access.

Estoy tratando de sumar dos campos de sumas totales en un informe de Access y no lo logro. Creo que he agotado todas las variantes. La situación es la siguiente: El informe es para emitir una factura al cliente. A un cliente se les puede hacer mas de...
2 respuestas

Base de datos Access se bloquea al trabajar en simultaneo

En contexto tengo una base de datos donde se ingresan datos en un formulario y este a su vez tiene un subformulario. Al inicio solo era utilizada por un usuario. Pero ahora es usada por 4 usuarios más. Tengo una computadora principal donde tengo la...
3 respuestas

Añadir búsqueda al azar en formularios de Access

Tengo un archivo de Access que quiero modificar y actualizar para añadir nuevas preguntas a una base de datos. He visto que en el formulario hay una casilla como de verificación para seleccionar al azar las preguntas de toda la base de datos pero...
2 respuestas

Error en Backup de Base Datos PostgreSQL

Estoy iniciandome en PostgreSQL. EStoy muy verde aunque algo de ayuda inicial me ha prestado Eduardo Perez. Intento hacer un backup de una BD en PostgreSQL y me sale el siguiente mensaje: Pg_dump: error: aborting because of server version mismatch...
2 respuestas

Recorrer una tabla de Access

Tengo un formulario de access en el que tengo un campo llamado importe y otros importe_1, importe_2, importe_3 y un campo llamado reg que lo que necesito es que si el valor del registro es 21 coloque el importe en importe_, si es 22 lo coloque en...
4 respuestas

Copia de seguridad BD completa Access

Quiero saber si es posible mediante un botón en un formulario en Access crear una copia de seguridad de TODA la base de datos en una unidad USB al pulsar el botón. La unidad está en la ruta: D:\14gb\ Cuando digo TODA la BD son tablas, consultas, etc..
2 respuestas

Como se copia todos los datos de un subformulario a otro subformulario

Estoy copiando datos de un formulario a otro formulario, ambos con subformularios, el problema esta en que los registros del subformulario solo me copia la primera fila. Estas son los datos: Formulario "Cotizacion" Con Subformulario...
3 respuestas

Migrar desde Access a BBDD web

Tengo una base de datos Access en red con 20 equipos conectados. Es muy extensa y consta de muchas tablas, consultas, formularios e informes. Sobre todo se trabaja con formularios para recoger datos de diferentes áreas del servicio. Estos formularios...
2 respuestas

Envio de Wasap desde Acces

Tengo una base de datos que manda wasap desde la ficha del cliente, el código que uso es el siguiente Private Sub Comando19_Click() CreateObject("Shell.Application").Open "https://api.whatsapp.com/send?phone=" + Me.telefono_cliente + "&text=" +...
1 respuesta

Error en consulta de unión SQL en Access

Tengo una consulta de union SQL en la cuál obtengo todos los datos de dos Tablas llamadas tbEquipos y tbActualizaciones y quiero que esa consulta solo muestre los registros que sean iguales al valor de un cuadro de texto de un formulario. El error...
3 respuestas