Visual Studio Macros: Loop through Selection, add .Append(" and ") to each line in selection

Question

Found this:

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

But I can't seem to figure out how to loop through each line of text in the selection. Any thoughts?

score 2 · Accepted Answer · answered Mar 18 '10 at 17:21

2

Simple:

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

The rest is up to you...

answered Mar 18 '10 at 17:21

Paulo Santos

@JaredPar does he want a full code? hehe :-P And what about some hard sweat?! – Paulo Santos Mar 18 '10 at 17:29
Got it, I believe. I'm assuming every line is pushed into lines, so I simply need to iterate and return? – jlrolin Mar 18 '10 at 18:20
sweating is bad when coding, it makes typing difficult :) – JaredPar Mar 18 '10 at 18:26

1 Answers1