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)

剩下的由你决定......