Précédent   Forum des professionnels en informatique > Logiciels > Microsoft Office > Word > VBA Word
Partagez cette discussion sur d'autres réseaux sociaux : Viadeo Twitter Google Facebook Digg Delicious MySpace Yahoo
Réponse Proposer ce sujet en actualité
 
Outils de la discussion
Publicité
'
Vieux 25/07/2006, 16h42   #1
Nouveau Membre du Club
 
Inscription : décembre 2005
Messages : 169
Détails du profil
Informations forums :
Inscription : décembre 2005
Messages : 169
Points : 30
Points : 30
Par défaut [VBA WORD] Conversion

Bonjour,

J'ai un fichier word ".doc" que je voudrai convertir en ".txt"

Je pense que la solution serait du coté de la methode Saveas mais lorsque j'utilise la propriété fileformat et qu'il me l'enregistre en ".txt" et que j'ouvre ce dernier je n'ai pas du tout ce que j'ai rentré a la base sous word.

Il y a pleins de caractères bizarre.

Merci
forsay1 est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 25/07/2006, 16h54   #2
Membre chevronné
 
Avatar de Theocourant
 
Inscription : janvier 2005
Messages : 618
Détails du profil
Informations personnelles :
Âge : 34
Localisation : France

Informations forums :
Inscription : janvier 2005
Messages : 618
Points : 700
Points : 700
Bonjour,

Un peu de code ferait du bien...

+

Théo
__________________
Forums VB : lire la notice
La touche existe pour être utilisée
Pensez au tag
Pour ceux n'ayant pas l'aide installée :
- Aide MSDN pour VB6
- Aide MSDN pour VBA
Je ne réponds pas aux questions techniques par MP. Merci d'utiliser le forum fait pour çà.
Theocourant est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 25/07/2006, 18h08   #3
Rédacteur
 
Homme michel Tanguy
Inscription : août 2005
Messages : 3 317
Détails du profil
Informations personnelles :
Nom : Homme michel Tanguy
Localisation : France, Isère (Rhône Alpes)

Informations professionnelles :
Secteur : Industrie

Informations forums :
Inscription : août 2005
Messages : 3 317
Points : 10 706
Points : 10 706
bonjour

j'espere que cet exemple pourra t'aider

Code :
1
2
3
4
5
6
7
8
9
Dim appWord As Object, docWord As Object
 
Set appWord = CreateObject("Word.Application")
appWord.Visible = True
Set docWord = appWord.Documents.Open("c:\leDocument.doc")
 
docWord.SaveAs "C:\laSauvegarde.txt", 2 'wdFormatText=2
docWord.Close
appWord.Quit


bonne soiree
michel
SilkyRoad est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 26/07/2006, 00h22   #4
Nouveau Membre du Club
 
Inscription : décembre 2005
Messages : 169
Détails du profil
Informations forums :
Inscription : décembre 2005
Messages : 169
Points : 30
Points : 30
Merci bcp
forsay1 est déconnecté   Envoyer un message privé Réponse avec citation 00
Réponse Proposer ce sujet en actualité Cette discussion est résolue.
Outils de la discussion



Fuseau horaire GMT +2. Il est actuellement 11h55.


 
 
 
 
Partenaires

Hébergement Web