Word.au3 _WordDocAddPicture Range.InsertAfter, welche reihenfolge?

  • Word.au3 _WordDocAddPicture Range.InsertAfter, welche reihenfolge?

    irgendwie kommt nicht die erwartete reihenfolge bei raus

    ich erwarte bild1 bild 2 bild 3
    aber ins word.doc wird bild 2 VOR! bild 1
    und bild 3 VOR! bild 2 eingefuegt ,
    das ergibt: bild 3 bild 2 bild 1

    habe extra die while-schleife aus dem HELP - Beispiel _WordDocAddPicture.au3 aufgeloest , dort is die reihenfolge schon invers.

    F1: wie ist denn der trick fuer eine aufsteigende reihenfolge , oder wo steht was ueber Range.InsertAfter , und andere Range options ?
    F2: wie fuege ich einen manuellen SeitenUmbruch in Word ein , gibt es sowas wie @CRLF fuer seitenumbruch?

    . . . . . .
    .> KLIENT: ..wieviel kostet mich das?
    .> CHEF: 20 Jahre! zum Glueck haben wir schon vor 20 Jahren angefangen
    . . . . . .

    • Offizieller Beitrag

    Hi,

    hilft dir zwar nicht viel aber:

    Spoiler anzeigen
    [autoit]

    ;~ WordAppl.ActiveDocument.Sections.Add
    #include <Word.au3>
    $oWordApp = _WordCreate(@ScriptDir & "/qqqw3200.doc")
    $oDoc = _WordDocGetCollection($oWordApp, 0)

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

    $filqq1 = "C:\Downloads\Fotos\Auto\DSC00763.JPG"
    $filqq2 = "C:\Downloads\Fotos\Auto\DSC00762.JPG"
    $filqq3 = "C:\Downloads\Fotos\Auto\DSC00761.JPG"

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

    ;~ Global $range = $oWordApp.ActiveDocument.Paragraphs(1).Range
    ;~ Global $range = $oWordApp.ActiveDocument.Range(0, 10)

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

    $oShape = _WordDocAddPicture($oDoc, $filqq1, 0, 1)
    _WordAppendText($oDoc, @CRLF & "Bild 1" & @CRLF & @CRLF)
    ConsoleWrite('Bild 1')

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

    $oShape = _WordDocAddPicture($oDoc, $filqq2, 0, 2)
    ;~ $oWordApp.ActiveDocument.Sections.Range.InsertAfter('Hello')
    _WordAppendText($oDoc, @CRLF & "Bild 2" & @CRLF & @CRLF)
    _WordAddSection($oWordApp)
    ConsoleWrite('Bild 2')

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

    $oShape = _WordDocAddPicture($oDoc, $filqq3, 0, 3)
    _WordAppendText($oDoc, @CRLF & "Bild 3" & @CRLF & @CRLF)
    ConsoleWrite('Bild 3')

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

    Func _WordAddLineBreak(ByRef $o_object)
    $o_object.ActiveDocument.Content.InsertParagraphAfter
    EndFunc

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

    Func _WordAddSection(ByRef $o_object)
    $o_object.ActiveDocument.Sections.Add
    EndFunc

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

    Func _WordAppendText(ByRef $o_object, $sText)
    If Not IsObj($o_object) Then
    __WordErrorNotify("Error", "_WordAppendText", "$_WordStatus_InvalidDataType")
    SetError($_WordStatus_InvalidDataType, 1)
    Return 0
    EndIf
    $o_object.Range.insertAfter($sText)
    SetError($_WordStatus_Success)
    Return 1
    EndFunc ;==>_WordAppendText

    [/autoit]

    Mega