user_mobilelogo

Word 365: Vous saurez tout !

Pour tout connaître sur Word
Nouvelle version !

600 pages !

9,80 € 

 

En savoir plus.

 

Voici deux macros :

 

pour copier tout commentaire en note de bas de page :

Sub ConvertCommentsToFootnotes()
Dim c As Comment
Dim r As Range
For Each c In ActiveDocument.Comments
Set r = c.Reference
r.Collapse wdCollapseStart
ActiveDocument.Footnotes.Add Range:=r, _
Text:=c.Range.Text
Next c
End Sub

 

pour supprimer tous les commentaires.

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

 

 

Statistiques

Aujourd'hui1273
Hier2908
Cette semaine17598
Ce mois80395
Total depuis 200412599027

15
visiteurs actuellement en ligne

28 novembre 2020