Conversion .docx to .doc (automation)

Bonjour,

j'essaie de convertir un .docx en .doc (.docx -> .rtf -> .doc) en utilisant l'automation avec wordcnv.dll mais cela ne fonctionne pas :( Qui peut me dire où est mon erreur ?

Code:

---

1 2 3

Declare Function foreignToRtf Lib "wordcnv.dll" Alias "ForeignToRtf" (ghszFile As IntPtr, ByRef pstgForeign As Object, ghBuff As IntPtr, ghszClass As IntPtr, ghszSubset As IntPtr, lpfnOut As Long) As Long ' Declare Function rtfToForeign Lib "wordcnv.dll" Alias "RtfToForeign" (ghszFile As IntPtr, ByRef pstgForeign As Object, ghBuff As IntPtr, ghszClass As IntPtr, ghszSubset As IntPtr, lpfnOut As Long) As Long

---

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

'Convert .docx to .doc Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Try oWord = CreateObject("Word.Application") oWord.Visible = True oDoc = oWord.Documents.Add("C:\Utilisateurs\lculot\Documents\Exemple.docx") oDoc.foreignToRtf() oDoc.rtfToForeign() Catch ex As Exception MessageBox.Show("Impossible de convertir le document") End Try End Sub

---

Bonjour,

Dans ton catch, si tu met

Code:

---

msgbox(ex.tostring)

---

il te retourne quoi comme erreur ?

Citation:

---

System.Runtime.InteropServices.COMException(0x800A141F): Word n'a pas pu lire ce document. Il est peut-être corrompu.
Essayez l'une ou plusieurs des opérations suivantes :
* Ouvrez et réparez le fichier
* Ouvrez le fichier avec le convertisseur Récupération de texte.
à Microsoft.Office.Interop.WordDocument.Add(Object& Template, Object& New Template, Object& DocumentType, Object& Visible)
à OuvertureWord.Form1.Button2_Click(Object sender, EventArgs e) dans C:\Users\lculot\Documents\OuvertureWord\OuvertureWord\Form.vb:ligne44

---

Avec une petite recherche sur Google de tonexception, je suis tombé sur ceci :

http://social.msdn.microsoft.com/for...5-60bc2ebdbf54

Et il s'agirait peut être d'une erreur du path du templates de ton document.
Vérifie l'emplacement de ton docx par rapport à ton code.

Peut être rajouter la condition avant traitement :

Code:

---

1 2 3 4

if file.exist(tonPath) then 'Ton traitement end if

---

Bonjour,

La question est idiote, mais je me sens obligé de la poser : Quelle version de wordcnv.dll utilisez vous ? Vous êtes vous assurée que cette version est apte à lire du format DOCX ?

Ca permet d'éliminer les pistes les plus évidentes...

Normal que cela ne fonctionne pas, "Add" sert a cree un nouveau document word dans "oWord" (qui represente un programme word).

Code:

---

1 2 3

'Faux 'oDoc = oWord.Documents.Add("C:\Utilisateurs\lculot\Documents\Exemple.docx") oDoc = oWord.Documents.Add( )

---

Oubliez donc "Add", et utilisez plutot "Open" :

Code:

---

1 2 3 4

'Ouverture normale : oDoc = oWord.Documents.Open("C:\Utilisateurs\lculot\Documents\Exemple.docx") 'Ouverture en lecture seulle : oDoc = oWord.Documents.Open("C:\Utilisateurs\lculot\Documents\Exemple.docx", ReadOnly:=True)

---

Une fois le document ouvert, il faut l'enregistrer :

Code:

---

oDoc.SaveAs("C:\Utilisateurs\lculot\Documents\Exemple.doc", WdSaveFormat.wdFormatDocument)

---

J'espere vous avoir au moins permis d'ouvrir et enregistrer votre document. Je ne sais cependant pas si le document enregistré sera au format word 2003 ou s'il restera au format 2007. Il faudra peut être jouer avec les nombreux autres arguments de la fonction "SaveAs"...
Je n'ai testé aucunes de ces lignes, il est donc possible qu'il y ait quelques erreurs. Voici la source dont je me suis inspiré : http://msdn.microsoft.com/fr-be/libr...(v=vs.80).aspx