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

Question

Нашел это:

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

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

Answer 1

Просто:

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

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