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?
1

1 respuesta

Respuesta
1
Sin entrar a mirar el código, antes de nada ¿Has referenciado "Microsoft Word x.0 Object Library"?. Dónde está la por será un número que depende de la versión que estés usando.
Mira eso primero y se te sigue diciendo lo mismo, indicame al menos en que línea te da el error.
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.
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

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas