user_mobilelogo

Word 365: Vous saurez tout !

Pour tout connaître sur Word
Nouvelle version !

 

En promotion tout le mois d'octobre 2020
600 pages !

4,90 € (au lieu de 9,80€)

 

En savoir plus.

Etoiles inactivesEtoiles inactivesEtoiles inactivesEtoiles inactivesEtoiles inactives
 

 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 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

Aujourd'hui97
Hier3302
Cette semaine3399
Ce mois71055
Total depuis 200412503335

10
visiteurs actuellement en ligne

27 octobre 2020