Classe Footnote (Word VBA)

La classe Footnote représente une note de bas de page au bas de la page ou sous le texte.

Les procédures principales de la classe Footnote sont Delete et Footnotes.Add

Set

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

Dim ftn as Footnote
Set ftn = ActiveDocument.Range.Footnotes(Index:=1)

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

For Each

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

Dim ftn As Footnote
For Each ftn In ActiveDocument.Range.Footnotes
	
Next ftn

Méthodes

Les méthodes principales de la classe Footnote sont

Delete - Supprime la note de bas de page spécifiée.

ActiveDocument.Range.Footnotes(1).Delete

Footnotes.Add - Renvoie un objet footnote qui représente une note de bas de page ajoutée à une plage.

Dim ftn As Footnote
Set ftn = ActiveDocument.Range.Footnotes.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.Footnotes(1).Index

Parent Renvoie un type de données Object qui représente l'objet parent de l'objet Footnote spécifié.

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

Range Renvoie un objet Range qui représente la partie d'un document contenue dans la note de bas de page.

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

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

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

Footnotes.ContinuationNotice Renvoie un objet Range qui représente l’indicateur de continuation de note de bas de page.

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

Footnotes.ContinuationSeparator Renvoie un objet Range qui représente le séparateur de continuation de note de bas de page.

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

Footnotes.Count Renvoie un type long qui représente le nombre de notes de bas de page dans la collection.

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

Footnotes.Location Cette propriété renvoie ou définit la position de toutes les notes de bas de page.

ActiveDocument.Range.Footnotes.Location = wdBeneathText

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

ActiveDocument.Range.Footnotes.NumberingRule = wdRestartContinuous

Footnotes.NumberStyle Cette propriété renvoie ou définit le style de numérotation pour les notes de bas de page.

ActiveDocument.Range.Footnotes.NumberStyle = wdNoteNumberStyleArabic

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

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

Footnotes.Separator Renvoie un objet Range qui représente le séparateur de note de bas de page.

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

Footnotes.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.Footnotes.StartingNumber =