_WordDocPropertySet funktioniert nicht

1. offizieller Beitrag

    Hi an alle,

    ich habe ein Problem mit _WordDocPropertySet. Jeder Versuch diesen Template Wert zu ersetzten schlägt fehl. Auslesen funktioniert ohne Probleme.
    Was mache ich falsch?
    eigentlich ist das doch sowas von simpel.

    Das Script soll auf Win XP mit Office 2010 laufen. Hat unser Office damit vielleicht ein Problem diesen Wert zu ändern??

    Wäre toll wenn mir jemand helfen könnte.

    Gruß
    Susie

    [autoit]

    #include <Word.au3>

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

    #include <GUIConstants.au3>

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

    #Region ### START Koda GUI section ### Form=
    $Form2 = GUICreate("Test ", 490, 113, 303, 239)
    $Input1 = GUICtrlCreateInput("", 56, 32, 313, 21, -1, 0)
    $Button1 = GUICtrlCreateButton("Durchsuchen", 376, 32, 81, 25)
    ;~ GUICtrlSetCursor (-1, 15)
    $Button2 = GUICtrlCreateButton("Vorlage aendern", 56, 56, 137, 25, 0)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit

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

    Case $Button1
    $data = FileOpenDialog("Datei auswählen", @DesktopDir & "\", "Alle (*.*)")
    GUICtrlSetData($Input1,$data)

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

    Case $Button2
    _Aendern()

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

    EndSwitch
    WEnd

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

    Func _Aendern()

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

    Global $oWordApp = _WordCreate("")
    Global $oDoc = _WordDocOpen($oWordApp, $data)

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

    _WordDocPropertySet($oDoc,6,"\\storage-st\daten\vorlagen\normalold.dot")
    ConsoleWrite("Property Index Vorlage - " & _WordDocPropertyGet($oDoc, 6) & @CR)

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

    _WordDocSave($oDoc)
    ;~ _WordDocClose($oDoc,-1,1)
    ;~ _WordQuit($oWordApp)

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

    EndFunc
    Exit

    [/autoit]

    Ein COM error handler um die genaue Fehlermeldung anzuzeigen wäre auch ganz hilfreich. Siehe Funktion ObjEvent in der Hilfe.

    Danke erstmal für Eure Tips.
    Bei @Error kam nichts aber werde mich nun mal an die COM Geschichte machen.

    Im Debuggen bin ich nicht unbedingt immer der Held :) Irgendwo muss es ja hängen.

    Grüße
    Susie