Platzhalter in XML-Datei durch (mehrzeiligen) Text ersetzen

[Harry Stahl]

Ich habe mal IterateChilds so abgeändert:

Delphi-Quellcode:

procedure IterateChilds (ANode:IXMLNode);
  var
    addnode, subnode: IXMLNode;
  begin
    for var i := 0 to ANode.ChildNodes.Count-1 do begin
      subnode := ANode.ChildNodes[i];
      if subnode.HasChildNodes then begin
        IterateChilds (Subnode);
      end else begin
        if subnode.Text = '{Betreff}' then begin
          subnode.Text := 'Dies ist der neue Betrefftext';
        end;

        if subnode.Text = '{Adr_Alles}' then begin
          subnode.text := 'Herrn'; // First line
          subnode.AddChild('p').AddChild('r').AddChild('t').NodeValue := 'Walter Müller';
          subnode.AddChild('p').AddChild('r').AddChild('t').NodeValue := 'Steinstraße 23';
          subnode.AddChild('p').AddChild('r').AddChild('t').NodeValue := '53129 bonn';
        end;

      end;
    end;
  end;

Leider beschwert Word sich über die Dokumentenstruktur und liest das Dokument nicht ein.