macros Visual Studio: boucle à travers la sélection, ajoutez .Append (« et ») à chaque ligne dans la sélection

Question

Trouvé ceci:

Sub SurroundWithAppendTag() 
     DTE.ActiveDocument.Selection.Text = ".Append(""" + DTE.ActiveDocument.Selection.Text + """)" 
End Sub 

Mais je ne peux pas sembler comprendre comment faire une boucle à travers chaque ligne de texte dans la sélection. Des pensées?

Answer 1

simple:

Dim lines = DTE.ActiveDocument.Selection.Text.Replace(vbCrLf, vbLf).Split(vbLf) 

Le reste est à vous ...