Bienvenue 

sur les faqs Word & PowerPoint

Une question ? Cliquez ici.

 Un exemple à télécharger ? Cliquez ici.

 

Word 365 : Vous saurez tout !

Auteur sur XinXii

Pour tout connaître sur Word

8,90 €

 

 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

Aujourd'hui787
Hier2224
Cette semaine13425
Ce mois31505
Total depuis 200410766913

8
visiteurs actuellement en ligne