Вывод из Word 2003 в текстовый файл

[DBEER]

УПражняюсь в Кама-Сутре.
пробую:

Dim FSO As FileSystemObject
Set FSO = New FileSystemObject
' Declare a TextStream.
Dim STREAM As TextStream
ПутьК_Файлу = ......
Set STREAM = FSO.CreateTextFile(ПутьК_Файлу, True)
STREAM.WriteLine "++++++++++++++"
STREAM.Write "-----------------"
' Close the file.
STREAM.Close

не понимает FileSystemObject
Пробую:

fileName = ......
fileNo = FreeFile(0) 'Get first free file number
textData = "Hello World!"
Open fileName For Output As #fileNo
Write #fileNo, textData
Close #fileNo

OPEN ему не нравится - думает, что надо *.doc открывать.
Подскажите, чем можИте

[DBEER]

.. с именем файла накосячил, и не проверил..
SORRY