Daniel a un article académique qui utilise de nombreuses notes de bas de page. À l’heure actuelle, il a des notes de bas de page à la fin de chaque phrase. Il aimerait regrouper toutes les notes de bas de page d’un paragraphe en une seule note de bas de page à la fin du paragraphe. Il se demande s’il existe un moyen de le faire automatiquement.

Il n’y a aucun moyen de le faire automatiquement, mais vous pouvez le faire avec une macro. Tout ce que la macro a à faire est de parcourir chaque paragraphe du document et de voir s’il contient des notes de bas de page. Ensuite, en supposant que c’est le cas, il concatène ceux-ci, supprime les notes de bas de page et ajoute une nouvelle note de bas de page avec le texte concaténé à la fin du paragraphe. Voici une macro qui fait exactement cela:

Sub MoveFootnotes()

Dim p As Paragraph     Dim iFN As Integer     Dim J As Integer     Dim oCurPar As Object     Dim sTemp As String

For Each p In ActiveDocument.Paragraphs         sTemp = ""

iFN = p.Range.Footnotes.Count         For J = iFN To 1 Step -1             sTemp = p.Range.Footnotes(J).Range.Text & " " & sTemp             p.Range.Footnotes(J).Delete         Next J         sTemp = Trim(sTemp)

If sTemp > "" Then             Set oCurPar = p.Range             oCurPar.Collapse Direction:=wdCollapseEnd             oCurPar.MoveEnd Unit:=wdCharacter, Count:=-1             ActiveDocument.Footnotes.Add Range:=oCurPar, Text:=sTemp         End If     Next p End Sub

Notez que la macro concatène le texte de la note de bas de page pour chaque paragraphe dans la chaîne sTemp. Ceci est ensuite utilisé lors de l’ajout de la note de bas de page à la fin du paragraphe. Cela présente un inconvénient pour la macro: elle ne copie que du texte, pas de mise en forme pour le texte.

Par exemple, si vous avez un tas de notes de bas de page qui incluent des citations de livres, il y a de fortes chances que ces titres de livres soient formatés en italique.

Après avoir exécuté la macro, l’italique disparaîtra, bien que tout le texte soit là. (Il n’y a aucun moyen que je sache de transférer le formatage, intact, dans la nouvelle note de bas de page.)

_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 (13767) s’applique à Microsoft Word 2007, 2010, 2013, 2016, 2019 et Word dans Office 365.