eine Feldfunktion in Word einfügen
Ja welche denn?
Und erfahrungsgemäß sieht das aufgezeichnete Makro nicht so aus. 
Wie der Text es zeigt, möchte ich die Feldfunktion "SEQ" hinzufügen.
Ich wußte nicht, welche Funktion sich dahinter verbirgt, daher auch die Frage. 
So sollte es gehen:
[autoit]; vba-Code:
; Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, text:="SEQ Step", PreserveFormatting:=True
; Funktion ist: Selection.Fields.Add
; Parameter sind: Range, Type, text, PreserveFormatting
; Reihenfolge der übergebenen Parameter einhalten
; Selection.Range ist die gewählte Range des Objektes
; wdFieldEmpty ist eine Konstante (-1)
; text ist die Bezeichnung für das Feld
; PreserveFormatting, ein boolscher Parameter
$oWord = ObjCreate("Word.Application")
$oWord.Selection.Fields.Add( $oWord.Selection.Range, -1, "SEQ Step", False )
Wenn ich nicht falsch liege, paßt das markierte Objekt nicht zur Folgeoperation. "Selection.Fields.Add" erwartet ein Range-Objekt.
Also statt:
$oWordApp.ActiveDocument.Tables(1).Cell($x,$y).Select()
[/autoit]
verwende:
$oWordApp.ActiveDocument.Tables(1).Cell($x,$y).Range.Select()
[/autoit]Ah, OK - Ursache: Select markiert die gesamte Zelle! Es darf aber nur eine Auswahl sein, in der der Cursor in der Zelle steht.
Insofern reicht Select und dann als Workaround per Tab aus der Zelle und zurück. Wird wohl noch andere Lösungen geben - aber das funktioniert:
#include <Word.au3>
;Word öffnen
Local $oWordApp = _WordCreate("")
;Tabelle 5x5 erzeugen
$oWordApp.ActiveDocument.Tables.Add($oWordApp.Selection.Range,5,5)
;Zelle 1,1 markieren
$oWordApp.ActiveDocument.Tables(1).Cell(1,1).Select()
; erste Zelle ist markiert, aber Cursor nicht in Zelle
; per Tab in nächste Zelle und zurück - jetzt steht der Cursor drin
$oWordApp.Selection.MoveRight(12) ; 12=wdCell
$oWordApp.Selection.MoveLeft(12) ; 12=wdCell
;Feldfunktion einfügen
$oWordApp.Selection.Fields.Add($oWordApp.Selection.Range, -1, "SEQ Step", False)
; für restliche 24 Felder in Schleife
For $i = 1 To 24
; nächste Zelle wieder mit MoveRight
$oWordApp.Selection.MoveRight(12)
$oWordApp.Selection.Fields.Add($oWordApp.Selection.Range, -1, "SEQ Step", False)
Next
