Access a word
Hola como esta primero que todo deseo agradecerte por lo siguiente es que necesito pasar unas consultas de Access a word (que se me vean como informe) tengo el siguiente código que he visto en la red
Dim strWordArchivo As Variant
Dim i, r, intLineas As Integer
Dim appWord As Word.Application
Dim appDoc As Word.Document
Dim rngDoc As Word.Range
'dialogo 'abrir archivo'
strWordArchivo = Application.GetOpenFilename _
("Documentos Word (*.doc), *.doc"): On Error GoTo 99
'crear el objeto Word
Set appWord = createObject("Word.Application")
Set appDoc = appWord.Documents.Open(strWordArchivo)
'leer archivo Word
intLineas = appDoc.Paragraphs.Count: ReDim varText(intLineas)
r = 1
For i = 1 To intLineas
Set rngDoc = appDoc.Range( _
Start:=appDoc.Paragraphs(i).Range.Start, _
End:=appDoc.Paragraphs(i).Range.End)
varText(i) = rngDoc.Text
r = r + 1
Next i
'traspasar datos a celdas (o utilizar matriz para otra cosa de VB...)
For x = 1 To UBound(varText)
Cells(x, 1) = varText(x)
'terminar los objetos creados
appDoc.Close: Set appDoc = Nothing
appWord.Quit: Set appWord = Nothing
Pero me dice que No se ha definido el tipo definido por el usuario... ¿a qué se deberá esto?
Dim strWordArchivo As Variant
Dim i, r, intLineas As Integer
Dim appWord As Word.Application
Dim appDoc As Word.Document
Dim rngDoc As Word.Range
'dialogo 'abrir archivo'
strWordArchivo = Application.GetOpenFilename _
("Documentos Word (*.doc), *.doc"): On Error GoTo 99
'crear el objeto Word
Set appWord = createObject("Word.Application")
Set appDoc = appWord.Documents.Open(strWordArchivo)
'leer archivo Word
intLineas = appDoc.Paragraphs.Count: ReDim varText(intLineas)
r = 1
For i = 1 To intLineas
Set rngDoc = appDoc.Range( _
Start:=appDoc.Paragraphs(i).Range.Start, _
End:=appDoc.Paragraphs(i).Range.End)
varText(i) = rngDoc.Text
r = r + 1
Next i
'traspasar datos a celdas (o utilizar matriz para otra cosa de VB...)
For x = 1 To UBound(varText)
Cells(x, 1) = varText(x)
'terminar los objetos creados
appDoc.Close: Set appDoc = Nothing
appWord.Quit: Set appWord = Nothing
Pero me dice que No se ha definido el tipo definido por el usuario... ¿a qué se deberá esto?
1 Respuesta
Respuesta de kepasada
1
Hola muchas gracias por tu atención y ayuda...
He referenciado a Microsoft word desplazándome dentro de el editor de Visual basic en el menu Herramientas, luego selecciono Referencias y selecciono Microsoft word 12.0 Object Library.
He referenciado a Microsoft word desplazándome dentro de el editor de Visual basic en el menu Herramientas, luego selecciono Referencias y selecciono Microsoft word 12.0 Object Library.
No había visto tu respuesta. Pero entiendo que esta incompleta. Por que si has referenciado la librería, ¿Qué pasa? ¿Sigue fallando?. Con lo que sea comenta
