Peut-on sauvegarder un document Word sous format pdf ?

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:

---

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.

Bonjour,

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

Code:

---

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;

---

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... :question:

hello,

Citation:

---

Envoyé par 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:

---

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 :mouarf: :

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 :

Citation:

---

"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

Citation:

---

Envoyé par jurassic pork

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. :plusser:

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é.

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