Discussion :

[pitite]

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 :

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

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 :

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

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

[AcidLines]

Bonjour,

Dans ton catch, si tu met

Code :

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

msgbox(ex.tostring)

il te retourne quoi comme erreur ?

[pitite]

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

[AcidLines]

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 :

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

1
2
3
4
 
if file.exist(tonPath) then
 'Ton traitement
end if

[franticfranz]

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

[LeCygne]

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

Code :

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

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 :

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

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 :

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

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