Ich brauche Hilfe bei Word-Fernsteuerung

[thomas wickl]

Hallo,

ich möchte die Struktur einer TreeView in einer Zelle einer Word-Tabelle darstellen.
Also ungefähr so (NODE = Knoten in der TreeView):
<p>
NODE 1
*Untereintrag 1
*Untereintrag 1.1
NODE 2
*Untereintrag 2
*Untereintrag 2.1
<p>
Vor jedem Untereintrag erscheint dann dieser Punkt(Bullet) wie Word es nunmal bei Untereinträgen macht, oben als Sternchen dargestellt. Mein Problem ist jetzt nur das bei meinem Code jeder nachfolgende NODE den ersten überschreibt. Ich weiss einfach nicht wie ich nach dem letzten Untereintrag den nächsten NODE einfügen soll.
<p>
for j := 0 to TreeView.Items.Count - 1 do
begin
if TreeView.Items[j].Level = 0 then
begin
tbl1.Range.Font.Bold := 1;
tbl1.Cell(2, 1).Range.Text := 'Changed';
tbl1.Cell(2, 2).Range.Text := Date;
tbl1.Cell(2, 3).Range.Text := TreeView.Items[j].Text;
nstart := tbl1.Cell(2, 3).Range.Get_End_;
for i := 0 to TreeView.Items.Count - 1 do
begin
if TreeView.Items[i].Level = 1 then
begin
if TreeView.Items[i].Parent = TreeView.Items[j] then
begin
Par := tbl1.Cell(2, 3).Range.Paragraphs.Add(Emptyparam);
Par.Range.Text := TreeView.Items[i].Text;
end;
end;
end;
tbl1.Cell(2, 3).Range.Paragraphs.Alignment := wdAlignParagraphJustify;
nend := tbl1.Cell(2, 3).Range.Get_End_ - 1;
WordApp.Selection.SetRange(nstart, nend);
WordApp.Selection.Range.ListFormat.ApplyBulletDefa ult;
end;
end;
<p>
Irgendwie Blick ich da nicht so ganz durch. Hat jemand vielleicht eine Idee wie ich das ändern muss?

Vielen Dank

thomas