Макросы Visual Studio: цикл по выделению, добавление .Append ("и") к каждой строке в выделении

Question

Нашел это:

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

Но я не могу понять, как перебрать каждую строку текста в выделении. Есть мысли?

Answer 1

Simple:

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

Остальное зависит от вас ...