Delphi - Text in Wordtabelle zentrieren

[Nimmersatt]

Hallo,


Ich möchte einen Text in der Wordtabelle zentrieren.

Hier erst mal der Code

Delphi-Quellcode:

const wdStory = 6;

var wordTable: array[1..2] of OLEVariant;
    e: integer;

begin
  try
    Word := CreateOleObject('Word.Application');
  except
    Exit;
  end;

  Word.Visible := True;
  NewDoc := Word.Documents.Add;

  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(2,2).Range.Text :='ddd';

    wordTable[e].Borders.InsideLineStyle :=1;
    wordTable[e].Borders.outsideLineStyle :=1;

    Word.Selection.Endkey(wdStory);
    Word.Selection.TypeText(#13#10);
  end;
end;

Wie also kann der Text in den Zellen der Wordtabelle zentriert werden ?



mfg Nimmersatt

[KodeZwerg]

Vielleicht ParagraphFormat.Alignment mit Wert wdAlignParagraphCenter / wdAlignVerticalCenter ? Weiß nich genau, oder Cells.VerticalAlignment ?


Eine recht umfangreiche sammlung dazu findest du hier

[Nimmersatt]

Das ging aber schnell.


WordTab[e].Cell(1,1).VerticalAlignment:=1; Funktioniert !


WordTab[e].Cell(1,1).HorizontalAlignment:=1; Funktioniert nicht !

[Nimmersatt]

Kann sich das jemand erklären, warum HorizontalAlignment im Gegensatz zu VerticalAlignment nicht funktioniert ?

[p80286]

Die frage ist wofür "1" steht. Left- Right Align Center.....
UU muß auch nicht das Alignment der Zelle sondern des Absatzes definiert werden. Ggf hilft da ein Blick in die Word-Hilfe, oder aber das Makro-Protokoll.

Gruß
K-H

[KodeZwerg]

Zitat von Nimmersatt:

Kann sich das jemand erklären, warum HorizontalAlignment im Gegensatz zu VerticalAlignment nicht funktioniert ?

Ich bräuchte eine aktuelle TLB um nachzuschauen, kannst du eine erstellen und hochladen? (bitte als datei, als text wird das hier zu lang)

[Jumpy]

Es gibt die Eigenschaft HorizontalAlignment in Word Tables nicht. Hab gerade einfach mal in Word-VBA nachgeschaut!
Das ist mMn bei Office-Automation eh immer das sinnvollste. Mach das zunächst rudimentär und/oder mit dem Makro-Editor in dem Programm (Excel,Word,...) selber und dann übertrag das nach Delphi.

[Nimmersatt]

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

Vielen Dank an alle.


mfg Nimmersatt

[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;
  ...