Einzelnen Beitrag anzeigen

Progman

Registriert seit: 31. Aug 2007
Ort: 99974 MHL
695 Beiträge
 
Delphi 10.1 Berlin Starter
 
#4

Re: Word-Dokument seitenweise splitten

  Alt 18. Okt 2007, 19:37
Hier ein Codefragment (damals noch Delphi 6).
Es wurde ein Worddocument mit Word geöffnet und als RTF gespeichert.
Auf dem Form liegen:
Delphi-Quellcode:
    Word_App: TWordApplication;
    Word_Doc: TWordDocument;

//die eigentliche Routine
    try
      Word_App.Connect;
    except
      ShowMessage('MS-Word scheint nicht installiert zu sein!');
      Exit;
    end;
// Word_App.Visible:=True;
    try
      Word_App.Documents.OpenOld(wDocFileOpenName,EmptyParam,EmptyParam,wdAddToRecent,
                    EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam);
      Pause:=True;
      Word_App.ActiveDocument.SaveAs(wRTFTempName,wdFormatRTF,EmptyParam,EmptyParam,
        wdAddToRecent,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam);
    finally
      Word_App.ActiveDocument.Close(wdSaveChanges,EmptyParam,EmptyParam);
      Word_App.Quit(wdSaveChanges);
      Word_App.Disconnect;
    end;
Vielleicht hilfts dir was, man müsste mal die ganzem Parameter erforschen.
Ich könnte mir vorstellen, dass es möglich ist, was du vorhast.
Karl-Heinz
Populanten von Domizilen mit fragiler, transparenter Aussenstruktur sollten sich von der Translation von gegen Deformierung resistenter Materie distanzieren!
(Wer im Glashaus sitzt sollte nicht mit Steinen werfen)
  Mit Zitat antworten Zitat