Brauche Hilfe bei WORD-Steuerung

[dragi]

Hallo,

ich möchte die Struktur einer TreeView in einer Zelle einer Word-Tabelle darstellen.
Also ungefähr so (NODE = Knoten in der TreeView):

Code:

NODE 1
  *Untereintrag 1
  *Untereintrag 1.1
NODE 2
  *Untereintrag 2
  *Untereintrag 2.1

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.

Code:

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.ApplyBulletDefault;
  end;
end;

Irgendwie Blick ich da nicht so ganz durch. Hat jemand vielleicht eine Idee wie ich das ändern muss?

Vielen Dank

dragi

[dragi]

Ich bin einfach mal so frech und mache ein *push*. Hab nämlich noch keine Lösung gefunden
Ist die Frage unklar, dann bitte sagen was daran nciht verstanden wurde dann werde ich versuchen es anders zu erklären.

Vielen Dank

dragi

[marabu]

Vielleicht hilft es, wenn du den Row-Index nicht immer mit 2 wählst. "2 + j" scheint mir angemessener.

[edit]Tippfehler[/edit]