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 72,3% France
Canada 5,3% Canada
Chine 3,7% Chine

Total:

154

Pays
018457996
Aujourd'hui: 181
Hier: 236
Cette semaine: 181
Semaine dernière: 2.729
Ce mois: 5.924