Classe Endnote (Word VBA)

La classe Endnote représente une note de fin.

Les procédures principales de la classe Endnote sont Delete et Endnotes.Add

Set

Pour utiliser une variable de classe Endnote, elle doit d'abord être instanciée, par exemple

Dim end as Endnote
Set end = ActiveDocument.Range.Endnotes(Index:=1)

Les procédures suivantes peuvent être utilisés pour définir des variables de la classe Endnote : Endnotes.Add, Endnotes.Item, Document.Endnotes, Range.Endnotes et Selection.Endnotes

For Each

Voici un exemple de traitement des éléments Endnote dans une collection

Dim end As Endnote
For Each end In ActiveDocument.Range.Endnotes
	
Next end

Méthodes

Les méthodes principales de la classe Endnote sont

Delete - Supprime la note de fin spécifiée.

ActiveDocument.Range.Endnotes(1).Delete

Endnotes.Add - Renvoie un objet EndNote qui représente une note de fin ajoutée à une plage.

Dim end As Endnote
Set end = ActiveDocument.Range.Endnotes.Add(Range:=)

Propriétés

Index Renvoie un type long qui représente la position d'un élément dans une collection.

Dim lngIndex As Long
lngIndex = ActiveDocument.Range.Endnotes(1).Index

Parent Renvoie un Object qui représente l'objet parent de l'objet Endnote spécifié.

Dim objParent As Object
Set objParent = ActiveDocument.Range.Endnotes(1).Parent

Range Renvoie un objet Range qui représente la partie d’un document contenue dans l’objet spécifié.

Dim rngRange As Range
Set rngRange = ActiveDocument.Range.Endnotes(1).Range

Reference Renvoie un objet Range qui représente une marque d'appel de note de fin.

Dim rngReference As Range
Set rngReference = ActiveDocument.Range.Endnotes(1).Reference

Endnotes.ContinuationNotice Renvoie un objet Range qui représente l’indicateur de continuation de note de fin.

Dim rngContinuationNotice As Range
Set rngContinuationNotice = ActiveDocument.Range.Endnotes.ContinuationNotice

Endnotes.ContinuationSeparator Renvoie un objet Range qui représente le séparateur de continuation de note de fin.

Dim rngContinuationSeparator As Range
Set rngContinuationSeparator = ActiveDocument.Range.Endnotes.ContinuationSeparator

Endnotes.Count Renvoie un type long qui représente le nombre de notes de fin dans la collection.

Dim lngCount As Long
lngCount = ActiveDocument.Range.Endnotes.Count

Endnotes.Location Cette propriété renvoie ou définit la position de toutes les notes de fin.

ActiveDocument.Range.Endnotes.Location = wdEndOfDocument

Endnotes.NumberingRule Renvoie ou définit la façon dont les notes de fin sont numérotées après les sauts de page ou de section.

ActiveDocument.Range.Endnotes.NumberingRule = wdRestartContinuous

Endnotes.NumberStyle Cette propriété renvoie ou définit le style de numérotation.

ActiveDocument.Range.Endnotes.NumberStyle = wdNoteNumberStyleArabic

Endnotes.Parent Renvoie un Object qui représente l’objet parent de l’objet Endnotes spécifié.

Dim objParent As Object
Set objParent = ActiveDocument.Range.Endnotes.Parent

Endnotes.Separator Renvoie un objet Range qui représente le séparateur de note de fin.

Dim rngSeparator As Range
Set rngSeparator = ActiveDocument.Range.Endnotes.Separator

Endnotes.StartingNumber Cette propriété renvoie ou définit le numéro de note de début, un numéro de ligne ou un numéro de page.

ActiveDocument.Range.Endnotes.StartingNumber =