Rahmen in der Kopfzeile von Word zeichnen (OLE)

[little_budda]

Hallo,

ich habe folgenden Code mit dem Makrorecorder von Word aufgezeichnet

Delphi-Quellcode:

// Dies ist VBA Code, aber als Zitat wird er leider nicht eingerückt dargestellt
    With Selection.ParagraphFormat
        .Borders(wdBorderLeft).LineStyle = wdLineStyleNone
        .Borders(wdBorderRight).LineStyle = wdLineStyleNone
        .Borders(wdBorderTop).LineStyle = wdLineStyleNone
        With .Borders(wdBorderBottom)
            .LineStyle = wdLineStyleSingle
            .LineWidth = wdLineWidth050pt
            .ColorIndex = wdAuto
        End With
        With .Borders
            .DistanceFromTop = 1
            .DistanceFromLeft = 4
            .DistanceFromBottom = 1
            .DistanceFromRight = 4
            .Shadow = False
        End With
    End With

Nun habe ich versucht ihn in Delphi umzusetzen

Delphi-Quellcode:

...

var WordApp: OLEVariant;

...

  With WordApp.Selection.ParagraphFormat do
    begin
      Borders(-2 {=wdBorderLeft}).LineStyle := 0;  // = wdLineStyleNone
      Borders(-4 {=wdBorderRight}).LineStyle := 0; // = wdLineStyleNone
      Borders(-1 {=wdBorderTop}).LineStyle := 0;   // = wdLineStyleNone
      With Borders(-3 {=wdBorderBottom}) do
        begin
          LineStyle := 1;  // =  wdLineStyleSingle
          LineWidth := 4;  // =  wdLineWidth050pt
          ColorIndex := 0; // = wdAuto
        end;
      With Borders do
        begin
          DistanceFromTop := 1;
          DistanceFromLeft := 4;
          DistanceFromBottom := 1;
          DistanceFromRight := 4;
          Shadow := False;
        end;
    end;

Beim Compilieren bringt mir die IDE immer einen fehler "Record, Objekt oder Klassentyp erforderlich" bei
With WordApp.Selection.ParagraphFormat do Was bitte mache ich denn falsch?

Gruß Holger.