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.