Selection.EndnoteOptions (Word)
Gibt ein EndnoteOptions-Objekt zurück, das die Endnoten in einer Auswahl darstellt.
Sub SetEndnoteOptionsRange()
With Selection.EndnoteOptions
If .StartingNumber <> 1 Then
.StartingNumber = 1
End If
End With
End Sub