Access - Access Word

   
Vista:

Access Word

Publicado por Ángel (84 intervenciones) el 15/01/2011 16:08:48
Hola a todos y expongo mi hilo, a ver si tiene salida.
combino access con word abriendo plantillas de documentos con campos DocProperty y en algunos casos, no este, DocVariable mediante el siguiente código recabado de este foro y otros a base de preguntas.

Option Compare Database
' ATENCION
' No estan incluidos los controles de errores ni las posibles excepciones.
' Se asume que la plantilla está en la misma carpeta que la mdb
Const strDOT = "CITACION.dot"
Const strDOC = "CITACION.doc"
_______________________________________________________________________
Private Sub Comando41_Click()
Dim strPATH, strPROP
Dim WordApp As Object
strPATH = Application.CurrentProject.Path
Set WordApp = CreateObject("Word.Application")
With WordApp
.Visible = False
.Documents.Add strPATH & "\" & strDOT
End With
With WordApp.ActiveDocument
For Each strPROP In .CustomDocumentProperties
Select Case strPROP.Name
Case "DATO1": strPROP.Value = Nz(Me.DATO1, " ")
Case "DATO2": strPROP.Value = Nz(Me.DATO2, " ")
Case "DATO3": strPROP.Value = Nz(Me.DATO3, " ")
Case "DAT12": strPROP.Value = Format(DAT12, "dd/mm/yyyy")

End Select
'Tambien se puede hacer con
'strPROP.Value = Me(strPROP.Name)
Next
End With
With WordApp
.ActiveDocument.Fields.Update
.ActiveDocument.SaveAs strPATH & "\" & strDOC
.Quit
End With
Set WordApp = Nothing
MsgBox "DOCUMENTO LISTO PARA VISUALIZAR, NO OLVIDE REPASAR"
End Sub
_________________________________________________________________

Private Sub Comando42_Click()
Dim strPATH
Dim appWord As Object
strPATH = Application.CurrentProject.Path
Set appWord = CreateObject("Word.basic")
With appWord
.appmaximize
.FileOpen strPATH & "\" & strDOC
.viewpage
End With
Set appWord = Nothing
DoCmd.Close
End Sub

Como veís esto relaciona o combina el registro activo o presente en la plantilla de word. Pero me ha surgido la necesidad de tener que insertar a la vez, en una de las plantillas que uso, una Consulta con parámetros para combinar una relación de registros en alguna parte del documento también.
Ando desde hace días intentando hacerlo pero no lo consigo, necesito de vuestra colaboración y que me pongaís un poco en el camino. 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