pasar datos del listbox a un documento de word
hola a todos.
tengo un problema con un list.
tengo el list con cierto numero de items necesito crear un archivo docx "word".
lo consigo con la sentencia que muestro debajo pero me crea dicho arrchivo, empezando por el ultimo item del list.
como consigo hacerlo bien, gracias de antemano.
Private Sub Command3_Click()
Dim MSWord As New Word.Application
Dim Documento As Word.Document
Dim Parrafo As Paragraph
Set Documento = MSWord.Documents.Add
Set Parrafo = Documento.Paragraphs.Add
MSWord.Visible = True
Dim i As Integer
For i = 0 To lbacumulado.ListCount - 1
Parrafo.Range.InsertAfter lbacumulado.List(i)
Next i
End Sub
tengo un problema con un list.
tengo el list con cierto numero de items necesito crear un archivo docx "word".
lo consigo con la sentencia que muestro debajo pero me crea dicho arrchivo, empezando por el ultimo item del list.
como consigo hacerlo bien, gracias de antemano.
Private Sub Command3_Click()
Dim MSWord As New Word.Application
Dim Documento As Word.Document
Dim Parrafo As Paragraph
Set Documento = MSWord.Documents.Add
Set Parrafo = Documento.Paragraphs.Add
MSWord.Visible = True
Dim i As Integer
For i = 0 To lbacumulado.ListCount - 1
Parrafo.Range.InsertAfter lbacumulado.List(i)
Next i
End Sub