Word chaque ligne de mes fichiers dans une variable (VBS)

Version imprimable

15/02/2016, 17h23
rouletabille63

Word chaque ligne de mes fichiers dans une variable (VBS)

Bonjour à tous,

Ayant plusieurs fichiers word à traiter, j’ai fait une boucle (qui marche bien) dans un script VBS et j'ai trouvé pratique de récupèrer le contenu de chacun de mes fichier en faisant un « GetObject » et ensuite j’ai une variable « x = DocWord.Range.Text ». (jusque là ça va)

Mais cette variable contient l’ensemble de ce fichier (toutes les lignes), je voudrais mettre chaque ligne dans une variable, en testant par exemple la fin de ligne, mais là je bloque (genre un "split") Quelqu’un aurait-il une idée ?

D’avance merci. :coucou:
15/02/2016, 18h02
hackoofr

Citation:

Envoyé par rouletabille63

Bonjour à tous,

Ayant plusieurs fichiers word à traiter, j’ai fait une boucle (qui marche bien) dans un script VBS et j'ai trouvé pratique de récupèrer le contenu de chacun de mes fichier en faisant un « GetObject » et ensuite j’ai une variable « x = DocWord.Range.Text ». (jusque là ça va)

Mais cette variable contient l’ensemble de ce fichier (toutes les lignes), je voudrais mettre chaque ligne dans une variable, en testant par exemple la fin de ligne, mais là je bloque (genre un "split") Quelqu’un aurait-il une idée ?

D’avance merci. :coucou:

:salut:
Postez votre code ;)
:merci:
15/02/2016, 18h44
rouletabille63

voici le code (qui marche)
Code:

1 2 3 4 5 6 7 Dim DocWord,VariableTexte Set DocWord = GetObject("C:\temp\Test.doc") DocWord.Activate VariableTexte = DocWord.Range.Text MsgBox "Voici le texte ci-dessous :" & vbCrlf & VariableTexte
Le résultat est :

Voici le texte ci-dessous :
Ceci est juste un test
De lecture
D’un fichier
Word

De lecture
Word

fichier
Word
fichier

:salut:
Code à tester :roll:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Option Explicit
Const ForReading = 1
Const ForWriting = 2
Const TriStateUseDefault = -2
Dim DocWord,VariableTexte,objFSO,arrLine,strLine,strOutFile,objOutFile,i
Set DocWord = GetObject("C:\temp\Test.doc")
DocWord.Activate
VariableTexte = DocWord.Range.Text
Set objFSO = CreateObject("Scripting.FileSystemObject")
arrLine = Split(VariableTexte,ChrW(11))
'--------------------------------------------------------------------------------
strOutFile="Result.txt"
Set objOutFile = objFSO.OpenTextFile(strOutFile,ForWriting, True)
For Each strLine In arrLine
   strLine = Trim(strLine)
   objOutFile.WriteLine strLine 
Next
objOutFile.Close
 
For i = LBound(arrLine) To UBound(arrLine)
   strLine = strLine & arrLine(i) & vbcrlf
   wscript.echo "Lecture de ligne N° "& "( "& i+1 & ") ==> " & vbCr & strline
Next
wscript.echo strline
DocWord.Close False
Set DocWord = Nothing

16/02/2016, 15h41
rouletabille63

Hello

mille mercis à hackoofr :bravo: pour sa réponse qui me convient oh! combien! :yaisse:
ça répond complètement à mon besoin.
Une précision donnée juste à titre indicatif à l'attention des intéressés j'ai mis ChrW(13) à la place de ChrW(11), mais il fallait avoir le fichier pour savoir que c'était un retour chariot.

Tout marche super bien :coucou:
16/02/2016, 15h54
hackoofr

Citation:

Envoyé par rouletabille63

Hello
mille mercis à hackoofr :bravo: pour sa réponse qui me convient oh! combien! :yaisse:
ça répond complètement à mon besoin.
Une précision donnée juste à titre indicatif à l'attention des intéressés j'ai mis ChrW(13) à la place de ChrW(11), mais il fallait avoir le fichier pour savoir que c'était un retour chariot.
Tout marche super bien :coucou:

Nice !
Donc juste un petit :plusser: aide à se sentir utile :mouarf: