Discussion :

[Arsene Newman]

Bonjour,

Je souhaiterais convertir des commentaires en texte sous Word 2010, j'ai trouvé quelques choses qui y ressemble mais c'est pas exactement ce que je cherche, quelqu'un pourrait m'aider à adapter le code suivant pour mes besoins ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
Sub comment2footnote()
      Application.ScreenUpdating = False
      Dim oDoc As Document, oComment As Comment
      Set oDoc = ActiveDocument
      For Each oComment In ActiveDocument.Comments
          oDoc.Footnotes.Add Range:=oComment.Scope, Text:=oComment.Range.Text
          oComment.Delete
      Next
      Application.ScreenUpdating = True
End Sub

PS : le code VBA permet de convertir un commentaire en notes de bas de page, dans mon cas je souhaiterais ajouter cela en texte directement

Merci et surtout ne me blamer pas car VBA ce n'est pas mon rayon

[Heureux-oli]

Salut,

Je suppose que ce texte devra se trouver à l'endroit où est inséré le commentaire.

Essaie ce petit bout de code.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub ConvertirCommentEnTexte()
'Définition des variables
Dim oCom As Comment
 
'Boucle sur les commentaires du document
For Each oCom In ActiveDocument.Comments
'Test pour contenu
'Debug.Print oCom.Range.Text
'Selection du point d'insertion du commentaire
oCom.Reference.Select
'Insertion du texte du commentaire dans le document
Selection.TypeText oCom.Range.Text
 
Next oCom
 
End Sub