需要有关通过按键宏格式化c注释的方法的建议

selText = getSelectedText();
selTextSplit = selText.split(\"\\n\");
selTextPadded = \"\";
for (i = 0; i < selTextSplit.length; i++) {
    selTextPadded += selTextSplit[i].padRight(80, \' \') + \"\\n\";
}
replaceSelectedText(selTextPadded);

Sub FormatEvil()

Try
    DTE.UndoContext.Open(\"Evil Style C Comment Padder\")

    Dim txtSel As TextSelection = DTE.ActiveDocument.Selection

    Dim currText As String = txtSel.Text

    If currText.Trim.StartsWith(\"/*\") AndAlso currText.Trim.EndsWith(\"*/\") Then

        Dim splitText() As String = Split(currText, vbCrLf)

        \' Trim all of the lines down
        For z = 0 To UBound(splitText) - 1
            splitText(z) = Trim(splitText(z))
        Next

        \' How long should the block be?
        Dim longestLine As Integer = 0
        For z = 0 To UBound(splitText) - 1
            If splitText(z).Length > longestLine Then
                longestLine = splitText(z).Length
            End If
        Next

        longestLine += 4

        \' build the value to replace the selection with.
        Dim selTextPadded As String = \"/*    \"
        selTextPadded = selTextPadded.PadRight(longestLine + 2) + vbCrLf

        For z = 1 To UBound(splitText) - 2
            splitText(z) = splitText(z).PadRight(longestLine - 2)
            selTextPadded += \"    \" + splitText(z).ToString() + vbCrLf
        Next

        splitText(UBound(splitText) - 1) = splitText(UBound(splitText) - 1).PadRight(longestLine - 2)
        selTextPadded += \"    \" + splitText(UBound(splitText) - 1).ToString() + vbCrLf

        Dim tmp As String = \"*/\"
        selTextPadded += tmp.PadLeft(longestLine + 2) + vbCrLf

        txtSel.Delete() \'This is to help keep formatting correct when multiline
        txtSel.Insert(selTextPadded, vsInsertFlags.vsInsertFlagsContainNewText)
    Else
        \' This is not a c comment
    End If
Finally
    DTE.UndoContext.Close()
End Try
End Sub