lister les commentaires

[a_centaure]

Bonjour,

voilà, Dans un document, j'utilise la fonction commentaire pour établir la définition d'un mot la premiere fois que celui ci apparait dans le texte.

J'aimerais savoir s'il est possible ensuite de récupérer toute la liste de commentaires (qui apparait en bas avec à chaque fois DS+n°) dans une liste genre glossaire se présentant sous la forme

mot1 => definition => pagen°
mot2 => definition => pagen°
etc...

merci d'avance

[Heureux-oli]

Oui, mais mon soft est en anglais, et la fonction comment ne me donne pas la même chose.

Avec les références, on doit pouvoir le faire.

[a_centaure]

Envoyé par Heureux-oli

Oui, mais mon soft est en anglais, et la fonction comment ne me donne pas la même chose.

Avec les références, on doit pouvoir le faire.

j'ai word 2000 pour precision...

sinon j'ai envisagé 2 solutions :
- un copier coller des references de la fenetre de commentaires (en bas lorsqu'on modifie un commentaire)
- création d'un style dit "de commentaire" avec création de la table qui va avec. Lourd à faire... et on ne profite pas pleinement de la fonction "commentaire"

Le pire c'est qu'on peut même faire apparaitre le numéro de page en fance de chaque commentaire dans la fenetre commentaire (pas dans l'etiquette) et il y a un lien en plus qui renvoie sur la zone où est le mot avec le commentaire....

Donc en faite il ne manque plus qu'à extraire ca et le basculer dans une table...

[a_centaure]

j'arrive à créer une table à partir du style commentaire. Le probleme c'est qu'un style doit etre appliqué à toute une ligne et pas quelques mots dans la phrase.

[Heureux-oli]

Pourrais tu me donner un exemple, parce que je ne vois pas bien ce que tu veux faire.
Tu peux mettre le fichier sur le fil de discussion.

[a_centaure]

Envoyé par Heureux-oli

Pourrais tu me donner un exemple, parce que je ne vois pas bien ce que tu veux faire.
Tu peux mettre le fichier sur le fil de discussion.

désolé je ne peux pas mettre mon fichier, il est confidentiel.

En gros voici un exemple :

L'A380 est dernier né des superporteurs d'airbus

avec un commentaire sur A380 (dernier modele d'avion à grosse capacité d'airbus), un sur superporteur (avion à capacité superieur à 300 places) et un sur airbus (société européenne d'aeronautique).

un commentaire etant le post-it jaune qui apparait en passant sur le mot.

Ensuite je veux pouvoir referencer tout ces "post-it" dans une table que j'appelle glossaire en fin de document avec le numero de page où le terme a été commenté et un lien (comme dans une table de légende). Je pense que c'est possible car lorsqu'on créait un commentaire, une fenetre s'ouvre en bas du document avec une nouvelle ligne : initial de l'utilisateur+n° du commentaire + commentaire qui est dans le post it).

Je ne sais pas si c'est tres clair...

ps : mon boulot n'a rien à voir avec l'aeronautique, toute ressemblence avec des fait réels ne serait que pur hasard

[Heureux-oli]

C'est pas à un commentaire de ce genre que je pensais.

On peut le faire, mais c'est en VBA.

[Heureux-oli]

Alors, à l'endroit où tu veux obtenir ton tableau, tu insère un signet nommé "Fin"

Tu utilises ce code :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
Sub ListComment()
Dim i, j As Integer
Dim myrange As Range
 
i = ActiveDocument.Comments.Count
Set myrange = ActiveDocument.Bookmarks("Fin").Range
 
Debug.Print "1"
ActiveDocument.Tables.Add Range:=myrange, NumRows:=i, NumColumns:=1
Debug.Print i
For j = 1 To i
Debug.Print j
 
ActiveDocument.Tables(1).Cell(j, 1).Range.Text = ActiveDocument.Comments(j).Range.Text
 
Next j
End Sub

Et tu devrais récupérer tous les commentaires.
Si tu modifies le code, tu devrais pouvoir récupérer l'index

[a_centaure]

merci pour le code, mais je prefere eviter de mettre du vba dans ce genre de document...

je cherchais une solution intégrée à word...c'est pas grave sinon..

[Heureux-oli]

Tu peux mettre le code dans le normal.dot