reading textfile into word

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

efqwf - 04 May 2006 21:49 GMT

How can i read with vba the content of multiple textfiles into a word
document. The structure is:
C:\Test\1.txt
C:\Test\2.txt
C:\Test\3.txt
C:\Test\4.txt

Can someone help me with that.

Willem

Reply to this Message

Helmut Weber - 04 May 2006 22:13 GMT

Hi,

quick and dirty,
in case there aren't more than 1000000 files to process, ;-)

Sub Test8970()
Dim l As Long
Dim s As String
On Error GoTo finish
For l = 1 To 10000000
Open "c:\test\" & CStr(l) & ".txt" For Input As 1
While Not EOF(1)
Input #1, s
ActiveDocument.Range.InsertAfter s & Chr(13)
Wend
Close #1
Next
finish:
End Sub

Signature

Greetings from Bavaria, Germany

Helmut Weber, MVP WordVBA

Win XP, Office 2003
"red.sys" & Chr$(64) & "t-online.de"

Reply to this Message