I
Ivan Debono
Hi all,
I'm using VB6 to read records from a database and insert them into a work
document based on a template that I defined. At the moment I have an
autotextentry with some bookmarks, and I use the following code snippet to
insert the data:
Do While Not tVIEW.EOF
With oDocument.Characters.Last
.Collapse wdCollapseEnd
.Text = oAuto.Name
.InsertAutoText
'Set bookmark values
For Each oField In tVIEW.Fields
.Bookmarks(oField.Name).Range.Text =
oField.Value
Next oField
End With
tVIEW.MoveNext
Loop
Works fine.
Now I would like to implement 2 columns instead of just a list. What and
where are the changes to the autotextentry that I have to do so that I can
still use the above code (more or less) with multiple columns?
Thanks,
Ivan
I'm using VB6 to read records from a database and insert them into a work
document based on a template that I defined. At the moment I have an
autotextentry with some bookmarks, and I use the following code snippet to
insert the data:
Do While Not tVIEW.EOF
With oDocument.Characters.Last
.Collapse wdCollapseEnd
.Text = oAuto.Name
.InsertAutoText
'Set bookmark values
For Each oField In tVIEW.Fields
.Bookmarks(oField.Name).Range.Text =
oField.Value
Next oField
End With
tVIEW.MoveNext
Loop
Works fine.
Now I would like to implement 2 columns instead of just a list. What and
where are the changes to the autotextentry that I have to do so that I can
still use the above code (more or less) with multiple columns?
Thanks,
Ivan