Sub JumpFussnote 'Springt vom Fußnotenzeichen zum Anker oder vice versa 'Umschalt+Strg+S IF ActiveModule.Name <> "StarWriter" THEN MsgBox("JumpFussnote können Sie nur innerhalb eines Textdokuments anwenden.",16,"Fehler") EXIT SUB ENDIF Selection.JumpToFootnoteOrAnchor End Sub