Delphi - Text in Wordtabelle zentrieren

[p80286]

Zitat von Nimmersatt:

Da ich nicht zu viel Zeit verschwenden will, habe ich die Notlösung genommen - am Anfang des Textes ein paar Leerzeichen eingefügt.

Sehr clever!
Wenn Du jetzt noch alle Tabulatoren durch Leerzeichen ersetzt und 0 durch O bist Du auf dem Stand vor 40 Jahren.

*kopfschüttelnd*
K-H

[ghubi01]

Hallo Nimmersatt,

hier etwas gegen die "Not"

Delphi-Quellcode:

  ...
   for e:=1 to 2 do
   begin
     WordTable[e]:=NewDoc.Tables.Add(Word.Selection.Range,2,2);

     WordTable[e].Cell(1,1).Range.Text :='aaa';
     WordTable[e].Cell(1,2).Range.Text :='bbb';
     WordTable[e].Cell(2,1).Range.Text :='ccc';
     WordTable[e].Cell(3,2).Range.Text :='ddd';

     //*********************
     // Vertikal zentrieren
     WordTable[e].Cell(1,1).VerticalAlignment:=1; // 1 = Mitte; 3 = Unten
     // Horizental zentrieren
     WordTable[e].Cell(1,1).Range.ParagraphFormat.Alignment:=1;
     //Damit man auch was sieht Zeilenhöhe ändern :-)
     WordTable[e].Rows.SetHeight(60,2);
     //*********************

     wordTable[e].Borders.InsideLineStyle :=1;
     wordTable[e].Borders.outsideLineStyle :=1;
     Word.Selection.Endkey(6);   //wdStory = 6
     Word.Selection.TypeText(#13#10);
   end;
  ...

[Nimmersatt]

Hallo Ghubi01,


WordTable[e].Cell(1,1).Range.ParagraphFormat.Alignment:=1;

Danke !

ParagraphFormat.Alignment hatte ich auch auf dem Radar, konnte es aber nicht umsetzen.



mfg Nimmersatt