Każdy chyba słyszał o pakiecie Microsof Office, oferujące kilka bardzo pomocnych narzędzi w tym Word i PowerPoint. Jak mogę "rozszyfrować" dokumenty tych programów bym mógł je wyświetlić w programie napisanym w delphi i potem znów zapisać do formatu *.DOCX tak by był dyspozycyjny dla Worda?
0
2
OpenOffice jest darmowy i z dostępnymi źródłami - nic nie stoi na przeszkodzie abyś przepisał go na delphi
0
Spróbuj tak:
procedure TForm2.btn2Click(Sender: TObject);
var WordApplication, WordDocument : OLEVariant;
begin
WordApplication := CreateOleObject('Word.Application') ;
WordDocument := WordApplication.Documents.Add;
WordApplication.Selection.TypeText('Hello world');
//przykład zapisu do DOC
//WordDocument.SaveAs(FileName := 'C:\Dokument.doc', AddToRecentFiles := False, FileFormat := 0);
//przykład zapisu do DOCX
WordDocument.SaveAs(FileName := 'C:\Dokument.docx', AddToRecentFiles := False, FileFormat := 16);
//przykład zapisu do PDF
//WordDocument.SaveAs(FileName := 'C:\Dokument.pdf', AddToRecentFiles := False, FileFormat := 17);
WordApplication.Quit(False);
WordDocument := Unassigned;
WordApplication := Unassigned;
end;