[kaster]

потому что текстовый файл вордом открыть можно, а вот обратно - нет.
пользуй Word.au3

[FlatX007]

Ты попробуй открыть Word`овский DOC блокнотом ... и сразу поймёш в чём дело

[evg64]

пользуй Word.au3 »

Какую именно функцию юзать? Там нет ничего вроде _WordRead()

[Medic84]

А в этом разделе все функции не судьба посмотреть?

Код:

#include <Word.au3>
$oWordApp = _WordCreate ("")
$oDoc = _WordDocOpen ($oWordApp, @ScriptDir & "\Test.doc")

[evg64]

А в этом разделе все функции не судьба посмотреть? Код: #include <Word.au3> $oWordApp = _WordCreate ("") $oDoc = _WordDocOpen ($oWordApp, @ScriptDir & "\Test.doc") ------- »

А дальше как?
FileRead($oDoc) не получается прочитать. А чем тогда?
P.S. Мне надо не открыть файл ворд, а присвоить его содержание переменной.

[kaster]

P.S. Мне надо не открыть файл ворд, а присвоить его содержание переменной. »

ну что можно сказать, крути объектную модель ворда
http://msdn.microsoft.com/en-us/library/bb244515.aspx

[evg64]

Я нашел способ)

Код:

$FilePath1="путь к существующему файлу"
$FilePath2="такой же путь к файлу, но с расширением .txt"

$oWordApp = _WordCreate ("",0,0)
$oDoc = _WordDocOpen ($oWordApp,$FilePath1)
_WordDocSaveAs($oDoc,$FilePath2,2)

$FileRead=FileRead($FilePath2)
msgbox(0,"AutoIT",$FileRead)
_WordQuit($oWordApp)
_WordQuit($oDoc)
filedelete($FilePath2)

P.S. Кстати через filecopy($FilePath1,$FilePath2) не прокатило)

[kaster]

evg64, молодец. любознательный ум это круто

[Iska]

evg64, надеюсь у Вас не 100Mb-ные файлы . А почему не так?!

Код:

#include <Word.au3>
AutoItSetOption("MustDeclareVars", 1)

Local $sSourceFile = "c:\Temp\0001.doc"

Local $oWord       = _WordCreate($sSourceFile, 0, 0)
Local $oDoc        = _WordDocGetCollection($oWord, 0)

MsgBox(0, "Document text", $oDoc.Range.Text)

_WordQuit($oWord, 0)

Exit(0)