Discussion :

[ego]

Bonjour,

Sous Word, je voudrais savoir comme je peux manipuler le texte qui est entre 2 commentaires. Je pars du principe que j'ai récupéré 2 commentaires dans le ActiveDocument et je voudrais pouvoir :

- Ajouter un texte entre les 2 commentaires
- Remplacer le texte existant entre 2 commentaires


Merci d'avance

Je verrai bien un truc utilisant les Range mais je n'arrive pas à voir comment calculer le "range" entre 2 commentaires

[ego]

j'ai trouvé, je n'ai pas besoin de manipuler 2 commentaires dans mon problème mais simplement le "scope" d'un commentaire.

Donc, si je récupère un commentaire, je peux modifier le Scope pour modifier le texte qui est entre les balises rouges.

Ajout d'un commentaire sur la sélection

Code :

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

1
2
3
Set MyRange = ActiveDocument.Range
Commentaire = "DEX exid=" + NumeroTextBox.Value
MyRange.Comments.Add Range:=Selection.Range, Text:=Commentaire

Extraction des infos d'un commentaire

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
Dim cmStart As Comment
Dim cmEnd As Comment
Dim cm As Comment
Dim rgTexte As Range
For i = 1 To ActiveDocument.Comments.Count
    Set cm = ActiveDocument.Comments.Item(i)
    pos = InStr(cm.Range.Text, "DEX exid=")
    If pos = 1 Then
        Set cmStart = cm
        reqId = Mid(cm.Range.Text, 10)
        MsgBox cmStart.Scope.Text + "[" + reqId + "]"
    End If
 
 
Next i