1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:

procedure TFAnwendung.Drucken1Click(Sender: TObject);
var WordTabelle: OleVariant; //Name der Tabelle die erzeugt werden soll
    FileName, docx :OleVariant; //Schnittstellenvariable
begin
  //Name des zu öffnenden Dokumentes
  FileName := 'C:\Users\Dennis\Delphi Projekte\Projekte\Tankdaten.docx';
  //Verbindung zu Word aktivieren
  WordApplication1.Connect;
  //Dokument öffnen
  WordApplication1.Documents.OpenOld(FileName, EmptyParam, EmptyParam,
                                     EmptyParam, EmptyParam, EmptyParam,
                                     EmptyParam, EmptyParam, EmptyParam,
                                     EmptyParam);
  //Verbindung zum aktiven Dokument
  WordDocument1.ConnectTo(WordApplication1.ActiveDocument);
  //Word sichtbar machen
  WordApplication1.Visible := True;
  //Übergabe des aktiven Dokumentsin die Variable doc
  docx := WordApplication1.ActiveDocument;
  //Tabelle erzeugen  mit 5 Zeilen und 5 Spalten
  WordTabelle := docx.Tables.Add(WordApplication1.selection.range, 5, 5,
                 emptyParam,emptyParam) ;
  //Keine Rahmen: links, rechts, oben, unten
  WordTabelle.borders.item(wdBorderLeft).LineStyle := wdLineStyleNone;
  WordTabelle.Borders.item(wdBorderRight).LineStyle := wdLineStyleNone;
  WordTabelle.Borders.item(wdBorderTop).LineStyle := wdLineStyleNone;
  WordTabelle.Borders.item(wdBorderBottom).LineStyle := wdLineStyleNone;

  //!!!!!!!!!!!Der Index einer Tabelle in Word beginnt immer mit 1,
  //nicht mit 0 wie in Delphi!!!!!!!!!!!!!!!!!!!!!!!
  //Schriftgröße in der 2. Zeile und 2. Spalte auf 14 setzen
  WordTabelle.cell(2,2).range.font.size := 14;
  //Schriftgrad in der 2. Zeile und 2.Spalte aud Fett setzen
  WordTabelle.cell(2,2).range.font.bold := true;
  //Textübergabe in die 2. Zeile und 2. Spalte
  WordTabelle.cell(2,2).range.text := 'Testdaten';
end;