Recherche

 Voici deux macros qui ajoutent un commentaire avec le nom du signet, pour chaque signet :

 Public Sub AfficheNomSignet()
'Code écrit par Guy Moncomble 2002
Dim varSignet As Bookmark
Application.ScreenUpdating = False
For Each varSignet In ActiveDocument.Bookmarks
ActiveDocument.Comments.Add Range:=varSignet.Range,
Text:=varSignet.Name
Next varSignet
Application.ScreenUpdating = True
End Sub

Public Sub AfficheCodeChamp()
'Code écrit par Guy Moncomble 2002
Dim varSignet As Bookmark, txtCom As String
Application.ScreenUpdating = False
For Each varSignet In ActiveDocument.Bookmarks
If varSignet.Range.Fields.Count > 0 Then
txtCom = varSignet.Name & " : " & varSignet.Range.Fields(1).Code.Text
Else
txtCom = varSignet.Name
End If
ActiveDocument.Comments.Add Range:=varSignet.Range, Text:=txtCom
Next varSignet
Application.ScreenUpdating = True
End Sub

 

 

Statistiques

France 72,4% France
Canada 7,2% Canada
Belgique 4,1% Belgique

Total:

124

Pays
018329716
Aujourd'hui: 41
Hier: 174
Cette semaine: 2.295
Semaine dernière: 2.756
Ce mois: 5.434