Deprecated: RegularLabs\Library\ArrayHelper::implode(): Implicitly marking parameter $last_glue as nullable is deprecated, the explicit nullable type must be used instead in /homepages/10/d550841420/htdocs/libraries/regularlabs/src/ArrayHelper.php on line 225
Est-il possible de convertir les notes de bas de page en commentaires ?

Recherche

 Ce n'est pas prévu mais c'est possible via macros.

Voici deux macros.

Attention, tous les commentaires seront à votre nom, avec la même date (pour les versions récentes).

 

pour convertir toutes les notes de bas de page en commentaires :

Sub ConversionNoteComm()
Dim f As Footnote
Dim r As Range
For Each f In ActiveDocument.Footnotes
textecomment = f.Range.Text
Set r = f.Reference
r.Collapse wdCollapseEnd
ActiveDocument.Comments.Add Range:=r, Text:=f.Range.Text
Next
End Sub
 

pour supprimer ensuite toutes les notes de bas de page:

Sub DeleteFootnotes()
Dim i As Long
For i = ActiveDocument.Footnotes.Count To 1 Step -1
ActiveDocument.Footnotes(i).Delete
Next i
End Sub
 

 

Statistiques

France 71,7% France
Canada 5,2% Canada
Chine 4,3% Chine

Total:

161

Pays
018475156
Aujourd'hui: 298
Hier: 370
Cette semaine: 1.466
Semaine dernière: 2.492
Ce mois: 668