pasar datos de cuadro de lista a word
Publicado por Jesus Alberto (11 intervenciones) el 21/08/2019 22:04:11
Buenas tardes tengo el siguiente problema
en este mismo foro encontré un código que me pasa el contenido de cada uno de los campos en mi formulario de access a una plantilla de word, el código es el siguiente
y todos los campos los pasa de manera exitosa a exepcion de los campos multi-valor, quisiera saber que debo agregar al código para que el contenido de estos campos se pase de manera correcta al documento de word
espero puedan ayudarme, saludos
en este mismo foro encontré un código que me pasa el contenido de cada uno de los campos en mi formulario de access a una plantilla de word, el código es el siguiente
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
Private Sub Comando750_Click()
Dim appWord As Word.ApplicationDim docs As Word.DocumentsDim doc As Word.DocumentDim cWord As Object
Dim strRutaPlantilla As String
Dim strTestPlantilla As String
Dim strNuevoDocumento As String
On Error GoTo ManejadorError
strRutaPlantilla = "Ruta completa donde se obtiene la plantilla de Word"
strNuevoDocumento = "Ruta y nombre del nuevo documento que se creara"
'Sí existe el archivo lo abrimos y nos salimos,
' sino existe lo creamos
strTestPlantilla = Nz(Dir(strNuevoDocumento))
If strTestPlantilla <> "" Then
If MsgBox("El Documento ya existe. ¿Desea actualizarlo", _
vbInformation + vbYesNo + vbDefaultButton2, _
"Actualizar Documento") = vbNo Then
'Esta linea la ponemos solo sí queremos que se abra el documento
Application.FollowHyperlink strNuevoDocumentoExit Sub
End If
End If
Set appWord = CreateObject(Class:="Word.Application")
Set docs = appWord.Documents
Set doc = docs.Add(strRutaPlantilla)
Set cWord = doc.CustomDocumentProperties
On Error Resume Next
' estos son ejemlos de mis campos en el formulario
cWord.Item("techo").Value = Techo
cWord.Item("paredes").Value = Paredes
cWord.Item("suelo").Value = Suelo
cWord.Item("animales").Value = Animales_D
With appWord
.Visible = True
.Selection.WholeStory
.Selection.Fields.Update
.ActiveDocument.SaveAs strNuevoDocumento
.Activate.Selection.EndKey Unit:=wdStory
End With
ManejadorErrorSalir:Exit Sub
ManejadorError:If Err.Number = 429 Then
Set appWord = CreateObject(Class:="Word.Application")
Resume Next
Else
MsgBox Err.Description, , "Error Nº: " & Err.Number
Resume ManejadorErrorSalir
End If
End Sub
y todos los campos los pasa de manera exitosa a exepcion de los campos multi-valor, quisiera saber que debo agregar al código para que el contenido de estos campos se pase de manera correcta al documento de word
espero puedan ayudarme, saludos
Valora esta pregunta
0