Exporter chaque ligne en fichier texte

Bonjour,

Je me permets de vous contacter après plusieurs heures de recherche sans succès, j'ai besoin de votre aide.

J'aimerais savoir comment faire pour exporter chaque ligne d'un document type texte/word ou calcul/excel en fichier texte avec le nom de chaque ligne.

Je m'explique (ma liste fait plusieurs centaines de lignes) par exemple :

Maison Bleue

Voiture Rouge

Boite Noire

Devienne 3 fichiers texte

Maison Bleue.txt

Voiture Rouge.txt

Boite Noire.txt

Je vous remercie par avance de votre aide

Bonjour Fredanas et

Attention !

Le codage sur Word est totalement différent du codage sur Excel et pour ce que vous souhaitez il faut passer, je pense, pas du VBA

@+

Bonjour

Pour découper en VBA chaque paragraphe d'un document Word en utilisant les deux premiers mots de chaque paragraphe.

Sub saveparagraphs()
Dim wrd, wrd1, wrd2
Dim cntWords
Dim numWord
Dim numParag
Dim numWordparag

 cntWords = ActiveDocument.Words.count
numParag = 1
numWordparag = 1
 For numWord = 1 To cntWords
  wrd = ActiveDocument.Range(start:=ActiveDocument.Words(numWord).start, _
 End:=ActiveDocument.Words(numWord).End)
 If wrd1 = "" Then
    wrd1 = wrd
 ElseIf wrd2 = "" Then
   wrd2 = wrd
  End If
  If wrd = vbCr Then
   Dim car
   Open Replace(wrd1, " ", "") & "_" & Replace(wrd2, " ", "") & ".txt" For Output As #1
   Print #1, ActiveDocument.Range(start:=ActiveDocument.Words(numWordparag).start, _
 End:=ActiveDocument.Words(numWord).End).Text
   Close #1
   numParag = numParag + 1
   wrd1 = "": wrd2 = ""
   numWordparag = numParag
 End If
 Next
End Sub

Merci beaucoup Scraper ^^