.docx mit Office Xp Komponenten

[igel457]

Einfach ist relativ - es sollte relativ einfach sein ein einfaches Dokument selbst zu erstellen - es ging ja nicht um das auslesen.

[fishbrain]

Aber es ist denk ich noch einfacher wdFormatDocumentDefault zu deklarieren.
Kanns grad leider nicht testen, bin mir aber relativ sicher dasses dann geht:
Word default document file format. For Microsoft Office Word 2007, this is the DOCX format.

Vielen Dank

MFG

fishbrain

[RWarnecke]

Dieses Beispiel öffnet Word, schreibt einen Text ruft den Speichern-Dialog auf und nach dem Speichern wird Word wieder geschlossen.

Delphi-Quellcode:

type
  TForm1 = class(TForm)
    Btn_1: TButton;
    WordApp_1: TWordApplication;
    WordDoc_1: TWordDocument;
    procedure Btn_1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

{...}

procedure TForm1.Btn_1Click(Sender: TObject);
begin
  WordApp_1.Connect;
  WordApp_1.Visible := True;
  WordApp_1.Documents.Add(EmptyParam, EmptyParam, EmptyParam, EmptyParam);
  WordDoc_1.ConnectTo(WordApp_1.ActiveDocument);
  WordApp_1.Selection.TypeText('Das ist ein Testdocument');
  WordDoc_1.Save;
  WordDoc_1.Disconnect;
  WordApp_1.Quit;
end;

Es ist ein docx-Dokument. Den SaveAs-Befehl überlasse ich jetzt Dir. Good Night !!

[fishbrain]

Delphi-Quellcode:

     fileformat := wdFormatDocumentDefault;
      sdoc.SaveAs(Filename,Fileformat,LockComments,Password,AddtoRecentFiles,writePassword,
        readonlyrecommended, embedtruetypefonts, savenativePictureformat, saveformsdata, saveasaoceletter,emptyparam,emptyparam,emptyparam,emptyparam,emptyparam);

Getestet: funktioniert

[RWarnecke]

Zitat von fishbrain:

Delphi-Quellcode:

     fileformat := wdFormatDocumentDefault;
      sdoc.SaveAs(Filename,Fileformat,LockComments,Password,AddtoRecentFiles,writePassword,
        readonlyrecommended, embedtruetypefonts, savenativePictureformat, saveformsdata, saveasaoceletter,emptyparam,emptyparam,emptyparam,emptyparam,emptyparam);

Getestet: funktioniert

Ich würde Dich doch bitten, die anderen Parameter auch noch zu zeigen, wie Du Sie festgelegt hast.

[fishbrain]

Das ist in diesem Punkt doch völlig egal oder?
Aber nagut

Delphi-Quellcode:

  FileName := fpath+edit1.Text+'_'+DateToStr(Datetimepicker1.Date)+'.docx';
  LockComments := False;
  Password := EmptyParam;
  AddToRecentFiles := True;
  WritePassword := EmptyParam;
  ReadOnlyRecommended := False;
  EmbedTrueTypeFonts :=False;
  SaveNativePictureFormat := False;
  SaveFormsData := False;
  SaveAsAOCELetter := False;

Der Rest einfach emptyParam.