Word Template zusammenführen

[EarlyBird]

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