Ich mache es jetzt so:
Mit Mailmerge erstelle ich das Dokument und anschließend setzte ich alle Pagenumbers auf RestartNumberingAtSection = False
Mit diesem Code.
Delphi-Quellcode:
For I := 1 To WordApplication1.ActiveDocument.Sections.Count do
begin
For X := 1 To WordApplication1.ActiveDocument.Sections.Item(I).Headers.Count do
begin
WordApplication1.ActiveDocument.Sections.item(I).Headers.Item(X).PageNumbers.RestartNumberingAtSection = False
end;
end;
Das Dokument wird dabei noch nicht angezeigt.
Trotzdem dauert das setzen der RestartNumberingAtSection recht lange.
Kennt Ihr eine schneller oder bessere Methode?
Gruß Edgar