Attribute VB_Name = "Endnoten"
Option Explicit

Sub EndnoteLiteratur()
'Makro fügt Endnoten ein, die durch
'benutzt ansonsten den Endnote-Mechanismus von Word
'Formatvorlagen für Fußnotenzeichen und Fußnotentext wird hier nicht
'       geändert - muss in Dokumentvorlage getan werden

    Dim rTmp As Range
    Set rTmp = ActiveDocument.Range
    
    With rTmp.EndnoteOptions
       .Location = wdEndOfDocument
       .NumberingRule = wdRestartContinuous
       .StartingNumber = 1
       .NumberStyle = wdNoteNumberStyleArabic
    End With
    
    ResetSearch
    
    With Selection
       .Font.Superscript = False
       .TypeText Text:="[]"
       .MoveLeft 1
       .Endnotes.Add Range:=Selection.Range, Reference:=""
       .Paragraphs(1).Range.Select
       With .Find
          .Text = "^e"
          .Replacement.Text = "[^&]"
          .Execute Replace:=wdReplaceOne
       End With
       .MoveRight 2
    End With
End Sub

Public Sub ResetSearch()
'Makro dient dem Löschen aller alten Einträge im Suchen/Ersetzen-Formular

    With Selection.Find
       .ClearFormatting
       .Replacement.ClearFormatting
       .Text = ""
       .Replacement.Text = ""
       .Forward = True
       .Wrap = wdFindContinue
       .Format = False
       .MatchCase = False
       .MatchWholeWord = False
       .MatchWildcards = False
       .MatchSoundsLike = False
       .MatchAllWordForms = False
       .Execute
    End With
End Sub