Export to Word file from listview in vb6

[coolminded]

hi all,
i am using vb6 and a listview to display all the records of students.

now i want all the details of each student to be exported in word file.
i exported in a single column. but i wanted to get it in a matrix form. i mean to say three students in each row and then continue.
i mean to say in the following format:
student1 student2 student3
add1 add2 add3
email1 email2 email3

student4 student5 student6
add4 .......... ...............
...........
and so on....


how to do this
i just did one in a row
plz could anybody kindly help me to format the word file as i needed???
with regards,

[kadghar]

Well, the easiest way to learn how to use Word's VBA is recording a macro in word. then you can copy-paste the code to VB6

just a few tips: always refer to the object before any property or method of Word's VBA. And replace the word and ofice constants with its numeric value:

eg.

lets say you recorded:

Sub Macro1()
'
' Macro1 Macro
' Macro grabada el 18/06/2008 por XXXXX
'
    Selection.TypeText Text:="Hello World"
    Selection.HomeKey Unit:=wdLine, Extend:=wdExtend
    Selection.Font.Bold = wdToggle
    If Selection.Font.Underline = wdUnderlineNone Then
        Selection.Font.Underline = wdUnderlineSingle
    Else
        Selection.Font.Underline = wdUnderlineNone
    End If
End Sub
 

To use it in VB6 you'll need something like

Sub WORDHelloWorld()
    Dim Obj1 As Object
    Set Obj1 = CreateObject("word.application")
    Obj1.Visible = True
    Obj1.Documents.Add
    With Obj1
        .Selection.TypeText Text:="Hello World"
        .Selection.HomeKey Unit:=5, Extend:=1
        .Selection.Font.Bold = 9999998
        If .Selection.Font.Underline = 0 Then
            .Selection.Font.Underline = 1
        Else
            .Selection.Font.Underline = 0
        End If
    End With
End Sub

Well, HTH