*pRetNumber1 = nResult1;   // validity checking missed
*pRetNumber2 = nResult1;   // bad Copy & Paste here

//-- CODE_MARK_BEGIN, date here, author's name here, ...
//*pRetNumber1 = nResult1;
//*pRetNumber2 = nResult1;
if (pRetNumber1)
    *pRetNumber1 = nResult1;
if (pRetNumber2)
    *pRetNumber2 = nResult2;
//-- CODE_MARK_END

//-- CODE_MARK_BEGIN, $DATE$, Kenny
{CmtBegin} $selected$ {CmtEnd}
//-- CODE_MARK_END

//-- CODE_MARK_BEGIN, $DATE$, %USERNAME%
/* $selected$ */
//-- CODE_MARK_END

quote:

---

Originally posted by feline

The VA Snippet:

//-- CODE_MARK_BEGIN, $DATE$, %USERNAME%
/* $selected$ */
//-- CODE_MARK_END

seems to do what you want. Just select the code to mark, and tell VA to use a Snippet on the selected code. This can be done via the right click menu or by pressing the VA toolbar button "Insert VA Snippet".

---

    ' select a block of text then trigger this macro
    Public Sub TurnSelectionIntoMarkedBlock()
        Dim objTxtSel As TextSelection = DTE.ActiveDocument.Selection
        Dim colRanges As TextRanges = objTxtSel.TextRanges
        Dim objRange As TextRange
        Dim nTotalLines As Integer = 0      ' the number of selected lines that contain text

        ' count the number of lines that actually have text in them
        For Each objRange In colRanges
            Dim nLineLength As Integer = objRange.EndPoint.AbsoluteCharOffset - objRange.StartPoint.AbsoluteCharOffset
            If nLineLength > 0 Then
                nTotalLines = nTotalLines + 1
            End If
        Next
        If nTotalLines > 1 Then
            DTE.ExecuteCommand("VAssistX.SelectionBlockComment")
        Else
            DTE.ExecuteCommand("VAssistX.SelectionLineComment")
        End If
    End Sub