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
|