Vb.net Visual Studio宏：循环选择，向选择中的每一行添加.Append（"；和"；）

我们发现：

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

但我似乎不知道如何循环选择中的每一行文本。有什么想法吗？

简单：

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

---

其余的由你决定……

@JaredPar他想要完整的代码吗？呵呵：-那来点汗怎么样？！我想我明白了。我假设每一行都被推到一行中，所以我只需要迭代并返回？编码时出汗是不好的，这会使键入变得困难：）