Что нового

как скопировать не только текст но и изображение с сайта в word

serher

Новичок
Сообщения
1
Репутация
0
Код:
;
#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)
 
Верх