#cs ----------------------------------------------------------------------------

AutoIt Version: 3.3.6.1
Author: H. Tsubota

Script Function:
    Webサイトから画象データを取得して全てWordドキュメントに貼り付ける

#ce ----------------------------------------------------------------------------
#include <IE.au3>
#include <Word.au3>

$oIE = _IECreate ("http://www.autoitscript.com/site/autoit/")
$oImages = _IETagNameGetCollection ( $oIE, "img")

$oWordApp = _WordCreate ()
$oDoc = _WordDocGetCollection ($oWordApp, 0)

$oFSO = ObjCreate("Scripting.FileSystemObject")

$iImages = $oImages.length -1
For $i=1 To $iImages    
    $oImage = $oImages($i)
    $sFileName = $oFSO.GetFileName($oImage.src)
    InetGet ( $oImage.src, $sFileName, 16)
    $oShape = _WordDocAddPicture ($oDoc, @ScriptDir & "\" & $sFileName, 0, 1)
Next

_WordDocSaveAs ($oDoc, @ScriptDir & "\Images.doc")
_WordQuit ($oWordApp)

_IEQuit($oIE)