vb.net - 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)

後は君しだい...