Fernsteuerung von Word

[MaxMara]

Hallo Leute.

Ich habe derzeit ein kleines Problem mit Word und Delphi 7. Ich möchte über meine Delphiapplikation einen Datenbankquery (ich verwende die MyComponents) machen und das Ergebnis davon als Adressetiketten in Word ausgeben.
Das ganze funktioniert zwar, aber nur ziiiiemlich langsam. Im Endeffekt sollen immer so ca. 9000 Etiketten ausgegeben werden, dass würde dann in etwa 1 Stunde dauern bis alles im Worddokument drinnen ist.

Das ganze sieht so aus:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  FileName, ov : OleVariant;
  AdrStr : String;
  Counter,Anzahl : Integer;

begin
   with MySQLDataset1 do begin
       ClearMacros;
       TableName := 'adr_adressen';
       MacroByName('JOIN').AsString := 'INNER JOIN adr_countries ON (adr_adressen.adr_cou_id = adr_countries.cou_id)';
       MacroByName('WHERE').AsString := 'WHERE adr_kat1_id like "%bc%"';
       MacroByName('ORDER').AsString := 'order by adr_countries.cou_name, adr_adressen.adr_plz';
       open;
   end;
   Anzahl := MySQLServer1.DatasetFrom('Select count(*) as MyMenCount from adr_adressen WHERE adr_kat1_id like "%bc%"','MyCount').FieldByName('MyMenCount').AsInteger;
   MySQLServer1.FreeDataset('MyMenCount');
  Progressbar1.Max := Anzahl;
  Progressbar1.Step := 1;
  if OpenDialog1.Execute then
    FileName:=OpenDialog1.FileName
  else
    exit;
  WordApplication1.Connect;
  WordApplication1.Documents.OpenOld(FileName, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam);
  WordDocument1.ConnectTo(WordApplication1.ActiveDocument);
  Counter := 1;
  WordApplication1.Visible := true;
  while not MySQLDataset1.Eof do begin
      AdrStr :=   MySQLDataset1.FieldByName('adr_anrede').AsString + ' ' + MySQLDataset1.FieldByName('adr_titel').AsString + Chr(13);
      if (MySQLDataset1.FieldByName('adr_vorname').AsString = '') and (MySQLDataset1.FieldByName('adr_nachname').AsString = '') then
         AdrStr := AdrStr + MySQLDataset1.FieldByName('adr_institut').AsString + Chr(13)
      else
         AdrStr := AdrStr + MySQLDataset1.FieldByName('adr_vorname').AsString + ' ' + MySQLDataset1.FieldByName('adr_nachname').AsString + Chr(13);
      AdrStr := AdrStr +
                MySQLDataset1.FieldByName('adr_strasse').AsString + Chr(13) +
                MySQLDataset1.FieldByName('adr_plz').AsString + ' ' + MySQLDataset1.FieldByName('adr_ort').AsString;
      WordApplication1.Selection.TypeText(AdrStr);
      if MySQLDataset1.FieldByName('adr_cou_id').AsInteger <> 153 then
      begin
         AdrStr := Chr(13) +  MySQLDataset1.FieldByName('cou_name').AsString;
         WordApplication1.Selection.Font.Bold := integer(True);
         WordApplication1.Selection.TypeText(AdrStr);
         WordApplication1.Selection.Font.Bold := integer(False);
      end;
      If counter <> 3 then
        WordApplication1.Selection.Cells.Item(1).Next.Select;
      If Counter = 3 then
      begin
        ov := 1;
        WordApplication1.Selection.InsertRowsBelow(ov);
        Counter := 0;
      end;
      MySQLDataset1.Next;
      Counter := Counter + 1;
      Progressbar1.StepIt;
  end;
  WordApplication1.Disconnect;
  MySQLDataset1.Close;
end;

Hat jemand von euch eine schnellere Lösung für mich bzw. einen Tipp was ich da machen könnte?

Vielen Dank und Grüße aus Wien
Christian.

BTW: Happy Birthday Daniel