Что нового

Как сделать вставку изображения в WORD в конец документа?

svinogryz

Новичок
Сообщения
1
Репутация
0
Задача следующая:
Имеется насущная проблема по написанию моря инструкций, содержащих скрины с рабочего стола.

Для этой задачи собрал скрипт (так как только начал изучать AutoIt, то использовал данные из справки). получилось следующее:

Код:
#include <ScreenCapture.au3>
#include <Word.au3>
_ScreenCapture_Capture(@ScriptDir&"\QA3.jpg")
$sPath = @ScriptDir & "\"
$search = FileFindFirstFile($sPath & "*.jpg")
$oWordApp = _WordCreate (@ScriptDir&"\Test.doc",1)
$oDoc = _WordDocGetCollection ($oWordApp,1)
$file = FileFindNextFile($search)
$oShape = _WordDocAddPicture ($oDoc, $sPath & $file, 0, 1)
If Not @error Then $oShape.Range.InsertAfter (@CRLF)
FileClose($search)

Но проблема в том, что каждое новое изображение добавляется в начало документа, как сделать наоборот - всегда добавлять в конец документа?
 

kaster

Мой Аватар, он лучший самый
Команда форума
Глобальный модератор
Сообщения
4,020
Репутация
626

YOgen

Знающий
Сообщения
58
Репутация
5
Попробуйте так:

Код:
#include <ScreenCapture.au3>
#include <Word.au3>
_ScreenCapture_Capture(@ScriptDir&"\QA3.jpg")
$sPath = @ScriptDir & "\"
$search = FileFindFirstFile($sPath & "*.jpg")
$oWordApp = _WordCreate (@ScriptDir&"\Test.doc",1)
$oDoc = _WordDocGetCollection ($oWordApp,1)
$file = FileFindNextFile($search)
$oRange = $oDoc.Range
$oRange.Collapse (0)
$oShape = _WordDocAddPicture ($oDoc, $sPath & $file, 0, 1, $oRange)
If Not @error Then $oShape.Range.InsertAfter (@CRLF)
FileClose($search)
 
Верх