Discussion :

[tonton67]

Bonjour,
A partir de Lazarus (version 2.0.10), je manipule un document word ".DOT", que je sauvegarde en ".doc" et tout marche. Mais si j'essaie de le sauvegarder en pdf, j'ai l'erreur suivante :

Le projet projet1 a levé une classe d'exception "EOleError" avec le message :
Method 'SaveAs' is not supported by automation object.

voilà le code de test :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
procedure TForm1.ToPDFClick(Sender: TObject);
var
  wd:TOfficeDocumentConverter;
begin
  wd := TOfficeDocumentConverter.Create(Nil, False);
  wd.Convert('D:\Test\Doc1.doc', 'D:\Test\Doc1.pdf', 17);
  wd.Free;
end;

Merci d'avance.

[Chrispi]

Bonjour,

Voilà le code que j'ai trouvé. Je l'ai essayé. Il fonctionne chez moi mais parfois il produit aussi une erreur.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
uses
  ComObj;
const
  wdExportFormatPDF = 17;
var 
  Word, Doc: OleVariant;
begin
  Word := CreateOLEObject('Word.Application');
  Doc := Word.Documents.Open('C:\Document.docx');
  Doc.ExportAsFixedFormat('C:\Document.pdf', wdExportFormatPDF);
end;

[Chrispi]

Il y a un problème. Il faut ouvrir et refermer préalablement 2 fois le fichier avec Word, pour qu'il y ait génération du fichier en pdf. Etonnant...

[jurassic pork]

hello,

Bonjour,
A partir de Lazarus (version 2.0.10), je manipule un document word ".DOT", que je sauvegarde en ".doc" et tout marche. Mais si j'essaie de le sauvegarder en pdf, j'ai l'erreur suivante :
Le projet projet1 a levé une classe d'exception "EOleError" avec le message :
Method 'SaveAs' is not supported by automation object.
voilà le code de test :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
procedure TForm1.ToPDFClick(Sender: TObject);
var
  wd:TOfficeDocumentConverter;
begin
  wd := TOfficeDocumentConverter.Create(Nil, False);
  wd.Convert('D:\Test\Doc1.doc', 'D:\Test\Doc1.pdf', 17);
  wd.Free;
end;

Merci d'avance.

Il me semble que tu ne nous as pas tout dit :

1 - Apparemment tu utilises la classe TOfficeDocumentConverter qui n'est pas une classe incluse dans Lazarus. Il me semble qu'elle est ici . Elle utilise Word par son objet COM donc
2 - Quelle version de word utilises-tu ?

Pour faire ce type de conversion tu pourrais aussi utiliser LibreOffice en ligne de commande avec un TProcess.
exemple :

"C:\Program Files (x86)\LibreOffice 5\program\soffice.exe" -headless -convert-to pdf:writer_pdf_Export -outdir C:\temp C:\temp\a.docx

Ami calmant, J.P

[Roland Chastain]

Pour faire ce type de conversion tu pourrais aussi utiliser LibreOffice en ligne de commande avec un TProcess.

Intéressant, ça ! Je vais l'essayer tout de suite.

Sinon il y a pandoc, mais pour pouvoir sortir du PDF il faut installer un truc en plus. J'ai souvenir que c'était un peu compliqué.

[tonton67]

Bonsoir,
Merci pour vos interventions.
La méthode de Chrispi fonctionne parfaitement.
Merci beaucoup