Visual Studio的宏：循环遍历选择，在选择

Question

添加.Append（“和”），以每行发现这一点：

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) 

剩下的就是给你......