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)

剩下的就看你的了……