Bilder in Word datei importieren und mit der letzte beginnen

Hallo Leute,

folgendes Problem: ich möchte bilder in Word importieren mittels eines Autoit Scriptes.
Dies funktioniert sowiet. Mein Problem ist aber das er mit dem ersten beginnt und dieses am Ende wenn alle Bilder im Word dokument eingefügt wurden, am Ende steht.

Gibt es eine Möglichkeit das Letzte Bild als erstes zu importieren ?
Hier mein Quellcode:

[autoit]

#include <Word.au3>
#include <File.au3>
#include <Array.au3>
$sPath = "C:\Temp\unzip"
$search = FileFindFirstFile($sPath & "*.jpeg")

[/autoit][autoit][/autoit][autoit]

; Check if the search was successful
If $search = -1 Then
MsgBox(0, "Error", "No images found")
Exit
EndIf

[/autoit][autoit][/autoit][autoit]

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

[/autoit][autoit][/autoit][autoit]

While 1
$file = FileFindNextFile($search)
If @error Then ExitLoop
$oShape = _WordDocAddPicture ($oDoc, $sPath & $file, 0, 1)
If Not @error Then $oShape.Range.InsertAfter (@CRLF)
WEnd

[/autoit][autoit][/autoit][autoit]

; Close the search handle
FileClose($search)

[/autoit]

Ich habe das ganze jetzt im array sortiert und in einer For schleife eingebunden. Allerdings wird jetzt 13 mal das gleiche Bild angezeigt. Wo liegt mein Fehler?

[autoit]

#include <File.au3>
#include <Array.au3>
#include <Word.au3>

[/autoit][autoit][/autoit][autoit][/autoit][autoit]

$Path = "C:\Users\AutoIt\unzip"
$CCDir = "C:\Temp\unzip"
$aScriptDir = _FileListToArray($Path,"*.jpeg")

[/autoit][autoit][/autoit][autoit]

_ArraySort($aScriptDir,1)

[/autoit][autoit][/autoit][autoit][/autoit][autoit]

_FileWriteFromArray ($CCDir & "resultfromarray.txt", $aScriptDir)
$file = FileOpen($CCDir & "resultfromarray.txt")

[/autoit][autoit][/autoit][autoit][/autoit][autoit][/autoit][autoit]

Local $oWordApp = _WordCreate()
Local $oDoc = _WordDocGetCollection($oWordApp, 0)
$file = FileOpen($CCDir & "resultfromarray.txt", 0)
global $line = FileReadLine($file)
$testdir = $Path & $line

[/autoit][autoit][/autoit][autoit]

For $i = 0 To UBound($aScriptDir) -1
$aScriptDir[$i] = $i + 1
Local $oShape = _WordDocAddPicture($oDoc, $testdir, 0, 1)
Next

[/autoit][autoit][/autoit][autoit][/autoit]

Wenn ihr mir nochmal Hinweise geben könntet wäre das Super.

Danke

Die Textdatei dient zur Fehlerbehebung. So ist sichtbar welche Dateien eingelesen wurden. Wenn ich $aScriptdir anstelle von $testdir einfüge passiert nichts. Ich habe für _ArraySort eine Variable vergeben uind diese test weise im _WordDocAddPicture eingefügt. Dies klappt aber leider auch nicht.

[autoit]

#include <File.au3>
#include <Array.au3>
#include <Word.au3>

[/autoit][autoit][/autoit][autoit][/autoit][autoit]

$Path = "C:\Users\AutoIt\unzip"
$CCDir = "C:\Temp\unzip"
$aScriptDir = _FileListToArray($Path,"*.jpeg")

[/autoit][autoit][/autoit][autoit]

$array = _ArraySort($aScriptDir,1)

[/autoit][autoit][/autoit][autoit][/autoit][autoit]

;~ _FileWriteFromArray ($CCDir & "resultfromarray.txt", $aScriptDir)
;~ $file = FileOpen($CCDir & "resultfromarray.txt")

[/autoit][autoit][/autoit][autoit][/autoit][autoit][/autoit][autoit]

Local $oWordApp = _WordCreate()
Local $oDoc = _WordDocGetCollection($oWordApp, 0)
;~ $file = FileOpen($CCDir & "resultfromarray.txt", 0)
;~ global $line = FileReadLine($file)
;~ $testdir = $Path & $line

[/autoit][autoit][/autoit][autoit]

For $i = 0 To UBound($aScriptDir) -1
Local $oShape = _WordDocAddPicture($oDoc, $array, 0, 1)
Next

[/autoit][autoit][/autoit][autoit][/autoit]

Ne bin noch neu auf dem Gebiet Autoit.... =) Aber danke für deine Unterstützung. Habe mein Script angepasst und teste es mal.