Rahmen in der Kopfzeile von Word zeichnen (OLE)

[little_budda]

Ich habs.
So gehts

Delphi-Quellcode:

WordApp.Selection.ParagraphFormat.Borders.item(-2).LineStyle := 0;

Danke für die Hilfe

[p80286]

Hallo Little_budda,

Du warst eine ganze Ecke schneller als ich. Hier meine Version (index als Hex-Darstellung).

Delphi-Quellcode:

  msword.Selection.ParagraphFormat.Borders.item($FFFFFFFE).LineStyle:= 0;

  msword.Selection.ParagraphFormat.Borders.item($FFFFFFFC).LineStyle:= 0;
  msword.Selection.ParagraphFormat.Borders.item($FFFFFFFF).LineStyle:= 0;


  msword.Selection.ParagraphFormat.Borders.item($FFFFFFFD).LineStyle := 1 ;
  msword.Selection.ParagraphFormat.Borders.item($FFFFFFFD).LineWidth := 4 ;
  msword.Selection.ParagraphFormat.Borders.item($FFFFFFFD).ColorIndex := 0;

  msword.Selection.ParagraphFormat.Borders.DistanceFromTop := 1;
  msword.Selection.ParagraphFormat.Borders.DistanceFromLeft := 4 ;
  msword.Selection.ParagraphFormat.Borders.DistanceFromBottom := 1;
  msword.Selection.ParagraphFormat.Borders.DistanceFromRight := 4 ;
  msword.Selection.ParagraphFormat.Borders.Shadow := False       ;

Grüße
K-H