Paul essaie d’utiliser Word VBA pour renvoyer le numéro de la note de bas de page dans laquelle se trouve le point d’insertion. Dans son cas, il est possible que la note de bas de page contienne plus d’un paragraphe. Paul se demande s’il existe un moyen de déterminer ce numéro de note de bas de page dans VBA.

Il est possible de déterminer un numéro de note de bas de page à l’aide de la propriété Index d’un objet de note de bas de page. Voici un moyen rapide de montrer comment ces informations peuvent être utiles:

Sub GetFootnoteNumber()

Dim f As Footnote     Dim sTemp As String

sTemp = "The insertion point is not in a footnote"

For Each f In ActiveDocument.Footnotes         If Selection.InRange(f.Range) Then             sTemp = "The insertion point is in footnote " & f.Index         End If     Next     MsgBox sTemp End Sub

Notez que la macro parcourt chaque note de bas de page du document. S’il est déterminé que la sélection (point d’insertion) se trouve dans une note de bas de page particulière, la propriété Index de cette note de bas de page est utilisée pour placer un message dans la variable sTemp. Une fois que vous avez terminé de parcourir les notes de bas de page, la variable sTemp s’affiche dans une boîte de message.

Si votre document contient de nombreuses notes de bas de page, vous ne voudrez peut-être pas toutes les parcourir. Dans ce cas, vous pouvez utiliser la propriété Information de la sélection pour déterminer si le point d’insertion se trouve actuellement dans une note de bas de page, de cette manière:

Sub GetFootnoteNum()

Dim J As Integer     Dim sTemp As String

sTemp = "The insertion point is not in a footnote"

If Selection.Information(wdInFootnote) Then         J = Selection.Paragraphs(1).Range.Footnotes(1).Index         sTemp = "The insertion point is in footnote " & J     End If     MsgBox sTemp End Sub

En outre, vous pouvez obtenir d’autres informations sur une note de bas de page particulière en développant les propriétés de cette note de bas de page auxquelles vous accédez. La macro suivante renvoie non seulement le numéro de la note de bas de page, mais également la règle de numérotation, le style de numérotation et le numéro de départ des notes de bas de page:

Sub GetFootnoteInfo()

Dim f As Footnote     Dim sTemp As String          sTemp = "The insertion point is not in a footnote"

If Selection.Information(wdInFootnote) Then         Set f = Selection.Paragraphs(1).Range.Footnotes(1)

sTemp = "Footnote number: " & f.Index & vbCr         With f.Range.FootnoteOptions             sTemp = sTemp & "Numbering Rule: " & .NumberingRule & vbCr & _               "Numbering Style: " & .NumberStyle & vbCr & _               "Starting Number: " & .StartingNumber         End With     End If     MsgBox sTemp End Sub

_Note: _

Si vous souhaitez savoir comment utiliser les macros décrites sur cette page (ou sur toute autre page des sites WordTips), j’ai préparé une page spéciale qui comprend des informations utiles.

lien: / wordribbon-WordTipsMacros [Cliquez ici pour ouvrir cette page spéciale dans un nouvel onglet de navigateur].

WordTips est votre source pour une formation Microsoft Word rentable.

(Microsoft Word est le logiciel de traitement de texte le plus populaire au monde.) Cette astuce (5906) s’applique à Microsoft Word 2007, 2010, 2013, 2016, 2019 et Word dans Office 365.