Delphi 5 & Word 2000

Der følger et eksempel med delphi:
C:\\Programmer\\Borland\\Delphi5\\Demos\\Activex\\Oleauto\\Word8

I delphi 5 er der en række komponenter du kan bruge, og som eksemplet som gummiand henviser til også bruger, men du kan også tage et kig på TurboPowers \"MS Office\" komponenter, der er væsentligt bedre (og lettere) at bruge end Borlands. Tilgengæld koster de desværre også.

Men tag evt. et kig på www.turbopower.com

En lidt mere tricky metode hvor du slipper for delphis word-komponenter:

Lav dit dokument som en TRichedit.
Lav en Quickreport der kun indeholder et titleband men en TQRRichText. Læg dit dokument i den og eksporter rapporten med TQRRTFFilter.

Det virker, og laver pæne word(rtf)-dokumenter.

Jeg kan dog ikke lige huske om eksportfiltrene er med i den skrabede version der følger med delphi, ellers kig hos www.qusoft.com

>gummiand 
Har du et eksempel, hvor du bruger Quickreport ogTQRRTFFilter

Hilsen
@nna

Fuck - filteret nægter selvfølgelig at eksportere TQRRichText.

Metoden kan godt bruges, men så skal du komponere dokumentet vha TQRLabel\'s TQRMemo\'s o. lign, men hvis du ikke vil bruge den samme font i hele dokumentet bliver det hurtigt besværligt.

Jeg checkker lige hos QuSoft om hvorfor det ikke virker.

Du får eksemplet alligevel, måske er der nogen der kan forbedre det. Du kan hente hele projektet her www.f-ld.dk/public/2word.zip

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  QuickRpt, Qrctrls, ExtCtrls, StdCtrls, ComCtrls, QRExport;

type
  TForm1 = class(TForm)
    QuickRep1: TQuickRep;
    PreView: TButton;
    Eksport: TButton;
    RichEdit1: TRichEdit;
    TitleBand1: TQRBand;
    QRLabel1: TQRLabel;
    QRRichText1: TQRRichText;
    QRMemo1: TQRMemo;
    procedure PreViewClick(Sender: TObject);
    procedure EksportClick(Sender: TObject);
    procedure TitleBand1BeforePrint(Sender: TQRCustomBand;
      var PrintBand: Boolean);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.PreViewClick(Sender: TObject);
begin
  QuickRep1.Preview;
end;

procedure TForm1.EksportClick(Sender: TObject);
var W: TQRRTFExportFilter;
begin
  W := TQRRTFExportFilter.Create(\'d:\\projekt\\richedit\\dokument.rtf\');
  try
      QuickRep1.ExportToFilter(W)
  finally
      W.Free;
  end;
end;

procedure TForm1.TitleBand1BeforePrint(Sender: TQRCustomBand;
  var PrintBand: Boolean);
begin
  QRRichtext1.ParentRichEdit := RichEdit1;
  with QRRichtext1.ParentRichEdit, Lines do  {eksporteres ikke}
  begin
      Clear;
      Add(\'Hello World\');
      SelAttributes.Style := [fsBold];
      SelAttributes.Color := clRed;
      Add(\'GoodBye World\');
  end;

  with QRMemo1, Lines do {ingen mulighed for skiftene fonte}
  begin
      Font.Name := \'Arial\';
      Font.Size := 24;
      Clear;
      Add(\'Hello World\');
      Add(\'GoodBye World\');
  end;
end;

end.

Her er hvad jeg kunne få ud af QuSoft:

The TQRRichText, TQRDBRichText, TQRShape, TQRImage, TQRDBImage controls are not supported for the export filters (except for the WMF filter).  One workaround would be to use a TQRDBText control for the RTF data and enable it (and disable the RTF control) when the report\'s Exporting property is set to true.

Tja....