Office: Querverweise automat mit Makro einfügen funktioniert nicht

Hallo Forum

ich habe ein sehr umfangreiches Dokument mit 216 Überschriften.
Hierzu wollte ich Querverweise
auf die Überschriften einfügen.
Mit dem Makro-Rekorder habe ich folgendes Skript erstellt:

Code:

Sub Makro5()
    Selection.InsertCrossReference ReferenceType:="Überschrift", ReferenceKind _
        :=wdContentText, ReferenceItem:="1", InsertAsHyperlink:=True, _
        IncludePosition:=False
End Sub

Diese wollte ich so abändern:

Code:

for i =1 to 216
Selection.InsertCrossReference ReferenceType:="Überschrift", ReferenceKind _
        :=wdContentText, ReferenceItem:=i , InsertAsHyperlink:=True, _
        IncludePosition:=False
next

Es kommt jedoch die Fehlermeldung: Laufzeitfehler 4198 Befehl misslungen.
Dieser Fehler kommt nicht nur bei meiner Schreife, sondern bereits, wenn ich das Makro so wie ich es aufgezeichnet habe, wieder aufrufe.

Kann mir jemand erklären, warum es nicht funzt ?

 

:!: :!:
heureka !

Hab die Lösung selber gefunden:

ReferenceItem ist keine Zahl , sondern ein String !
In meiner Schleife muss i ein string sein, also str$(i)

So funzt es :

For i = 1 To 216
Selection.InsertCrossReference ReferenceType:="Überschrift", ReferenceKind _
:=wdContentText, ReferenceItem:=Str$(i), InsertAsHyperlink:=True, _
IncludePosition:=False
Selection.TypeParagraph
Next
End Sub

Geil wie das geht,
:lol: :lol: