creation fichier word en texte sous vba excel

bonjour,

j'ai fait un code sous vba excel 2003 pour enregistrer un fichier word en fichier .txt

Code:

---

document_word.SaveAs chemin_txt & "PA0001.txt", FileFormat = wdFormatText

---

le fichier obtenu est sous la forme d'un fichier txt (voir fichier 1 qui ne me convient pas) et quand je fais la minipulation manuellement sous word j'obients le fichier n°2 qui me convient (dans word : enregistrer sous/type de fichier texte brut/conversion de fichier windows par defaut seulement)

Bien sur je vais traiter une multitude de fichier par une boucle car manuellement ce n'est pas realisable
Pouvez vous m'aider ?

Cordialement

Bonjour.

C'est plutôt une question pour le forum Word, mais je crois qu'il faut préciser les paramètres de codage, par exemple

Code:

---

Encoding:=1252, InsertLineBreaks:=False, AllowSubstitutions:=False, LineEnding:=wdCRLF

---

Voir la documentation de la méthode Document.Saveas

Cordialement,

PGZ

avec vos parametre d'identification c'est la meme chose

Bonjour,
Voici un code à placer dans un module du classeur.
Ouvre un document Word se trouvant dans un répertoire déterminé et le sauvant sous format txt
Variables :
Rep : Le nom du répertoire où sera chargé le document et sauvé le txt
Doc : Le nom du docment
DocTo : Le nom du document txt
Ne pas oublié de référencer Microsoft word xx.x 0bject Library - (Outils/Références...)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Sub SauveSousTxt() ' Nécessite le référencement à 'Microsoft word xx.x 0bject Library' (Outils/Références...) Dim owrd As Word.Application Dim odoc As Document, docTo As String Dim Rep As String, Doc As String Set owrd = New Word.Application owrd.Visible = False ' Mettre la propriété à True si l'on veux voir le document Rep = "Z:\Développement\Aide Forums\XXX\" Doc = "monDoc" docTo = "Doc Test" Set odoc = owrd.Documents.Open(Rep & Doc & ".doc")   odoc.SaveAs Filename:=Rep & docTo & ".txt", FileFormat:=wdFormatText, _ Encoding:=1252, InsertLineBreaks:=True, AllowSubstitutions:=True   owrd.Quit ' Enlever si l'on veux rester dans l'application   Set owrd = Nothing Set odoc = Nothing End Sub

---

référencer Microsoft word xx.x 0bject Library

moi j'ai la version Microsoft word 11.0 0bject Library et la declaration dim as word.document ne fonctionne pas

comment faire ?

Citation:

---

la declaration dim as word.document ne fonctionne pas

---

Cette déclaration ne fait pas partie du code qui t'a été proposé.
Frotte tes lunettes et regarde à nouveau. :mouarf:

Bonjour,

Citation:

---

Envoyé par pulco41

référencer Microsoft word xx.x 0bject Library
moi j'ai la version Microsoft word 11.0 0bject Library et la declaration dim as word.document ne fonctionne pas
comment faire ?

---

Le référencement se fait comme je l'ai indiqué.

Citation:

---

Ne pas oublié de référencer Microsoft word xx.x 0bject Library - (Outils/Références...)

---

Autrement dit, dans l'éditeur Visual Basic (VBE) tu as le menu Outils et ensuite Références ...
Là, tu sélectionnes (pour Office 2003) Microsoft word 11.0 0bject Library ensuite si tu as recopié tel quel le code proposé, en modifiant bien sûr les 3 variables Rep, Doc et docTo en fonction de tes besoins, cela fonctionnera.