Einzelnen Beitrag anzeigen

ghubi01

Registriert seit: 18. Nov 2017
121 Beiträge
 
Delphi 12 Athens
 
#10

AW: Delphi - Text in Wordtabelle zentrieren

  Alt 18. Okt 2018, 13:50
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;
  ...
  Mit Zitat antworten Zitat