Discussion :

[pulco41]

bonjour,

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

Code :

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

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

[pgz]

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 :

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

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

Voir la documentation de la méthode Document.Saveas

Cordialement,

PGZ

[pulco41]

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

[Philippe Tulliez]

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 :

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

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

[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 ?

[Godzestla]

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.

[Philippe Tulliez]

Bonjour,

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

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.