Je cherche une procédure qui me permette de convertir des fichiers .doc en
fichier .txt au besoin en utilisant word et/ou vb.(Plusieurs dizaine de
milliers de fichiers)
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
François Picalausa
Hello,
Tu peux utiliser en VB ou en VBA la fonction Dir: Dim strBuffer As String
strBuffer = Dir("c:toto*.doc")
Do While Len(strBuffer) strBuffer = Dir Loop
Tu pourra ensuite traiter le fichier par le modèle automation Word, comme dans cet exemple: 'Ajouter Microsoft Word x.y Object Library dans les références 'Ou créer en late-binding : CreateObject("Word.Application") 'Pour cet exemple, la première méthode a été préférée 'voir la faq pour plus d'infos: 'http://faq.vb.free.fr/index.php?question4
'Création d'un nouvel objet Word Dim WordApp As Word.Application Set WordApp = New Word.Application
'Ouverture d'un document Dim Doc As Word.Document Set Doc = WordApp.Documents.Open("C:test.doc")
'Affichage du contenu Debug.Print Doc.Range.Text
'Ferme le document Doc.Close Set Doc = Nothing
'Ferme Word WordApp.Quit Set WordApp = Nothing
Pour écrire le contenu dans un fichier, tu pourra utiliser Open/Put/Close: Dim FFN As Integer
FFN = FreeFile
Open "c:output.txt" For Binary As FFN Put #FFN, , "Ce texte sera écrit dans le fichier" Close FFN
-- François Picalausa (MVP VB) http://faq.vb.free.fr --- http://msdn.microsoft.com http://apisvb.europe.webmatrixhosting.net
"Serge Delandsheere" a écrit dans le message de news:40bb73ad$0$8390$
Je cherche une procédure qui me permette de convertir des fichiers .doc en fichier .txt au besoin en utilisant word et/ou vb.(Plusieurs dizaine de milliers de fichiers)
Merci
Hello,
Tu peux utiliser en VB ou en VBA la fonction Dir:
Dim strBuffer As String
strBuffer = Dir("c:toto*.doc")
Do While Len(strBuffer)
strBuffer = Dir
Loop
Tu pourra ensuite traiter le fichier par le modèle automation Word, comme
dans cet exemple:
'Ajouter Microsoft Word x.y Object Library dans les références
'Ou créer en late-binding : CreateObject("Word.Application")
'Pour cet exemple, la première méthode a été préférée
'voir la faq pour plus d'infos:
'http://faq.vb.free.fr/index.php?question4
'Création d'un nouvel objet Word
Dim WordApp As Word.Application
Set WordApp = New Word.Application
'Ouverture d'un document
Dim Doc As Word.Document
Set Doc = WordApp.Documents.Open("C:test.doc")
'Affichage du contenu
Debug.Print Doc.Range.Text
'Ferme le document
Doc.Close
Set Doc = Nothing
'Ferme Word
WordApp.Quit
Set WordApp = Nothing
Pour écrire le contenu dans un fichier, tu pourra utiliser Open/Put/Close:
Dim FFN As Integer
FFN = FreeFile
Open "c:output.txt" For Binary As FFN
Put #FFN, , "Ce texte sera écrit dans le fichier"
Close FFN
--
François Picalausa (MVP VB)
http://faq.vb.free.fr --- http://msdn.microsoft.com
http://apisvb.europe.webmatrixhosting.net
"Serge Delandsheere" <serge.delandsheere@busmail.net> a écrit dans le
message de news:40bb73ad$0$8390$a0ced6e1@news.skynet.be
Je cherche une procédure qui me permette de convertir des fichiers
.doc en fichier .txt au besoin en utilisant word et/ou vb.(Plusieurs
dizaine de milliers de fichiers)
Tu peux utiliser en VB ou en VBA la fonction Dir: Dim strBuffer As String
strBuffer = Dir("c:toto*.doc")
Do While Len(strBuffer) strBuffer = Dir Loop
Tu pourra ensuite traiter le fichier par le modèle automation Word, comme dans cet exemple: 'Ajouter Microsoft Word x.y Object Library dans les références 'Ou créer en late-binding : CreateObject("Word.Application") 'Pour cet exemple, la première méthode a été préférée 'voir la faq pour plus d'infos: 'http://faq.vb.free.fr/index.php?question4
'Création d'un nouvel objet Word Dim WordApp As Word.Application Set WordApp = New Word.Application
'Ouverture d'un document Dim Doc As Word.Document Set Doc = WordApp.Documents.Open("C:test.doc")
'Affichage du contenu Debug.Print Doc.Range.Text
'Ferme le document Doc.Close Set Doc = Nothing
'Ferme Word WordApp.Quit Set WordApp = Nothing
Pour écrire le contenu dans un fichier, tu pourra utiliser Open/Put/Close: Dim FFN As Integer
FFN = FreeFile
Open "c:output.txt" For Binary As FFN Put #FFN, , "Ce texte sera écrit dans le fichier" Close FFN
-- François Picalausa (MVP VB) http://faq.vb.free.fr --- http://msdn.microsoft.com http://apisvb.europe.webmatrixhosting.net
"Serge Delandsheere" a écrit dans le message de news:40bb73ad$0$8390$
Je cherche une procédure qui me permette de convertir des fichiers .doc en fichier .txt au besoin en utilisant word et/ou vb.(Plusieurs dizaine de milliers de fichiers)
