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)

剩下的就看你了...