On peut se servir des commentaires. Voici quelques petits bouts de code pour ce faire. Une procédure est ajoutée qui travaille sur les champs nommés par un signet, qui peut aisément être transformée si ce n'est pas le cas. En phase de mise au point et (ou) lorsque beaucoup de champs assez longs sont dans une cellule de tableau, cela peut être utile. En prime une procédure pour effacer tout cela car trop de bulles nuit.

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 AfficheNomSignetSélection()
'Code écrit par Guy Moncomble 2002
Dim varSignet As Bookmark, Objet
Application.ScreenUpdating = False
Set Objet = Selection.Range
For Each varSignet In Objet.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'hui724
Hier1235
Cette semaine13670
Total depuis 20049416682

17
visiteurs actuellement en ligne