Printing to word with a for loop

[Dubya007]

i have a program that prints to an MS word template. and it works perfect. the problem is this i have a list box in my app that i want to send all of the contents of the list box to the template i'm not so sure how i do this. i know that i will have to use a for loop(i think) but i was just wondering if some one could kinda point ina better direction.

[Dubya007]

any one? can any one help me?

[si_the_geek]

Can you do what you want with a single piece of text rather than a list?

post the code & I'll alter it for you.

[Dubya007]

i actually got it to work, the problem is now getting to move to a new line. but this my code, just to show you how i did it.

Dim sql As String
    Dim PT As New ADODB.Recordset
    sql = "SELECT Toolnumber FROM Machines WHERE MachNum= '" & MachID & "'"
    
    PT.Open sql, DBConn, adOpenDynamic, adLockOptimistic
    
    Do While Not PT.EOF
        appWd.ActiveDocument.Bookmarks("Tool").Select
        appWd.Selection.Text = PT!ToolNumber & ", "
        appWd.Selection.MoveDown wdLine, 1
        appWd.Selection.MoveLeft wdCharacter, 2
        PT.MoveNext
    Loop
    PT.Close
 
problem:
    Exit Function

[si_the_geek]

cool. well try this for the new line bit (should be slightly faster too):

...
Dim strTemp as String
    appWd.ActiveDocument.Bookmarks("Tool").Select
    strTemp = ""
    Do While Not PT.EOF
        strTemp = strTemp & PT!ToolNumber & ", " & vbCr
        PT.MoveNext
    Loop
    appWd.Selection.Text = strTemp
...

I'm not sure if it is vbCr you need, if it isn't right try these instead:

vbCrLf
vbLf

[Dubya007]

that worked thanx a whole bunch dude. you are the man.