Код:
;
#include <IE.au3>
#include <Word.au3>
$answer = InputBox("Question", "новости", "http://www.newsru.com/russia/16mar2013/landed.html", "", _
-1, -1, 0, 0)
;Do
;$i = $i + 1
$answer = $answer2
$oIE = _IECreate ($answer )
$sText = _IEBodyReadText ($oIE )
;MsgBox(0, "Document Source", $sText)
$oWordApp = _WordCreate (@ScriptDir & 1);$answer )
$oDoc = _WordDocGetCollection ($oWordApp, 0)
$oDoc.Range.insertAfter ($sText )
_WordDocSaveAs ($oDoc, @ScriptDir & $i)
_WordQuit ($oWordApp)
;$answer2 = $answer3
;Until $i = $w
_IEQuit ($oIE)