Classe FootnoteOptions (Word VBA)

La classe FootnoteOptions représente les propriétés affectées à une plage ou à une sélection de notes de bas de page d'un document.

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

Dim fos as FootnoteOptions
Set fos = Selection.FootnoteOptions

Les procédures suivantes peuvent être utilisés pour définir des variables de la classe FootnoteOptions : Range.FootnoteOptions et Selection.FootnoteOptions.

LayoutColumns

Cette propriété renvoie ou définit la disposition des notes de bas de page en colonnes lorsque la section contenant la marque d’appel comporte plusieurs colonnes.

Selection.FootnoteOptions.LayoutColumns =

Location

Cette propriété renvoie ou définit la position de toutes les notes de bas de page. Les valeurs de retour possibles sont wdBeneathText - Au bas du texte actif, wdBottomOfPage - En haut de la page active.

ActiveDocument.Footnotes.Location = wdBottomOfPage

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. Les valeurs de retour possibles sont wdRestartContinuous - La numérotation est appliquée en continu, wdRestartPage - La numérotation est réinitialisée à chaque page, wdRestartSection - La numérotation est réinitialisée à chaque section.

Set myRange = ActiveDocument.Sections(1).Range 
If myRange.Footnotes.NumberingRule = wdRestartSection Then 
 myRange.Footnotes.NumberingRule = wdRestartPage 
End If

NumberStyle

Cette propriété renvoie ou définit le style de numérotation pour les notes de bas de page. Ici on trouve valeurs possible pour WdNoteNumberStyle.

Certaines des constantes WdNoteNumberStyle ne soient pas disponibles, en fonction de la prise en charge de langue (anglais (États-Unis), par exemple) que vous avez sélectionnée ou installée.

Selection.FootnoteOptions.NumberStyle = wdNoteNumberStyleArabic

StartingNumber

Cette propriété renvoie ou définit le numéro de départ de bas de page.

Selection.FootnoteOptions.StartingNumber =