Discussion :

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

[hackoofr]

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.

Postez votre code

[rouletabille63]

Code :

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

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

[hackoofr]

Code à tester

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

[rouletabille63]

Hello

mille mercis à hackoofr pour sa réponse qui me convient oh! combien!
ç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

[hackoofr]

Hello
mille mercis à hackoofr pour sa réponse qui me convient oh! combien!
ç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

Nice !
Donc juste un petit aide à se sentir utile