Liebes Forum,

warum funktioniert denn das im folgenden genannte Makro in Word 2010 nicht mehr?

Ich bekomme immer schon in Zeile 2 (also bei der ersten Dim-Anweisung) eine Fehlermeldung ("Fehler beim Kompilieren: Syntaxfehler")! Die verwendeten Wörter sind aber eigentlich alle Teil der Syntax von VBA 2010.

-------------------- Schnipp! --------------------

Sub AnnotatioMitTextmarke()

    Dim fldFussnote As Field
    Dim strTextmarkenname As String
 
    Set fldFussnote = Selection.Fields.Add(Range:=Selection.Range, Type:=wdFieldEmpty, _
        Text:="SEQ Annot", PreServeFormatting:=True)
        'SEQ-Feld wird erzeugt
 
    fldFussnote.Result.Style = "Fußnotenzeichen"
    'dem Feld wird die Formatvorlage Fußnotenzeichen zugewiesen
 
    fldFussnote.Select
    Selection.Collapse wdCollapseStart
    Selection.MoveLeft Unit:=wdWord, Count:=1, Extend:=True
    strTextmarkenname = Selection.Range.Text
    'das Wort vor dem Feld wird in die Variable gefüllt
 
    fldFussnote.Select
    Selection.Bookmarks.Add Name:=strTextmarkenname, Range:=Selection.Range
    'die Textmarke wird erzeugt
 
    Set fldFussnote = Nothing

End Sub

-------------------- Schnapp! --------------------

Vielen Dank schon im voraus für Eure Hilfe.

Viele Grüße
Struppi